delphixe TJPEGImage.Create Scale

在Delphi XE及更早版本中，`TJPEGImage`类的`Create`方法和`Scale`方法的使用与Delphi 11中是相同的。`TJPEGImage`的`Create`方法用于创建一个新的`TJPEGImage`对象。`Scale`方法用于缩放JPEG图像。该方法接受两个参数：缩放后的宽度和高度。

示例代码如下：

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

这将从文件中加载JPEG图像，创建一个副本，将其缩放为100x100大小，然后将其保存回文件中。请注意，使用`Assign`方法创建副本以进行操作，以避免更改原始图像。