如何将图片文件保存在ACCESS中啊？

Question

如何将图片文件保存在ACCESS中啊？

Answer 1

FieldByName('img').Assign(FrmShare1.img_Front.Picture.Graphic);

Answer 2

这个更清楚些：  
FieldByName('图片字段名').Assign(image1.Picture.Graphic);

Answer 3

二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');这个里面可以保存任何形式的文件

Answer 4

保存 :
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;