一个表中有一个字段为图像字段,可以为空，如何向该字段添加纪录，即添加一个图像？？？

Question

table1.Insert;
TBlobField(table1.FieldByName('Image')).LoadFromFile('a.bmp');
table1.Post;

Answer 1

用dbimage吧!比较容易
table.append
dbimage.picture.loadfromfile('a.bmp')
table.post

Answer 2

//保存
procedure TForm1.Button1Click(Sender: TObject); 
var 
MyJPEG : TJPEGImage; 
MS: TMemoryStream; 
begin 
MyJPEG := TJPEGImage.Create; 
try 
with MyJPEG do 
begin 
Assign(Image.Picture.Graphic); 
MS:=TMemoryStream.create; 
SaveToStream(MS); 
MS.Position:=0; 
Table1.Edit; 
TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS); 
Table1.Post; 
messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok); 
end; 
finally 
MyJPEG.Free; 
end; 
end; //读取
procedure TForm1.Button1Click(Sender: TObject); 
var tempstream:TStringStream; 
tempjpeg:TJPEGImage; 
begin 
try 
tempstream:=TStringStream.Create(' '); 
TBlobField(Query1.FieldByName('Image')).SaveToStream(tempstream); 
tempstream.Position:=0; 
tempjpeg:=TJPEGImage.Create; 
tempjpeg.LoadFromStream(tempstream); 
DBImage1.Picture.Bitmap.Assign(tempjpeg); 
finally 
tempstream.Free; 
tempjpeg.Free; 
end; 
end; 
以上是处理JPEG图片格式的

Answer 3

这可以处理多种格式的图象文件
procedure TFrmblobexample.Button1Click(Sender: TObject);
begin
  if(opendialog1.execute)then
  begin
    sfilename:=opendialog1.filename;
    adoquery1.Append;
    adoquery1.FieldByName('name').asstring:=sfilename;
    adoquery1.fieldbyname('blobs').asstring:=blobcontenttostring(sfilename);
    adoquery1.post;
  end;
end; function TFrmblobexample.blobcontenttostring(
  const filename: string): string;
begin
   with tfilestream.create(filename,fmopenwrite)do
    try
      setlength(result,size);
      read(pointer(result)^,size);
    finally
      free;
    end;
end;

Answer 4

这个标有四个字段，(name,num,money,picture)
其他字段都不是空的，唯独picture字段全是空的,怎么样才能插入图像呢？
救急：

Answer 5

难道我的方法不可以吗？只要LoadFromFIle或者LoadFromStream都可以。

Answer 6

chechy(chechy)和Carfield() 的方法都是可以的