Gif中的Gif资源

Question

我正在尝试在delphi，res.RC文件中打开一个简单的resource（GIF）：

Loading RCDATA "loadingAd.gif"

码：

{$R *.dfm}
{$R res.RES}

procedure TForm1.Image1Click(Sender: TObject);
var h : THandle;
begin
   h := FindResource(HInstance, 'Loading', 'RCDATA');
   showmessage(IntToStr(h))
end;

但是每次我得到0时，我都在使用XE4，所以我尝试了：

{$R *.dfm}
{$R res.RES}

procedure TForm1.Image1Click(Sender: TObject);
var h : THandle;
begin
   h := FindResource(HInstance, PChar('Loading'), PChar('RCDATA'));
   showmessage(IntToStr(h))
end;

仍在获取“找不到资源”。

Answer 1

您在错误的资源类型下搜索资源。 字符串'RCDATA'与常量RT_RCDATA ，后者实际上是强制为PChar类型的整数10。 使用它代替字符串文字。 如果仍然找不到资源，请使用资源浏览器验证程序是否确实包含期望的资源。