精华公布栏

发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: BC++ Builder 3.0中各种资源的利用
发信站: 哈工大紫丁香 (Sun Sep  3 07:51:13 2000), 转信

在编写程序的过程中，经常要用到各种资源。比如说，想给
自己的程序换个自己的图标，使用一些活泼的光标来增加趣
味性，播放一些声音和动画文件，或者使用别人写好的程序
来实现某个功能。我们往往希望将这些资源直接放到EXE 文件
中以形成一个单独的可执行文件，这就存在一个如何在运行
时访问和使用这些资源的问题。
---- 在编译期间，这就要用到一种文件，以 .rc 结尾的资源定
义文件。
---- 一： RC 文件
---- rc 文件是个文本文件，它的格式很简单，按如下格式定义
：
---- 资源标识符资源类型资源的路径
---- 以下的 rc 文件定义了一个声音资源，两个光标资源，三个
图标资源和一个exe 文件资源。
src1.rc:
  S1        WAV     wav1.Wav
  C1      CURSOR  cursor1.cur
  C2      CURSOR  cursor2.cur
  I1        ICON    icone1.ico
  I2        ICON    icone2.ico
  I3        ICON    icone3.ico
  unzip    EXEFILE  pkunzip.exe
---- 你可以将写好的 rc 文件加到你的 project( 项目）中。你也可
以手工将其编译为供程序直接使用的二进制资源文件（.res
文件）。在BCB3.0 中，可以使用命令行： brcc32 src1.rc src1.res 。
---- 二：资源的使用
---- 下面，按照使用的简繁程度，依次说明各类资源的使用方
法。需要说明的是，下面讲述的使用方法，在别的编译环境
下（BC, VC 等）也是一样的。
---- 1：建立一个新的项目
---- 启动 BCB3.0, 选 FILE- >new- >Application 建立一个新的项目。
---- 在 project- >Add to Project 中，加入写好的 src1.rc 文件。当然，
那些声音、光标、图标文件都应该存在。
---- 这时，我们有了一个空的窗体(Form)。
---- 2：能够利用 windows API 函数直接访问的资源有：
  图标    LoadIcon（）
  光标    LoadCursor（）
  加速表  LoadAccelerators（）
  位图    LoadBitmap（）
  菜单    LoadMenu（）
  字符串  LoadString（）
---- 前五个 API 函数使用方法都一样，带两个参数。
---- 第一个参数指明资源的存放地，第二个参数为 rc 文件中
资源的标识。
---- 字符串 LoadString 除这两个参数外，还有两个参数，指明字
符串缓冲区的地址和大小。
---- 下面的一小段程序示范了图标和光标的使用。
---- 在 Form 上放置一个按纽，在其 OnClick 事件中加入以下代码
：
void __fastcall TForm1::Button1Click(TObject *Sender) {
// 将光标形状改为自己定义的：
Screen- >Cursors[crDefault] = LoadCursor( HInstance, "C1");
// 将图标改为自己定义的：
Icon = new TIcon() ;
Icon- >Handle = LoadIcon(HInstance,"I1");
Application- >Icon = Icon ;
  }
---- 其中的 HInstance 指示资源所在地为执行文件。编译执行后
，点击该按纽，光标和图标都会换成新的。
---- 3：能够通过 windows API 使用的资源
---- 对于声音、动画等文件，可以使用 windows API 函数播放。但
是不象上面几种资源，需要遵循一定的步骤。如下所示，依
次调用 FindResource, LoadResource, LockResource 函数，来播放一个Wav
声音文件。
---- （当然，独立的声音文件可以在运行时直接播放。我们这
里讨论的是将 wav 文件编译进 EXE 文件的情况）
---- 在 Form 上放置第二个按纽，在其 OnClick 事件中加入以下代
码：
void __fastcall TForm1::Button2Click(TObject *Sender)
//定义资源块
char *wav_handle ;
//装入 Wav文件
HRSRC h = FindResource(HInstance,"S1","WAV");
   HGLOBAL h1 = LoadResource(HInstance, h);
   wav_handle = (char *)LockResource(h1);
//播放 Wav文件。由于Wav文件装载在内存中，
   sndPlaySound函数要用 SND_MEMORY参数
sndPlaySound(wav_handle, SND_MEMORY | SND_SYNC);
  }
---- 编译执行后，点击该按纽，会播放一次声音。
---- 对于动画等文件，使用方式类似Wav 文件。（ BCB 提供了一个
TAnimate 控件，可以播放无声的Avi 文件）
---- 4：不能直接通过 windows API 使用的资源
---- 此种资源不能够由 windows API 直接访问和执行。但是，我们
可以用一种变通的方法来使用它。
---- 下面示范如何使用 pkunzip.exe，思路如下：程序运行时，将
pkunzip.exe 从EXE 文件中分离出来，放在临时目录下，用 ShellExec
ute() 执行它。
---- 在FORM 上放置第三个按纽，在放置两个 Edit , 用来输入 pkun
zip.exe 的参数。
void __fastcall TForm1::Button3Click(TObject *Sender)
  {
char exefile[100], tmppath[100] ;
    unsigned long ret ;
    //检查 pkunzip.exe是否已经存在
GetTempPath( 100, tmppath ) ;
    strcpy( exefile ,(AnsiString(tmppath)+
    AnsiString("\\pkunzip.exe") ).c_str() ) ;
ret = GetFileAttributes( exefile ) ;
    if( ret == 0xffffffff ) { //不存在，则分离出 pkunzip.exe
         TResourceStream &rs = *new TResourceStream(
          (int)HInstance, AnsiString("unzip"),"EXEFILE" ) ;
   rs.SaveToFile( AnsiString(exefile) ) ;
          delete &rs ;
  }
  //执行 pkunzip.exe
// Edit1- >Text和 Edit2- >Text分别为运行时
    输入的zip文件名和目标文件目录。
ShellExecute(HInstance, "open", exefile, \
      (AnsiString("-d ") + Edit1- >Text +
      " " + Edit2- >Text).c_str(), \
          tmppath, SW_HIDE ) ;
        Application- >MessageBox("解压缩完成", "OK", IDOK ) ;
  }
---- 此种方法实际上是用时间和空间来换取便利性，有一定
的参考价值。例如，DynaDoc 的免费分发版本，就是将真正的执
行程序压缩后放在一个有解压缩功能的“ 壳” 中。运行时，首
先是“ 壳” 运行起来，将真正的执行程序解压缩到临时目录，
然后去运行它。如果你的程序含有大量的BMP,WAV 文件，不妨一
试，能让你的程序减肥不少。

--
※ 修改:．haojs 于 Sep  3 07:48:45 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]