关于数据库里的图片显示的问题求解！！！

Question

我用VFP做了个数据表.dbf，我用gen那通用型字段来存图片，怎么在delphi下看不到这个字段的？？后来我用delphi自带的那个database desktop来做了个.db，那里我用graphi来存图片，虽然在delphi下可以看到这个字段，但是不知道怎样加入图片???请大虾来帮忙！！

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;