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

最新推荐文章于 2021-09-03 11:10:52 发布

yethyeth

最新推荐文章于 2021-09-03 11:10:52 发布

阅读量2.6k

点赞数

分类专栏： Delphi 文章标签：数据库 image

本文链接：https://blog.csdn.net/yethyeth/article/details/1540137

版权

Delphi 专栏收录该内容

41 篇文章 0 订阅

订阅专栏

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图片试用。