在数据库中显示图片问题

Question

我在Access2000里设置了一个OLE字段，但在delphi里用DBimage连接时总是出错，请问该如何正确的显示Access2000中的图片数据？

Answer 1

var 
  bitmap: TBitmap;
  jpg: TJepgImage;
  ms: TMemoryStream;
begin
  jpg:=TJpegImage.Create;
  bitmap:=TBitmap;
  ms:=TMemoryStream.Create;
  jpg.Assign(ADOQuery1.FieldByName('image'));
  jpg.SavetoStream(ms);
  bitmap.loadfromstream(ms);
  dbimage.picture.graphic:=bitmap;
  jpg.free;
  bitmap.free;
  ms.free;
end;