求助一个delphi的问题

[ckenji]

我用Access建立了一个表，在表中有一项是照片，如何在delphi的窗体中把Access表中的照片显示出来，照片的格式是bmp的。（我试过几种方法，可都不能显示，那位高手可以指点一下）

[laihecongxi]

dbimage ?不行

[flyingkiller]

dbimage肯定是可以的，要么就是你存进去的格式不对。

[ezlz]

在数据源的onchange事件中调用如下的showpicture过程。
参数说明：
img:你要显示图片的image。
adoq:数据集。
field:包含图片的字段。


附保存图片的过程，也许有用哦，嘻嘻。

procedure showpicture(img: Timage; ADOQ: TADOQuery; field: string);
var MS: Tmemorystream;
begin
if not ADOQ.FieldByName(field).isnull then
begin
MS := TMemoryStream.Create;
try
TBlobField(ADOQ.FieldByName(field)).SaveToStream(MS);
MS.Position := 0; //注意
try
img.Picture.Graphic.LoadFromStream(MS);
except
//如果格式无效，则显示默认图片
on EInvalidGraphic do
img.Picture.Graphic := fmain.Image4.Picture.Graphic;
end;
finally
MS.Free;
end;
end
else
begin
MS := TMemoryStream.Create;
try
fmain.Image4.Picture.Graphic.SaveToStream(MS);
MS.Position := 0; //注意
img.Picture.Graphic.LoadFromStream(MS);
finally
MS.Free;
end;
end;
end;

procedure savepicture(img: Timage; ADOQ: TADOQuery; field: string);
var photo: Tmemorystream;
begin
photo := Tmemorystream.create;
img.Picture.graphic.savetoStream(photo);
Tblobfield(ADOQ.FieldByName(field)).loadfromstream(photo);
photo.Clear;
end;

怎样？给分吧。：）

[feng234]

我也想知道这个问题！

[ckenji]

谢谢几位高手的指点。
我的确是用的dbimage，但是图片就是显示不出来（别是信息都可以正常显示，比如在Access表中的姓名，性别等文字信息都可以显示，惟独照片的框是空的）我是用ADO中的adotable这个组件连接的Access的表，表中的照片是以位图bmp的格式存进去的。不知道究竟是那里出了问题？