|
我以二进制流的形式把图片存入数据库当中!我想把他显示出来,但是却没有图像?下面是我的显示代码?
不知道有什么问题?!
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; |
|