如何添加资源并使用它们

Question

在我的应用程序中,我想添加2个图像作为资源

我想使用那些图像,当我在我的应用程序中单击是按钮时,第一个图像将被设置为壁纸,当我在我的应用程序中单击否按钮时,第二个图像将被设置为桌面壁纸

提前致谢

问候

Answer 1

最简单的方法是创建一个文本文件,并将其命名为resources.rc或其他东西(只要它与项目文件的名称不同,因为它已经拥有自己的资源文件).

如果您要添加图片,则需要添加如下行:

IMG_1 BITMAP "c:\my files\image1.bmp"
IMG_2 RCDATA "c:\my files\image2.jpg"

请注意,第一个参数是唯一的标识资源名称.第二个参数是资源类型.有些常量可用,例如BITMAP和AVI.对于其他人,请使用RCDATA.第三个参数是资源的完整路径和文件名.

现在,在Delphi中,您可以将此.rc文件添加到项目管理器中的项目中.

要使用资源,您需要根据资源类型使用不同的方法.

要加载位图,您可以使用:

imgWallpaper1.Picture.Bitmap.LoadFromResourceName(HInstance, 'IMG_1');

要加载JPEG,您需要将其转换为:

var
   jpgLogo: TJpegImage;
   RStream: TResourceStream;
begin
     RStream := TResourceStream.Create(HInstance, 'IMG_2', RT_RCDATA);
     Try
        jpgLogo := TJpegImage.Create;
        Try
           jpgLogo.LoadFromStream(RStream);
           imgLogo.Picture.Graphic := jpgLogo;
        Finally
           jpgLogo.Free;
        End;
     Finally
        RStream.Free;
     End; {Try..Finally}