如何将图存入表中？

Question

利用database desktop可以向表内输入文字数据，可是如何向表内插入图像呢？
我刚学DELPHI，什么都不懂，希望各位能多多帮助我！谢谢！

Answer 1

pField :TBlobField ;Query.Open()
Query.Locate(....)
......if  PhotoPath != ''
begin
   Query.Edit();
   pField= Query->FieldByName("PersonPhoto") as TBlobField
   pField->LoadFromFile(PPersonPhotoPath);            
   Query->Post();
end;

Answer 2

pField :TBlobField ;Query.Open()
Query.Locate(....)
......if  PhotoPath != ''
begin
   Query.Edit();
   pField:= Query->FieldByName('PersonPhoto') as TBlobField
   pField.LoadFromFile(PPersonPhotoPath);            
   Query.Post();
end;
上面写错了

Answer 3

var v_photo:tjpegimage;
...
v_photo:=tjpegimage.create;
v_photo.loadformfile('c:\aaa.jpg');
table1.edit;
table1.fieldbyname('photo').assign(v_photo);
table.post.

Answer 4

强烈建议search一下以前的帖子，在本版搜索“图片”

Answer 5

我是用以下的方法保存.  (要使用(uses: jpeg))procedure TForm_pic.BitBtn1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
 try
    with MyJPEG do
    begin
    Assign(Image1.Picture.Graphic);//一定要把图片文件显示在Image1中,才能保存!
    MS:=TMemoryStream.create;
    SaveToStream(MS);
    MS.Position:=0;
    adoTable1.Edit;
    TBlobField(adoTable1.FieldbyName('表中的字段')).LoadFromStream(MS);
    adoTable1.Post;
    messagebox(getactivewindow(),'图像保存完毕！','已保存',mb_ok);
    end;
 finally
    MyJPEG.Free;
end;
end;

Answer 6

procedure TForm_pic.BitBtn1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
 try
    with MyJPEG do
    begin
    Assign(Image1.Picture.Graphic);//一定要把图片文件显示在Image1中,才能保存!
    MS:=TMemoryStream.create;
    SaveToStream(MS);
    MS.Position:=0;
    adoTable1.Edit;
    TBlobField(adoTable1.FieldbyName('表中的字段')).LoadFromStream(MS);
    adoTable1.Post;
    messagebox(getactivewindow(),'图像保存完毕！','已保存',mb_ok);
    end;
 finally
    MyJPEG.Free;
end;