各位老大在程序中使用res资源文件有什么好处,详细的,先在此写谢过了

解决方案 »

  1.   

    可以把很多文件都写到res中,这样打包时,可以省略很多文件
      

  2.   

     资源文件一般为扩展名为res的文件。在VC中资源文件用得非常普遍,   
      但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的   
      资源编译工具BRCC32.EXE(一般位于\Delphi\BIN目录下),我们完全可   
      以做出跟VC一样效果的文件来。\资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一   
      起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如   
      在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下   
      (通常是主程序所在路径),但如果用户路径误删你的图片文件,则可能   
      使程序找不到相应文件而出错崩溃。另外,如果你想自己的程序界面美观,   
      想用一些自定义光标,也要用到资源文件。   
      资源文件的使用步骤为:   
      1.编写rc脚本文本   
      用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如:   
      mycur   cursor   move.cur   //加入光标   
      mypic   Bitmap   Water.BMP   //加入位图   
      mywav   WAVE   happy.wav   //加入声音   
      myAVI   AVI   EPOEN.AVI   //加入视频   
      myIco   ICON   CJT.ICO   //加入图标   
      格式分别为在资源文件中的名称->类型->实际文件名称,例如上面   
      第一行   定义一个名为mycur的光标,实际名称为加入光标move.cur.   
      2.将rc文件编译成res资源文件   
      将脚本文件和实际文件拷到Brcc32.EXE所在目录,执行DOS命令。   
      格式为:Brcc32   脚本文件(回车),例如有一名为myfirst.rc的脚本文件,   
      则执行   Brcc32   myfirst.rc(回车)即可。如果你是懒人,也可新建一批   
      处理文件,内容   只有一行:Brcc32   mufist.rc.(因为Delphi安装后一般会   
      在自动批处理文件中指明搜索路径的。)如果编译成功,则会生成一个结尾   
      为res的文件,这个   文件就是我们需要的资源文件。   
      3.在Delphi单元中加入资源文件   
      将生成的res资源文件拷贝到你所编程序的路径下,在单元文件   
      {$R   *DFM}后加上一句{$R   mufirst.res},则将res文件加入去,编译后资     
      源文件即已包含在可执行文件中了。若你有多个资源文件,也按上法依次   
      加入。   
      4.在Delphi程序中调用资源文件   
      资源文件在Delphi中的关键字为hinstance.下面给出具体用法   
      <1>光标的调用   
      首先在程序中定义一个值大于0的常量,因为Delphi本身用0-负   
      16来索引   默认的光标,所以我们制定的光标应从表面上1开始索引。然后   
      在窗口的Oncreat事件中添加以下代码:   
      screen.cursor[35]:Load   cursor   (hinstance,'mycur');   
      其中35为大于1的常量,mycur为光标在资源文件中的名字。如   
      果希望在   其他控件上使用定制光标,例如Panel控件,只需在程序的适当   
      处加入以下代码:   
      Panel1.cursor:=35;   
      <2>位图的调用   
      新建一项工程,添加一Timage控件,在需要显示的地方写以下代码:   
      Var   mymap:Hbitmap;   
      begin     
      hmymap:=LoadBitmap(hinstance,'mypic');   
      Image1.picture.Bitmap.Handle:=mymap;   
      end;   
      其中"mypic"为位图资源文件中的名称。   
      〈3〉AVI文件的调用   
      新建一工程,添加一Animate控件,在需要的地方加入:   
      animater1.resname:='myAVI';   
      animater1.Active:=true;   
      其中myAVI为视频文件在资源文件中的名称。   
      〈4〉调用WAV文件   
      在uses中加入mmsystm单元,以便在程序中播放WAV文件。播放时Playsound   
      (pchar('mywav'),hinstance,sndsync   or   snd_resource);其中mywav为声音   
      文件在资源中的名称。   
      〈5〉加入光标   
      加入光标比较容易,只要将res文件加入单元文件中即可。但需注意,名称   
      最好取"W"."WW"等,使第一个字母尽量靠后,以免与主程序的图标顺序颠倒。   
      补充:1.资源类型除上述类型外,还可以字体文件,字符串文件等。   
      2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。   
      下面我们来试验一下:   
      新建一工程,将唯一的一个Form删除,然后修改工程文件。增加一句   
      {$Apptype   console},在uses子句中加入mmsystem,并将其它引用单元   
      删掉。将Begin和end之间语句删掉。至此,我们就可和Turbo   PASCAL   
      下编程序一样,且还可以调用windows的API和资源。将资源文件----   
      {$R   myfist.res}加入。在Begin和end之间写下:   
      writeln('演示程序,按任意键开始!');   
      readln;   
      playsound(pchar('mywav'),hinstance,snd_sync   or   snd_resource);   
      writeln('演示结束!');   
      运行程序,将弹出一个标准DOS窗口,按任意键播放声音文件。是不是很COOL呢!   
      我曾下载过一个播放器,在其安装目录下我发现有一"DOS程序",用鼠标双击它   
      便弹出一个DOS窗口,显示DOS时代特有的画图,并有背景音乐!可能就是用这个   
      方法做的。   
      3.Delphi本身自带了一个叫Image   Editor的工具,同样可以编辑资源文   
      本,但和本文的方法比较,可得出下表:   
        
      **************************************   
      Image   Editor   Brcc32   
        
      BMP   只支持16位色   任意色   
        
      光标   黑白两色   任意色   
        
      ICO   只支持16位色   任意色   
        
      AVI   不支持   支持   
        
      WAV   不支持   支持   
        
      字体     
      字符串   不支持   支持   
      其他     
      ****************************************Top回复于 2004-06-22 21:23:47 得分 0 
    还是转贴(这是关于flash的)   
        
      首先新建一个资源文件“MyRes.rc”(文本文件),并加入如下一行:   
      MyFlash   RCDATA   "MyFlashFile.swf"    
      “MyFlash”是指资源文件的名称,“MyFlashFile.swf”是指你要编入EXE的动画文件。   
      然后编译资源文件:   
      brcc32   C:\MyRes.rc   
      “BRCC32.EXE”在Delphi的BIN目录下,编译后得到“MyRes.res”。   
      在程序中加入:   
      {$R   MyRes.res}   
      将资源文件编入EXE中。   
        
      以下是将资源文件中EXE中读出并写入特定的文件的代码:   
      var   
          ResStream:   TResourceStream;   
          FileStream:   TFileStream;   
      begin   
          ResStream   :=   TResourceStream.Create(0,   'MyFlash',   RT_RCDATA);   
          try   
              FileStream   :=   TFileStream.Create('C:\MyFlashFile.swf',   fmCreate);   
              try   
                  FileStream.CopyFrom(ResStream,   0);   
              finally   
                  FileStream.Free;   
              end;   
          finally   
              ResStream.Free;   
          end;   
      end;