delphi - 调整图像大小并保存输出

Question

我在这里看到了很多关于调整图像大小的问题/答案。

但我找不到适合我情况的正确选项。

<强> In this post ，只有当你想从大图像中得到小图像时，它才有效。

但是，如果您有一张尺寸为 24x24 的图片，并且想要将其大小调整为 256x256 尺寸，则过程将会失败，并显示出扭曲的图片。

下面的代码是我尝试解决我的问题

  Graph := TBitmap.Create;
  try   // After loading a .bmp file to Image1 with 48x48 dimension 
    Graph.Assign( Image1.Picture.Bitmap );
    Graph.Canvas.StretchDraw(Rect(0, 0, 255, 255), Graph);
    Graph.SetSize(255,255);
    Graph.SaveToFile('Location\Resault.bmp');
  finally
    Graph.Free;
  end;

原图:

结果(左上角有黑色部分的白色方 block ):

我们如何将图像加载到 TImage 并转换/调整其大小并保存更改？

Answer 1

感谢kobik 对于评论，很有用。

var Graph : TBitmap; Conv : TBitmap;
begin

      Graph := TBitmap.Create;
      try
        Graph.Assign( Image1.Picture.Bitmap );
        Conv := TBitmap.Create;
        try
          Conv.SetSize(255,255);
          Conv.Canvas.StretchDraw(Rect(0, 0, 255, 255), Graph);
          Conv.SaveToFile('Location\Resault.bmp');   
        finally
          Conv.Free;
        end;

      finally
        Graph.Free;
      end;

end;