var
MS: TStream;
begin
with Table1 do
MS:=CreateBlobStream
(FieldbyName('image'),bmRead);
Image1.Picture.Bitmap.
LoadFromStream(MS);
MS.Free;
end;
但你的是JPEG格式,还要进行转换:参考
var
bmp:tBitmap;
Jpg:TJpegImage;
begin
Jpg:=TJpegImage.Create;//
bmp:=tBitmap.Create ;
jpg.LoadFromFile(f1);
bmp.Assign(jpg);
...