自己写代码试试: p: TfrPictureView; stream: TStream; begin //在Report中拉一个TfrPictureView命名为Logo p := TfrPictureView(FRReport.FindObject('Logo')); stream:=TMemoryStream.Create; if p <> nil then try TBlobField(FMainPro.ADOQueryCompany.FieldByName('Logo')).SaveToStream(stream); Stream.Position:=0; p.Picture.Bitmap.LoadFromStream(stream); finally stream.Free; end;
stream: TStream;
begin
//在Report中拉一个TfrPictureView命名为Logo
p := TfrPictureView(FRReport.FindObject('Logo'));
stream:=TMemoryStream.Create;
if p <> nil then
try
TBlobField(FMainPro.ADOQueryCompany.FieldByName('Logo')).SaveToStream(stream);
Stream.Position:=0;
p.Picture.Bitmap.LoadFromStream(stream);
finally
stream.Free;
end;
EXCEPT
END
啊,这样程序运行的时候会过滤掉啊
就可以打JPG的拉,前短时间我才做了的