改变图象大小问题

Question

我想把用户打开的图片改变成640*480。不知道有什么办法？

Answer 1

不大清楚你要实现什么，用个image, 设置成你要的大小，然后，
设置 Stretch := true;

Answer 2

var
  BMP: TBitmap;
  PIC: TPicture;
begin
  BMP := TBitmap.Create;
  PIC := TPicture.Create;
  PIC.LoadFromFile('用户文件');
  BMP.Width := 640;
  BMP.Height := 480;
  BMP.Canvas.StretchDraw(BMP.Canvas.ClipRect, PIC.Graphic);
  BMP.SaveToFile('你想要的文件');
  BMP.Free;
  PIC.Free;
end;