GIF 자원

Question

나는 간단한 자원 (GIF) 델파이의 개방, res.RC 파일을 할 노력하고있어 :

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과 같지 않습니다. 실제로는 정수 10이 강제로 입력되어 PChar입니다. 문자열 리터럴 대신 사용하십시오. 그래도 자원을 찾을 수 없으면 자원 브라우저를 사용하여 프로그램에 실제로 자원이 포함되어 있는지 확인하십시오.