如何把jpg的图片改变成指定大小后再保存回磁盘。请指教。

[xiaoyan119]

如何把jpg的图片改变成指定大小后再保存回磁盘。请指教。

[hansome]

var
jpg: TJPEGImage;
begin
jpg := TJPEGImage.Create;
jpg.LoadFromFile('a.jpg');
jpg.Width := 100;
jpg.Height := 100;
jpg.SaveToFile('b.jpg');
jpg.Free;
end;

[zgtt]

那样做不行的.只是画布改变了大小,图片不变的.
http://expert.csdn.net/Expert/topic/2399/2399778.xml?temp=.1219904

[aiirii]

copy到新畫布上,剪裁!!

[cll007]

Image1里面就是原始图象
bitmap:=TBitmap.Create;
bitmap.Width:=Image1.Width div 2; //比例缩小一般
bitmap.Height:=Image1.Height div 2;
bitmap.Canvas.StretchDraw(bitmap.Canvas.ClipRect,Image1.Picture.Graphic);
bitmap.SaveToFile('F:\1.bmp');
bitmap.Free;