【结贴】加载图片的问题??**

huangyue

现在数据库中存了图1,图2,图3这3张图片...我想在功能加载的时候根据当前登陆人来填充(比如当前登陆人是1就填充图1)...怎么写?如下我这样写能直接从电脑存进来一个...那个str该怎么写?
str := 'c:\吕仕军.jpg'; //存放电子签名路径
  lStream:= TMemoryStream.Create;
  lContextCurrent :=TContextCurrent.Create(self.Context);
  name := lContextCurrent.Operator.DisplayName;
  Query1.Close;
  Query1.CommandText :='select * from DZQMGLB where XM='''+DataSetBroker.DataSet.FieldByName('SH').AsString+'''';
  Query1.Open;
  if Query1.RecordCount>0 then
  begin
    TBlobField(Query1.FieldByName('DZQM')).SaveToFile(str);
  end;
  DataSetBroker.DataSet.Edit;
  TBlobField(DataSetBroker.DataSet.FieldByName('SH')).LoadFromFile(str);
  DataSetBroker.DataSet.ApplyUpdates;
// lStream.Position:=0;
  lContextCurrent.Free;
  lStream.Free;

zfang

哪个str？你上面的代码 是不能实现 还是？

huangyue

能实现...
我现在是要有一张表存有图片...然后功能加载的时候取一张对应的图片存到另外一张表

zfang

那你就从那张表中取出，然后再把它存到另一个表中就是了。代码处理的方式可以用你1楼的。

huangyue

用这个dsTarget.DataSet.FieldByName('BlobPic').Assign
(dsSource.DataSet.FieldByName('BlobPic'));

得了..结帐!