Imageen方法
ImageenView1.Bitmap.Canvas.StretchDraw(Rect(0, 0, 200, 156),ImageenView1.Bitmap);
//==========================JPEG
procedure r;
var
j: TJpegImage;
b: TBitmap;
begin
try
j := TJpegImage.create;
b := TBitmap.create;
b.Width := 1024;
b.Height := 800;
j.loadformfile('test.jpg');
bcanvas.StretchDraw(Rect(0, 0, 1024, 800), j);
j.Assign(b);
finally
j.free;
end;
end;
//最终版本(原创)
uses Math,imageenview;