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`，以便能够进行像素操作。