请教使用ImageEN缩放图片的方法

Question

有些照片，想用ImageEN来批量处理，缩小尺寸，不知用哪个控件方法？

Answer 1

ImageEN比较好用啊，我很多年用过。

Answer 2

imageEN 功能比较强大的，可缩放，可旋转。如果只是自适应缩放的话，用自带的image就能完成。

Answer 3

用TBitMap去绘制，转存一下就缩小了。BitMap.Canvas.Draw..........

Answer 4

缩小尺寸，比较好办。使用Image，就可以。
参考代码：
procedure TSeleteImageFrm.ChangeAnyPixels(Bmp: TBitmap;  NewBmp: TBitmap; Width,Height:Integer);
                                      //  Bmp源图  NewBmp新图     Width  Height 像素宽 高
begin
  NewBmp.Width:=Width;
  NewBmp.Height:=Height;
  NewBmp.Canvas.StretchDraw(NewBmp.Canvas.ClipRect,Bmp);
end;procedure TSeleteImageFrm.Button2Click(Sender: TObject);
var MyRect, NewRect: TRect;
    Bmp,NewBmp: TBitmap;
    FileName:string;
begin
  Image1.Picture.LoadFromFile(FileNAME);
  Bmp:=TBitmap.Create;
  NewBmp:=TBitmap.Create;  MyRect := Rect(XX1,YY1,XX2,YY2);
  NewRect := Rect(0,0,XX2-XX1, YY2-YY1);
  Bmp.Canvas.CopyRect(NewRect,Image1.Canvas, MyRect);  case ComboBox1.ItemIndex of                         // 缩少
    0: ChangeAnyPixels(Bmp,NewBmp,100,133);
    1: ChangeAnyPixels(Bmp,NewBmp,150,200);
    2: ChangeAnyPixels(Bmp,NewBmp,200,266);
    3: ChangeAnyPixels(Bmp,NewBmp,225,300);
    4: ChangeAnyPixels(Bmp,NewBmp,300,400);
  end;    Image1.Picture.Bitmap.Assign(NewBmp);
  Image1.SaveToFile(ImagePath+TempName+'.bmp');
  Bmp.Free;
  NewBmp.Free;
end;
代码仅供参考。

Answer 5

无须写任何代码，ImageEn即有缩放功能。我估计你要的是如何压缩图片。