用image控件装入a.bmp,怎样改图片的宽为500相素后另存呢??

用image控件装入a.bmp,怎样改图片的宽为500相素后另存呢??

解决方案 »

  1.   

    那就是Image.Stretch为True，然后重设Image的宽，再保存。
      

  2.   

    用TbitMap处理
    Canvas的CopyRect方法Image没这个功能的http://lysoft.7u7.net
      

  3.   

    Image2.Canvas.CopyRect(Image2.ClientRect, Image1.Canvas, Image1.ClientRect);
    Image2.Picture.Bitmap.SaveToFile('d:\wang.bmp');
    Image1为源图像，Image2为目标图象，只要把Image2.ClientRect的宽度设为500就OK了
      

  4.   

    我按 wyb716(小刀)  的做了,可以是可以,但是图片色彩差了很多,怎么办呢?
      

  5.   

    用delphi真的不能高质量改图片尺寸吗???
      

  6.   

    差了很多是因为原图片比500要小很多吧.
    bmp就是这样,试试别的办法吧.