DataSnap数据库用的是access 手机在显示图片字段时出现以下错误 MS := TMemoryStream.Create; TBlobField(DataModule1.ClientDataSet2.FieldByName('照片')s).SaveToStream(MS); MS.Position:=0; if MS.Size >0 then Frm_zcrxxsm.Image1.Bitmap.LoadFromStream(MS); MS.Free;
https://www.baidu.com/baidu?word=access%20%E9%9D%9E%E6%B3%95%E7%9A%84%E7%B2%BE%E7%A1%AE%E5%BA%A6%E6%95%B0%E5%80%BC&ie=utf-8&tn=maxco3_dg&ch=1
----------------------------------------------
(C)(P)Flying Wang
我发服务器的代码,里面基本上会也没写,谢谢各位, 这是客户端代码: DataModule1.ClientDataSet2.Close; DataModule1.ClientDataSet2.CommandText := Format('Select a.*,b.物资名称 from 发放轮椅明细 as a,物资表 as b where a.物资=b.编号 and a.编号=:bh order by a.编号',[]); DataModule1.ClientDataSet2.Params.ParamByName('bh').Value := bh; DataModule1.ClientDataSet2.Open;
function TBFEntityList<T>.ReadFromDataSet(ADataSet: TDataSet; AInitProc: TBFEtyInitProc; ACascadeProc: TBFEtyCascadeProc): Integer; var lEty: T; begin Assert(Assigned(ADataSet), 'TBFEntityList<T>.ReadFromDataSet' + #10#13 + errBFDataSetLost); Result := 0; if not ADataSet.Active then raise EBFPacked.Create('试图从一个关闭的数据集中取得实体列表信息!', 'EntityListName:' + ClassName, [edShow, edRecord], elImportant, 'TBFEntityList<T>.ReadFromDataSet', etDBOperation, '524AF6C5-A713-4AEA-9570-812C8F1B1A8B', False); while not ADataSet.Eof do begin lEty := NewItem; lEty.ReadFromDataSet(ADataSet, AInitProc, ACascadeProc); Inc(Result); //上面NewItem时跳过了Notify中的AutoNotifyChange,这里补调一下 Notify(lEty, cnAdded); ADataSet.Next; end; end;
----------------------------------------------
-