怎样把image中的图象保存在Paradox的字段里,以及怎么读出来?(50分)

  • 主题发起人 主题发起人 youngjian
  • 开始时间 开始时间
You can use Tblobstream.
 
存入table: 其中pic为blobfield

var Stream: TBlobStream;
begin
Table1.Append;
Stream:=TBlobStream.Create(table1pic, bmWrite);
Image1.Picture.Graphic.SaveToStream(Stream);
Table1.Post;
Stream.Free;
end;

读出:

var Stream: TStream;
begin
JpegFace:=TJPEGImage.Create;
Stream:=Table1.CreateBlobStream(Table1Pic,bmRead);
JpegFace.LoadFromStream(Stream);
Image1.Picture.Graphic:=JpegFace;
Stream.Free;
JpegFace.Free;
end;


 
Table1.FieldByName('image').Assign(Image.Picture);
Image.Picture.Assign(Table1.FieldByname('image'));
 
多人接受答案了。
 
后退
顶部