我前面已经回答过了。
//table1连了那个有图片的表
//Fields[4]是图片blob字段。
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
begin
table1.Open;
table1.First;
try
bmp := Tbitmap.Create;
bmp.Assign(table1.Fields[4]);
Image1.Picture.Bitmap:=bmp;
finally
bmp.Free;
end;
end;
