delphixe Undeclared identifier: 'Resize'
时间: 2023-12-10 21:02:21 浏览: 176
很抱歉,我之前的回答有误。在Delphi XE及更早版本中,`TJPEGImage`类似乎也没有`Resize`方法。您可以尝试使用`TBitmap`类的`SetSize`方法来调整JPEG图像的大小。
示例代码如下:
```delphi
var
Jpeg: TJPEGImage;
Bitmap: TBitmap;
begin
Jpeg := TJPEGImage.Create;
try
Jpeg.LoadFromFile('image.jpg');
Bitmap := TBitmap.Create;
try
Bitmap.PixelFormat := pf24bit; // 设置像素格式
Bitmap.Assign(Jpeg);
Bitmap.SetSize(100, 100); // 调整大小为100x100
Jpeg.Assign(Bitmap);
Jpeg.SaveToFile('image_scaled.jpg');
finally
Bitmap.Free;
end;
finally
Jpeg.Free;
end;
end;
```
这将从文件中加载JPEG图像,创建一个`TBitmap`对象,将其大小调整为100x100,然后将其重新赋值给`TJPEGImage`对象,最后将其保存回文件中。请注意,使用`Assign`方法创建副本以进行操作,以避免更改原始图像。在调用`SetSize`方法之前,需要将`PixelFormat`属性设置为`pf24bit`,以便能够进行像素操作。
阅读全文