自动将图片加载到 Delphi TImage 图片 (TJPEGImage) [关闭]

Question

我需要将图片自动加载到 TImage 中。我可以通过 pas 文件名找出 jpeg 的位置。如果文件名为“chapter14screen45”，那么我知道它是文件夹 14，然后是章节内的图像文件夹，那么 014.jpeg 应该被加载到 Image1 对象中。

Answer 1

如何将 Jpeg 图像加载到 TImage 组件中的示例：

procedure LoadJpgImage(DestImage : TImage ; Name : String);
begin
DestImage.Picture.LoadFromFile(Name);
end;

其中 Name 是图像的绝对路径，例如：'D:\jpeg\014.jpeg'。

如果您使用的旧版 Delphi 不包含对 Jpeg 的原生 TImage 支持，那么您需要找到第三方实现才能将 Jpeg 图像加载到 TImage 组件中。