jpeg图报表问题 ( 积分: 100 )

  • 主题发起人 主题发起人 louqing_2
  • 开始时间 开始时间
L

louqing_2

Unregistered / Unconfirmed
GUEST, unregistred user!
我用流将JPEG图存进数据库中,用REPORT BUILDER时提示出错:
CANNONT GENERATE REPORT

我的代码如下:
保存为流:
var
Strm: TMemoryStream;
bmp:TBitmap;
Jpeg: TJPEGImage;
begin
Strm := TMemoryStream.Create;
bmp := TBitmap.Create ;
Jpeg := TJPEGImage.Create ;
TRY
IMAGE1.Picture.Graphic.SaveToStream(STRM);
bmp.LoadFromStream(STRM);
Jpeg.Assign(BMP);
Jpeg.SaveToStream(STRM);
Strm.Position := 0 ;
ADOTable1.Edit ;
ADOTable1SIGNATURE.LoadFromStream(Strm);
ADOTable1.Post ;
FINALLY
Jpeg.Free ;
bmp.Free ;
Strm.Free ;
END ;
end;
我要如何更改?
 
大家也给点建议吧,是不是要用FASTREPORT啊
 
var
Strm: TADOBlobStream;
bmp:TBitmap;
Jpeg: TJPEGImage;
begin
bmp := TBitmap.Create ;
Jpeg := TJPEGImage.Create ;
ADOTable1.Edit ;
Strm:= TADOBlobStream.Create(ADOTable1SIGNATURE,bmwrite);
TRY
IMAGE1.Picture.Graphic.SaveToStream(STRM);
bmp.LoadFromStream(STRM);
Jpeg.Assign(BMP);
Jpeg.SaveToStream(STRM);
ADOTable1.Post ;
FINALLY
Jpeg.Free ;
bmp.Free ;
Strm.Free ;
END ;
end;
 
后退
顶部