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`方法创建副本以进行操作，以避免更改原始图像。

相关问题

delphixe TJPEGImage.Create resize

在Delphi XE及更早版本中，`TJPEGImage`类没有`Scale`方法，但是可以使用`Assign`和`Resize`方法来实现缩放。`Create`方法用于创建一个新的`TJPEGImage`对象。

示例代码如下：

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

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

delphi11 TJPEGImage.Create Scale

`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`方法创建副本以进行操作，以避免更改原始图像。