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` 单元。

相关问题

delphi11 TJPEGImage.Create resize

在Delphi 11中，`TJPEGImage`类的`Create`方法用于创建一个新的`TJPEGImage`对象。`TJPEGImage`的`Resize`方法用于缩放JPEG图像。该方法接受两个参数：缩放后的宽度和高度。

示例代码如下：

var
  Jpeg, JpegScaled: TJPEGImage;
begin
  Jpeg := TJPEGImage.Create;
  try
    Jpeg.LoadFromFile('image.jpg');
    JpegScaled := TJPEGImage.Create;
    try
      JpegScaled.Assign(Jpeg);
      JpegScaled.PixelFormat := jf24Bit; // 设置像素格式
      JpegScaled.Resize(100, 100); // 缩放到100x100大小
      JpegScaled.SaveToFile('image_scaled.jpg');
    finally
      JpegScaled.Free;
    end;
  finally
    Jpeg.Free;
  end;
end;

这将从文件中加载JPEG图像，创建一个副本，将其缩放为100x100大小，然后将其保存回文件中。请注意，使用`Assign`方法创建副本以进行操作，以避免更改原始图像。在调用`Resize`方法之前，需要将`PixelFormat`属性设置为`jf24Bit`，以便能够进行像素操作。

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大小，然后将其保存回文件中。您可以根据需要调整缩放后的大小。注意，使用此方法会改变原始图像，因此最好使用副本进行操作。