【结帖】图片的显示问题！**

rzport_lq0

我以二进制流的形式把图片存入数据库当中！我想把他显示出来，但是却没有图像？下面是我的显示代码？
不知道有什么问题？！

var
  lStream , lFileStream: TStream;
  lFile: String;
  i:integer;
begin
  DataSetBroker1.DataSet.edit;
  lStream :=TMemoryStream.Create;
  lStream := DataSetBroker1.dataset.CreateBlobStream(DataSetBroker1.dataset.FieldByName('TP'),TBlobStreamMode.bmReadWrite);
  lFileStream := TFileStream.Create(lFile, Classes.fmCreate);
  lFileStream.CopyFrom(lStream, lStream.Size);
  lFileStream.Free;
  Image1.Picture.Bitmap.LoadFromFile( lStream );
end;

lixy

不用这么麻烦吧。直接把表现类型设置成图片

rzport_lq0

我把他设置成了图片，仍然显示不出来！！

lixy

您存的图片是什么格式的？是否确认存入了图片？

rzport_lq0

jpg 的。图片已经保存了！！

lixy

您是怎么确认保存了图片？

rzport_lq0

var
  lStream : TFileStream;
  i:integer;
begin
   lStream := TFileStream.Create(lsFileName,SysUtils.fmOpenRead);
   DataSetBroker1.DataSet.Edit;
   TBlobField(DataSetBroker1.DataSet.FieldByName('tp')).LoadFromStream(lStream);
   DataSetBroker1.DataSet.ApplyUpdates;
   i:=forms.application.messagebox('1-1','T',0)
end;

这是我上传图片的代码！出现 1-1

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=18197
参考alang的代码

rzport_lq0

我参考过这个帖子！
我想把它放在image上显示！！

lixy

No.13  
一个最简单的办法，读图片用下面的代码：
var
  lStream , lFileStream: TStream;
  lFile: String;
begin
  DataSetBZSJJ1.Edit;
  lStream := DataSetBZSJJ1.CreateBlobStream(DataSetBZSJJ1.FieldByName('TP'),TBlobStreamMode.bmReadWrite);
  lFile := jsSysUtils.GetSystemTempPath+'123.png';
  lFileStream := TFileStream.Create(lFile, Classes.fmCreate);
  lFileStream.CopyFrom(lStream, lStream.Size);
  lFileStream.Free;
  Image1.Picture.LoadFromFile(lFile);
  SysUtils.DeleteFile(lFile);
end;