图片可以插入到access数据库吗？

Question

procedure Taddname.BitBtn1Click(Sender: TObject);
begin
     with  DM.Aname  do
        begin
            Append;
            fieldbyname('姓名').AsString:=Edit1.Text;
            //fieldbyname('pic').Value :=DBImage1.????;  //问题所在！！
            Post;
            Edit1.Text:='';           
        end;
end ;
图片能够插入access数据库吗？

Answer 1

procedure Taddname.BitBtn1Click(Sender: TObject);
begin
     with  DM.Aname  do
        begin
            Append;
            fieldbyname('姓名').AsString:=Edit1.Text;
            //fieldbyname('pic').Value :=DBImage1.????;  //问题所在！！            fieldbyname('pic').assign(picturn1);       //这个是正确的            Post;
            Edit1.Text:='';           
        end;
end ;

Answer 2

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