数据库的图片怎样显示

Question

我用的是access数据库,ADO控件,图片在数据库的数据类型是ole对象,请问怎样在image中显示数据库中的图片.

Answer 1

以前的:
保存 :
var Ms:TmemoryStream;
begin
  ms:=TmemoryStream.Create;
  Jpg.Assign(Image1.Picture.Graphic);
  Jpg.SaveToStream(Ms) ;
  Ms.Position :=0;
  ADOquery1.append;
  TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);
  ADOquery1.Post;
  Ms.Free ;
end;
读取到image中:
 Var
Ms:TStringStream;
begin
  Ms:=TstringStream.Create('');
  TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms);
  Ms.Position :=0;
  Jpg.LoadFromStream(Ms);
  Image2.Picture.Assign(Jpg);
  Ms.Free;
end;

Answer 2

To  gxgyj(杰克.逊)           如果不是JPG而是BMP了