怎样改变一个jpg图像的大小后，并保存

Question

怎样改变一个jpg图像并保存，比如一个jpg图像为 1024*800 我怎样才能改变他为1024*400后并将它保存到磁盘上呢

Answer 1

这样的问题CSDN以前就有解决方法啦Google上一找就有了
BMP，JPG什么的，方法都一个样的http://lysoft.7u7.net

Answer 2

用ImageEn控件，里面有Resize（）

Answer 3

ImageEn控件，里面有Resize（）

Answer 4

http://www.51delphi.com/delphi/soft?cx=ImageEn

Answer 5

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;