GIf Resource in delphi

Question

I'm trying to do a simple resource(GIF) opening in delphi, res.RC file :

Loading RCDATA "loadingAd.gif"

Code:

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

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

But every time i get 0, i'm using XE4 so i tried maybe :

{$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;

Still getting "Resource not found".

Answer 1

You're searching for the resource under the wrong resource type. The string 'RCDATA' is not the same as the constant RT_RCDATA , which is actually the integer 10 coerced to have type PChar . Use that instead of the string literal. If the resource still isn't found, verify using a resource browser that your program really contains the resources you expect it to.