如何在Delphi程序中插入图片？

Question

我在程序中使用了TImage组件。

在运行时，我使用以下命令向组件添加图像：

Image1.Picture.LoadFromFile('C:\Users\53941\Pictures\eq1.jpg');

现在，我想在其他计算机上运行这个程序，这个计算机上没有这个图像文件。

那么，我如何将这个图像文件存储在程序可执行文件中呢？

Answer 1

使用.rc脚本或IDE的“ Resources and Images对话框将图像文件存储在程序的资源中。 阅读Embarcadero的文档了解更多详情：

资源和图像

然后，您可以使用TResourceStream在运行时访问资源数据。 构造一个TJPEGImage对象，将流加载到其中，并将其分配给TImage ：

uses
  ..., Classes, Jpeg;

var
  Strm: TResourceStream;
  Jpg: TJPEGImage;
begin 
  Strm := TResourceStream.Create(HInstance, '<Resource identifier>', RT_RCDATA);
  try
    Jpg := TJPEGImage.Create;
    try
      Jpg.LoadFromStream(Strm);
      Image1.Picture.Assign(Jpg);
    finally
      Jpg.Free;
    end;
  finally
    Strm.Free;
  end;
end;

Answer 2

设计表单时，可以使用Object Inspector分配图像。 图像将存储在Form的DFM中，并在程序运行时自动加载。

在Object Inspector中选择TImage和

• 选择Picture属性
• 单击...按钮以打开图片编辑器
• 按加载...按钮，然后选择图像文件
• 单击确定按钮关闭编辑器。

如果你想在代码中加载图像，就像Remy所展示的那样。