如何将jpg图像缩小保存？？！！(50分)

如何将jpg图像缩小保存？？！！

先将jpg图象转化为bmp，对bmp图象进行缩小操作，最后转化为jpg<br><br>var<br>&nbsp; jpg :TJpegImage;<br>&nbsp; bmp,tmpbmp :TBitmap;<br>begin<br>&nbsp; jpg :=TJpegImage.Create;<br>&nbsp; jpg.LoadFromFile(.....);<br>&nbsp; bmp :=TBitmap.Create;<br>&nbsp; bmp.Assign(jpg);<br>&nbsp; tmpbmp :=TBitmap.Create;<br>&nbsp; tmpbmp.Width :=bmp.Width div 2;<br>&nbsp; tmpbmp.Height :=bmp.Height div 2;<br>&nbsp; StretchBlt(tmpbmp.Canvas.Handle,0,0,tmpbmp.Width,tmpbmp.Height,<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,SRCCOPY);<br>&nbsp; jpg.Assign(tmpbmp);<br>&nbsp; jpg.SaveToFile(........);<br>&nbsp; jpg.Free;<br>&nbsp; bmp.Free;<br>&nbsp; tmpbmp.Free;<br>end;

同意樓上的。

缩小后的图片，颜色特别次！！！！

我找到更好的了！谢了！

to ifbn: 更好的解决方法是什么？？？

把你的方法拿出来大家参考一下吧！！