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

发布时间：2020-12-15 09:42:52 所属栏目：大数据来源：网络整理

导读：我在程序中使用了T Image组件. 在运行时,我使用以下命令向组件添加图像： Image1.Picture.LoadFromFile('C:Users53941Pictureseq1.jpg'); 现在,我想在其他计算机上运行这个程序,这个计算机上没有这个图像文件. 那么,我如何将这个图像文件存储在程序可执

我在程序中使用了T Image组件.

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

Image1.Picture.LoadFromFile('C:Users53941Pictureseq1.jpg');

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

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

解决方法

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

Resources and Images

然后,您可以使用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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!