Delphi 拯救轮换时代

使用这个免费软件来更新我当地园艺俱乐部数据库的一些D5ENT资料

它有一个LoadFromFile，速度足够快，工作非常好，但没有SaveToFile。网站上的论坛有一些关于储蓄的老问题，但没有明确的答案

有人能告诉我如何在图像旋转后保存它吗

我在网上找到了一大堆保存图像的例行程序，但似乎都不起作用。它保存了一些东西，但不再是JPG。我试图寻找一种保存画布的方法，但没有得到任何可编译的内容。通常，它们都会出现“无法将位图/画布、图片/等分配给图像”的问题

这有点超出我的理解力

---

p、 美国尝试了ImageEx和Image32，但D5的两个版本都太复杂，无法仅用于保存旋转的文件。

根据

TRotateImage

的文档，它有一个名为

RotatedBitmap

的属性，将旋转的图像存储为位图。您可以使用单元

JPEG

中的

TJPEGImage

类轻松地将该位图转换为JPEG图像：

uses jpeg;

procedure SaveRotatedImage;
var
  jpg: TJPEGImage;
begin
  jpg := TJPEGImage.Create();
  try
    jpg.Assign(YourRotateImage.RotatedBitmap);
    jpg.SaveToFile('filename.jpg');
  finally
    jpg.Free;
  end;
end;

---

作为

TRotateImage

的替代方案，我推荐使用该库，它可以使用各种插值内核对图像应用更复杂的转换，处理透明度等。但是，如果您只需要旋转，并且对组件的结果感到满意，您也可以继续使用它。

根据

TRotateImage

的文档，它有一个名为

RotatedBitmap

的属性，该属性将旋转后的图像存储为位图。您可以使用单元

JPEG

中的

TJPEGImage

类轻松地将该位图转换为JPEG图像：

uses jpeg;

procedure SaveRotatedImage;
var
  jpg: TJPEGImage;
begin
  jpg := TJPEGImage.Create();
  try
    jpg.Assign(YourRotateImage.RotatedBitmap);
    jpg.SaveToFile('filename.jpg');
  finally
    jpg.Free;
  end;
end;

---

作为

TRotateImage

的替代方案，我推荐使用该库，它可以使用各种插值内核对图像应用更复杂的转换，处理透明度等。但是，如果您只需要旋转，并且对组件的结果感到满意，您也可以继续使用它。

谢谢，我今天晚些时候会尝试。我已经安装了graphics32，但它有很大的学习曲线，我不想对这个旧应用程序进行重大重写。谢谢，我今天晚些时候会尝试。我已经安装了graphics32，但它有很大的学习曲线，我不想对这个旧应用程序进行重大重写。