用TImage,TcxImage显示来自数据库的图片jpeg
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图片试用。