delphi11 TJPEGImage 缩放

您可以使用`TJPEGImage`的`Scale`方法来缩放图像。该方法接受两个参数：缩放后的宽度和高度。示例代码如下：

var
  Jpeg: TJPEGImage;
begin
  Jpeg := TJPEGImage.Create;
  try
    Jpeg.LoadFromFile('image.jpg');
    Jpeg.Scale(100, 100); // 缩放到100x100大小
    Jpeg.SaveToFile('image_scaled.jpg');
  finally
    Jpeg.Free;
  end;
end;

这将从文件中加载JPEG图像，将其缩放为100x100大小，然后将其保存回文件中。您可以根据需要调整缩放后的大小。

相关问题

delphi11 TJPEGImage Scale

`TJPEGImage`的`Scale`方法可以缩放JPEG图像。该方法接受两个参数：缩放后的宽度和高度。示例代码如下：

var
  Jpeg: TJPEGImage;
begin
  Jpeg := TJPEGImage.Create;
  try
    Jpeg.LoadFromFile('image.jpg');
    Jpeg.Scale(100, 100); // 缩放到100x100大小
    Jpeg.SaveToFile('image_scaled.jpg');
  finally
    Jpeg.Free;
  end;
end;

这将从文件中加载JPEG图像，将其缩放为100x100大小，然后将其保存回文件中。您可以根据需要调整缩放后的大小。注意，使用此方法会改变原始图像，因此最好使用副本进行操作。

delphi11 TJPEGImage resize

以下是 Delphi 11 中使用 TJPEGImage 对象调整大小的示例代码：

uses
  JPEG;

procedure ResizeJpg(const InputFile, OutputFile: string; NewWidth, NewHeight: Integer);
var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  bmp := TBitmap.Create;
  try
    jpg.LoadFromFile(InputFile); // 从文件加载 JPG 图像
    bmp.Width := NewWidth;
    bmp.Height := NewHeight;
    bmp.Canvas.StretchDraw(Rect(0, 0, NewWidth, NewHeight), jpg); // 调整大小并绘制 JPG 图像
    bmp.SaveToFile(OutputFile); // 将调整后的位图保存为 JPG 格式
  finally
    bmp.Free;
    jpg.Free;
  end;
end;

以上代码将从文件加载 JPG 图像，创建一个指定尺寸的位图，并使用 `StretchDraw` 方法将原 JPG 图像缩放并绘制到位图上，最后将位图保存为 JPG 格式。请根据实际需求修改代码。注意，需要在 `uses` 中添加 `JPEG` 单元。