为什么不能显示ACCESS中的图片？

Question

procedure TFormmain.BitBtn3Click(Sender: TObject);
var
ms:TStream;begin
  ADOQuery.Open;
  ms:=ADOQuery.CreateBlobStream(ADOQuery.FieldByName('bmp'),bmread);
  Image1.Picture.Bitmap.LoadFromStream(ms);
  Image1.Picture:=nil;
  ms.Free;
end;

Answer 1

procedure TFormmain.BitBtn3Click(Sender: TObject);
var
jpeg:tjpegimage;
stream:TMemoryStream;
begin
  jpeg:=tjpegimage.Create;
  stream :=TMemoryStream.Create;
  Tblobfield(adoquery.FieldByName('bmp')).savetostream(stream);
  jpeg.loadfromstream(stream);
  image1.Picture.Bitmap.Assign(jpeg);
  jpeg.Free;
  stream.Free;
end;
这样还是不行

Answer 2

Image1.Picture.BitMap.Assign(adoquery.FieldValues['bmp'])大致是这样，试一下