procedure TDataModule1.frrpPrintBeforePrint(Memo: TStringList;
//获取数据库的图片信息
View: TfrView);
var
tempstream: TStringStream;
tempjpeg: TJPEGImage;
begin
if View.Name = '控件名' then
begin
try
tempstream := TStringStream.Create(' ');
TBlobField(adoqryPrint.FieldByName('Picture')).SaveToStream(tempstream);
tempstream.Position := 0;
tempjpeg := TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
TfrPictureView(View).Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;
end;