delphi中的GIf资源

我想在delphi中打开一个简单的资源（GIF）， res.RC文件：

Loading RCDATA "loadingAd.gif"

代码：

但每次我得到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;

---

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

您正在错误的资源类型下搜索资源。字符串

'RCDATA'

与常量

RT\u RCDATA

不同，后者实际上是强制使用类型

PChar

的整数10。使用它而不是字符串文本。如果仍然找不到资源，请使用资源浏览器验证您的程序是否确实包含您期望的资源。

您正在错误的资源类型下搜索资源。字符串

'RCDATA'

与常量

RT\u RCDATA

不同，后者实际上是强制使用类型

PChar

的整数10。使用它而不是字符串文本。如果仍然找不到资源，请使用资源浏览器验证您的程序是否确实包含您期望的资源。

是否确实编译了资源？您在尝试编译或尝试读取资源时是否遇到此问题？是的，我是使用BRCC32编译的，当我单击按钮时遇到此问题？尝试编译/读取所有caps中的资源名称

加载
如果您不使用caps，我会看到问题。这是否与此有关：
[dcc32提示]H2161警告：重复资源：类型10（RCDATA），ID为GIFIMAGE_1；文件C:\Users\evilkid\Desktop\pascal\Project1.dres资源保存；文件C:\Users\evilkid\Desktop\pascal\Project1.dres资源已丢弃。
首先，验证基本假设。您是否尝试在Resource Hacker中打开EXE以确保GIF链接到应用程序？您确定已编译资源？您在尝试编译或尝试读取资源时是否遇到此问题？是的，我是使用BRCC32编译的，当我单击按钮时遇到此问题？尝试编译/读取所有caps中的资源名称
加载
如果您不使用caps，我会看到问题。这是否与此有关：
[dcc32提示]H2161警告：重复资源：类型10（RCDATA），ID为GIFIMAGE_1；文件C:\Users\evilkid\Desktop\pascal\Project1.dres资源保存；文件C:\Users\evilkid\Desktop\pascal\Project1.dres资源已丢弃。
首先，验证基本假设。您是否尝试在Resource Hacker中打开EXE以确保GIF链接到应用程序中？
{$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;