delphi 7.0 缩放图片代码

procedure TForm1.Button1Click(Sender: TObject); var Bmp1,Bmp2:TBitmap;//Bmp1是提原图，Bmp2是缩放以后的图片 begin Bmp1:=TBitmap.create; Bmp2:=TBitmap.create; Bmp1.LoadFromFile('1.bmp'); Bmp2.PixelFormat:=Bmp1.PixelFormat ; Bmp2.Width:=200; Bmp2.Height:=round(150); Bmp2.Canvas.StretchDraw(Bounds(0,0, Bmp2.Width,Bmp2.Height),Bmp1); //对图片进行缩放 Bmp2.SaveToFile('d:\temp2.bmp'); //将图片对象保存为文件 end; 就这么一句，没有用 #毫无价值

缩放会导致图片失真啊！

有图片缩放，无bmp 转jpg功能

有图片缩放，但对我没有用

下载学习了，还可以，反正受教了，