Delphi如何显示数据库中的图片(比如Access)

Question

小弟初学,用TDBImage总会报错,不知道该如何处理比较好?

Answer 1

TDBImage？？会报错，报什么错？

Answer 2

会出现"Bitmap image is not valid"的提示

Answer 3

对于数据库中存放的是Bmp格式的文件可以用这种方法
procedure TForm1.Button1Click(Sender: TObject);
var
  tmemory : TMemoryStream;
  bit : TBitmap;begin
  tmemory := TMemoryStream.Create;
  Tblobfield(adoquery1.Fields[1]).SavetoStream(tmemory);
  tmemory.Position := 0;
  image2.Picture.Bitmap.LoadFromStream(tmemory);
  tmemory.Free;
end;你这个问题可能是数据库中存放的不是Bmp格式的文件
如查是存放的是Jpeg格式的文件
可以用如下代码
如果其中存放的是Jpeg格式图片，可以用下面这段代码
var
  iMs: TStream;
  J: TJpegImage;
  iTmp: integer;
begin
  iMS := TMemorystream.Create;
  J := TJpegImage.Create;
  Tblobfield(ADoQuery1.FieldByName('照片')).SaveToStream(iMS);
  iMs.Position := 0;
  J.LoadFromStream(iMS);
  DBImage1.Picture.Assign(J);
end;
这是我以前写的