Question

delphi中，怎么从access数据库中读取图片

access数据库如图所示（数据库中的图片可以很多很多）：

，想要把读取的图片显示到到4个Timage控件上，如图所示（图片左右两端的按键效果是：点击一下左键，图片向左进一个；点击一下右键，图片向右前进一个）：

做好用adoquery和datasourse控件，菜鸟等代码，请大神赐教





Answer 1

用delphi可以这样
procedure TFrm_Ls_cx.TBut_RefreshClick(Sender: TObject);
var Picms:TMemoryStream;
Picjpg:TJPEGImage;
begin
if ADOQ_List.FieldByName('pct').AsVariant <>'' then
Begin
Picms:=TMemoryStream.Create ;
Picjpg:=TJPEGImage.Create ;
TBlobField(ADOQ_List.FieldByName('pct')).SaveToStream(Picms);
Picms.Position :=0;
Picjpg.LoadFromStream(Picms);
img_pic.Picture.Assign(Picjpg);
PicJpg.Free;
Picms.Free;
End;
End;

追问

大侠，我是菜鸟一个，你的代码有些地方我没看懂，你能不能再给我说一下？
1.“procedure TFrm_Ls_cx.TBut_RefreshClick(Sender: TObject);"这是单击的哪一个事件？
2.if ADOQ_List.FieldByName('pct').AsVariant '' then这句是什么意思？谢谢回答

追答

procedure TFrm_Ls_cx.TBut_RefreshClick(Sender: TObject)
这表示是一个按钮的事件，我的窗体名称是Frm_Ls_cx，按钮名称是TBut_Refresh
就像是放在Button1下就是这样的。
TForm1.Button1Click(Sender: TObject);

if ADOQ_List.FieldByName('pct').AsVariant '' then
这一句表示，如果pct字段不为空时。
先用ADO打开你的表
我的ADO名称是ADOQ_List