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

Question

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

Answer 1

编辑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;

Answer 2

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