如何调用资源文件(*.RES)??

[3homer]

我作了一个资源文件，
jpegs.res
____________________
JPEG1 RCDATA "1.pjg"
JPEG2 RCDATA "2.pjg"
JPEG3 RCDATA "3.pjg"
JPEG4 RCDATA "4.pjg"
____________________

我想在运行时在TImage中调用，如何做？

[smhpnuaa]

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

uses
Jpeg;

procedure GetJpgFormRes(const ResName,ResType:string;imgMain:Tbitmap);
var
imgTmp:TJPEGImage;
Res:TResourceStream;
begin
imgTmp:=TJPEGImage.Create;
Res := TResourcestream.Create(hinstance, pChar(ResName), pChar(ResType));//加载资源文件流
imgTmp.LoadFromStream(Res); //把流付给TJPEGImage
imgMain.Assign(imgTmp);
Res.Free;
imgTmp.Free;//注意要释放资源
end;

//下面是你要做的
begin
GetJpgFormRes(xxx,xxx,image1.picture.bitmap);//xxx代表了资源名！
end;

[Lulq21cn]

编辑JPG.RC文件
jpg1 jpeg 1.jpg
jpg2 jpeg 2.jpg
用BRCC32 JPG.RC
在程序中用
{$r jpg.res}
var
JPg:Tresourcestream;
begin
jpg:=Tresourcestream.create(hinstance,'jpg1','jpeg');
image1.picture.assign(Jpg);
JPg.free;
end;

[3homer]

to: Lulq21cn(望尘)
你的程序有问题，但多谢