资源文件的问题，真的找不到哪儿错，郁闷！

Question

Test.rc中的内容
XP RCDATA XP.JPG用brcc32 test.rc生成了 Test.res，在
{$R *.dfm}下面一行加入
{$R E:\test\test.res}以下的代码总是无法显示图片,真的找不到哪儿错，郁闷！unit uRes;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,jpeg;type
  TForm1 = class(TForm)
    img1: TImage;
    btn1: TBitBtn;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
{$R E:\Test\test.res}
procedure TForm1.btn1Click(Sender: TObject);
var
  Res:TResourceStream;
  Jpeg:TJPEGImage;
begin
  if FindResource(HInstance, 'XP','RCDATA')>0 then
      ShowMessage('OK')
  else
      Exit;
  try
    Res:=TResourceStream.Create(HInstance,'XP',PCHAR('RCDATA'));
    Jpeg:=TJPEGImage.Create;
    Jpeg.LoadFromStream(Res);
    img1.Picture.Bitmap.Assign(Jpeg);
  finally
    Res.Free;
    Jpeg.Free;
  end;
end;end.

Answer 1

靠，还是自己搞定了，为什么这问题居然没人回答，郁闷。代码如下：
顶着有分，分数不能收回，晕。
procedure TForm1.btn1Click(Sender: TObject);
var
  Res:TResourceStream;
  Jpeg:TJPEGImage;
begin
  if FindResource(HInstance, 'XP',RT_RCDATA)>0 then
      ShowMessage('OK')
  else
      Exit;
  try
    Res:=TResourceStream.Create(HInstance,'XP',RT_RCDATA);
    Jpeg:=TJPEGImage.Create;
    Jpeg.LoadFromStream(Res);
    img1.Picture.Bitmap.Assign(Jpeg);
  finally
    Res.Free;
    Jpeg.Free;
  end;
end;

Answer 2

近来学习，帮楼主揭帖来。hoho

Answer 3

谢谢， zzlingaaa(小舟) 。下次知道了，我还有一贴至今未结。
不过分不多，让人顶有分都没有人顶，此贴要结贴了.