用TImage，TcxImage显示来自数据库的图片jpeg

最新推荐文章于 2019-03-26 14:04:07 发布

原创最新推荐文章于 2019-03-26 14:04:07 发布 · 2.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #image

Delphi 专栏收录该内容

41 篇文章

订阅专栏

本文介绍了一种使用Delphi从数据库字段中加载JPEG格式图片到TImage和TCxImage控件的方法。通过创建内存流并利用TJpegImage组件进行图片格式转换，实现了将二进制数据呈现为可视图像的功能。

procedure TForm1.FormCreate(Sender: TObject);
var
MyStream:Tmemorystream;
MyJPEG:TJpegImage;
begin
MyStream:=Tmemorystream.Create;
MyJPEG:=TJpegImage.Create;
try
TBlobField(adoquery1.FieldByName('img')).SaveToStream(MyStream);

MyStream.Position:=0;
MyJPEG.LoadFromStream(MyStream);
Image1.Picture.Assign(MyJPEG);
cxImage1.Picture.Assign(MyJPEG);
finally
MyStream.Free;
MyJPEG.Free;
end;
end;

end.

用了两个图片控件，Timage，TcxImage。
另外，
注意：
网上搜到的代码，对我都没有用，真的很受伤。
它们在
Image1.Picture.Assign(MyJPEG);
cxImage1.Picture.Assign(MyJPEG);
这段代码上，是这样的
Image1.Picture.Graphic.Assign(MyJPEG);//对jpeg
cxImage1.Picture.Bitmap.Assign(MyJPEG);//对bmp

上面的代码没有对bmp图片试用。