如何向表中插入图象记录?急用!!

Question

现有一表map,其中有一字段PIC为BLOB类型（interbase数据库）
如何向PIC字段追加一图象记录test.jpg?

Answer 1

下面以BMP图片格式为例，介绍了BLOB字段(在Access中是OLE对象字段）的操作:ADO:
向字段中保存图片：（图片格式为bmp）
begin
 ADOTable1.Edit;
 if OpenDialog1.Execute then
 begin
  (ADOTable1.FieldByName('照片') as TBlobField).LoadFromFile(OpenDialog1.FileName);
  ADOTable1.Post;
 end;
end;读取字段中的图片：（图片格式为bmp）
var
 bs:TMemoryStream;
begin
 bs:=ADOTable1.CreateBlobStream(ADOTable1.FieldByName('照片'),bmRead);
 Image1.Picture:=nil;
 Image1.Picture.Bitmap.LoadFromStream(bs);
 bs.Free;
end;BDE:
向字段中保存图片：（图片格式为bmp）
begin
 Table1.Edit;
 if OpenDialog1.Execute then
 begin
  (Table1.FieldByName('照片') as TBlobField).LoadFromFile(OpenDialog1.FileName);
  Table1.Post;
 end;
end;读取字段中的图片：（图片格式为bmp）
var
 bs:TBlobStream;
begin
 bs := TBlobStream.Create((Table1.FieldByName('照片') as TBlobField), bmRead);
 Image1.Picture.Bitmap.LoadFromStream(bs);
 bs.Free;
end;

Answer 2

严重同意 ljmanage(过客)

Answer 3

呵呵，谢谢 
 使用 TBlobField(PIC).LoadFromFile();能够 实现