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;
我要如何更改?
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;
我要如何更改?