请问要将DBIAMGE 显示各种格式的图片的代码怎么写啊

Question

我想通过dbnavigator的指针在dbgrid中的移动,在dbimange中动态显示图片？

Answer 1

保存Image1中的图片至数据库
var 
  Ms:TmemoryStream;
  Jpg:TJpegImage;
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 ;
  jpg.Free;
end;
读取数据库中的图片到image2中:
Var
  Ms:TStringStream;
  Jpg:TJpegImage;
begin
  Ms:=TstringStream.Create('');
  TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms);
  Ms.Position :=0;
  Jpg.LoadFromStream(Ms);
  Image2.Picture.Assign(Jpg);
  jpg.Free;
  Ms.Free;
end;uses jpeg