[搞定]急：关于png类型图片的载入及显示问题**

alang

我的png图

alang

我的字段定义

alang

一个最简单的办法，读图片用下面的代码：
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;

yemxp

谢谢alang,搞定这个问题了。