BC++ Builder 3.0中各种资源的利用

韩冰

<>· 李进·- </P>
<>  </P>
& Z' T" z" J8 f, ~% H! m8 S<>　　在编写程序的过程中，经常要用到各种资源。比如说，想给自己的程序换个 自己的图 </P>
/ y- l, y% T( X: R' |. A% h<>标，使用一些活泼的光标来增加趣味性，播放一些声音和动画文件，或者使用别人写好的程 </P>
4 O* K- q% w) N: d; w<>序来实现某个功能。我们往往希望将这些资源 直接放到EXE文件中以形成一个单独的可执行 </P>
+ C: A+ r. _! @8 x3 f8 Y2 e<>文件，这就存在一个如何在运行时访问和使用这些资源的问题。在编译期间，这就要用到一 </P>
<>种文件，以.rc结尾的资源定义文件。 </P>
<>  </P>
4 u4 o: I, k) \5 A<>一：RC文件 </P>
! W9 k0 b: ]! y, R6 M. D8 g<>  </P>
/ @$ W1 a9 f9 B/ v% B<>　　rc文件是个文本文件，它的格式很简单，按如下格式定义： </P>
<>  </P>
<>　　资源标识符资源类型资源的路径以下的rc文件定义了一个声音资源，两个光标资源，三 </P>
<>个图标资源和一个exe 文件资源。 </P>
<>  </P>
, T' q8 |! B) I( C$ o4 R<>  </P>
* L( Q1 z  Q! {/ a<>src1.rc: </P>
+ Y; D) j1 i- q' B; H3 {4 z5 _$ K<>S1 WAV wav1.Wav </P>
9 o& O7 H& k1 @0 I& u! V<>C1 CURSOR cursor1.cur </P>
<>C2 CURSOR cursor2.cur </P>
( J5 ]( K3 r4 W# r) Q<>I1 ICON icone1.ico </P>
<>I2 ICON icone2.ico </P>
1 T7 q" T; Z& X4 l( ?- H<>I3 ICON icone3.ico </P>
3 w2 k1 h- ?& E/ y' U3 X7 ~* Y<>unzip EXEFILE pkunzip.exe </P>
<>  </P>
<>  </P>
$ k+ \8 P4 q  K/ v4 H<>　　你可以将写好的rc文件加到你的project(项目）中。你也可以手工将 其编译为供程序 </P>
<>直接使用的二进制资源文件（.res文件）。在BCB3.0中，可以使用命令行：brcc32src1. </P>
<>rcsrc1.res。 </P>
4 l# p* e7 w6 ]; \& h6 ]% {2 r<>  </P>
<P>二：资源的使用 </P>
  ]1 Y- g' p# H3 A* O8 Z% |<P>  </P>
, M. |9 K1 Q, _) R( {' s<P>　　下面，按照使用的简繁程度，依次说明各类资源的使用方法。需要说 明的是，下面讲 </P>
. @, x: s) w, S, ]0 T7 n  n! D9 F<P>述的使用方法，在别的编译环境下（BC,VC等）也是一样的。 </P>
<P>1：建立一个新的项目 </P>
2 Y4 C  G% N, }2 C. S<P>　　启动BCB3.0,选FILE-&gt;new-&gt;Application建立一个新的项目。在 </P>
' B, f7 o' {' N* I% n<P>project-&gt;AddtoProject中，加入写好的src1.rc文件。当然，那些声音、光标、图标文件都 </P>
7 [( [( b/ o+ X9 z<P>应该存在。这时，我们有了一个空的窗体(Form)。 </P>
* W, x2 |" g# i<P>2：能够利用windowsAPI函数直接访问的资源有： </P>
<P>  </P>
; z1 o7 C* d) x# N( r( T6 y<P>  </P>
<P>图标LoadIcon（） </P>
<P>光标LoadCursor（） </P>
<P>加速表LoadAccelerators（） </P>
! d9 R! O4 \$ K<P>位图LoadBitmap（） </P>
<P>菜单LoadMenu（） </P>
<P>字符串LoadString（） </P>
3 l) c/ Y8 L0 L4 ]7 ]+ g* i9 J<P>  </P>
  C" `  v# M+ z  {! _5 y: k<P>  </P>
3 \& \: c! ?. A& k  t; t' V<P>　　前五个API函数使用方法都一样，带两个参数。第一个参数指明资源的存放地，第二个 </P>
/ G5 T1 G' \$ r9 k. j' |<P>参数为rc文件中资源的标识。字符串LoadString除这两个参数外，还有两个参数，指明字符 </P>
1 m' M- u, i+ W2 [) p% i: n  P9 F<P>串缓冲区的地址和大小。下面的一小段程序示范了图标和光标的使用。在Form上放置一个按 </P>
  ^* e& r2 v. S6 Z' B" O+ B<P>纽，在其OnClick事件中加入以下代码： </P>
  _+ ^6 |2 E' g- }" c# p8 N<P>  </P>
<P>  </P>
/ N7 d! S3 r% P. v1 Y<P>void __fastcall TForm1::Button1Click(TObject *Sender) { </P>
! e- c# v( c) |<P>// 将光标形状改为自己定义的： </P>
<P>Screen- &gt;Cursors[crDefault] = LoadCursor( HInstance, "C1"); </P>
<P>// 将图标改为自己定义的： </P>
<P>Icon = new TIcon() ; </P>
<P>Icon- &gt;Handle = LoadIcon(HInstance,"I1"); </P>
<P>Application- &gt;Icon = Icon ; </P>
  g7 @; u1 i1 N<P>} </P>
<P>  </P>
7 i; y* |2 i/ A8 b8 i<P>  </P>
, {% u2 }- p, A" y<P>　　其中的HInstance指示资源所在地为执行文件。编译执行后，点击该按纽， 光标和图标 </P>
# _9 e; e% m4 s9 \0 }# _! b<P>都会换成新的。 </P>
% N3 r2 p( |6 `; S5 {9 t- m% [0 f<P>  </P>
<P>3：能够通过windowsAPI使用的资源 </P>
<P>  </P>
<P>　　对于声音、动画等文件，可以使用windowsAPI函数播放。但是不象上面几 种资源，需 </P>
! P/ p4 C7 c* @<P>要遵循一定的步骤。如下所示，依次调用FindResource,LoadResource,LockResource函数， </P>
# d5 A$ o% x, l. \" K$ Z+ ]2 ]2 m<P>来播放一个Wav声音文件。(当然，独立的声音文件可以在运行时直接播放。我们这里讨论的 </P>
* t/ z  ?/ x! k  V9 R+ b! h" C/ m<P>是将wav文件编译进EXE文件的情况） </P>
1 u6 @+ V6 }0 _1 }2 P# t- o<P>  </P>
<P>　　在Form上放置第二个按纽，在其OnClick事件中加入以下代码： </P>
<P>  </P>
* g) A: H8 f: r7 v<P>  </P>
1 ]+ L" R, Z+ ~% [& [3 P- y; e<P>void __fastcall TForm1::Button2Click(TObject *Sender) </P>
<P>     //定义资源块 </P>
<P>     char *wav_handle ; </P>
<P>     //装入 Wav文件 </P>
3 w1 i- u4 j, k- V7 z<P>     HRSRC h = FindResource(HInstance,"S1","WAV"); </P>
<P>     HGLOBAL h1 = LoadResource(HInstance, h); </P>
<P>     wav_handle = (char *)LockResource(h1); </P>
<P>     //播放 Wav文件。由于Wav文件装载在内存中， </P>
) J7 l3 n! a( o7 ?0 l<P>sndPlaySound函数要用 SND_MEMORY参数 </P>
( o( K2 f7 T0 z) R* A) E<P>     sndPlaySound(wav_handle, SND_MEMORY | SND_SYNC); </P>
" p9 m, I4 }! }% V) f' ^6 f<P>} </P>
5 Z1 n# t* U9 t8 j. S5 j  k<P>  </P>
<P>  </P>
* c( X$ D8 o. u! _$ S$ E<P>　　编译执行后，点击该按纽，会播放一次声音。对于动画等文件，使用方式类似Wav文件 </P>
<P>。（BCB提供了一个TAnimate控件，可以播放无声的Avi文件） </P>
<P>  </P>
<P>4：不能直接通过windowsAPI使用的资源 </P>
<P>  </P>
2 T, q! |2 p; d<P>　　此种资源不能够由windowsAPI直接访问和执行。但是，我们可以用一种 变通的方法来 </P>
<P>使用它。下面示范如何使用pkunzip.exe，思路如下：程序运行时，将pkunzip.exe从EXE文 </P>
% W$ h: U6 B$ l% p+ l! J& c3 g6 T<P>件中分离出来，放在临时目录下，用ShellExecute()执行它。 </P>
<P>  </P>
<P>  </P>
<P>　　在FORM上放置第三个按纽，在放置两个Edit,用来输入pkunzip.exe 的参数。 </P>
/ E/ l7 L  V( l0 X& A9 X0 q* U<P>  </P>
6 j, C, b' ^. T2 n/ ~7 e" |<P>  </P>
! z6 j9 M! s0 X<P>void __fastcall TForm1::Button3Click(TObject *Sender) </P>
* p4 G( ?1 m( C% ]! Z0 ^<P>{ </P>
<P>     char exefile[100], tmppath[100] ; </P>
<P>     unsigned long ret ; </P>
<P>     //检查 pkunzip.exe是否已经存在 </P>
) L' }8 _" I9 [1 l" J/ Q% K<P>     GetTempPath( 100, tmppath ) ; </P>
<P>     strcpy( exefile ,(AnsiString(tmppath)+ </P>
$ P" H; h5 d" ^# d4 b<P>AnsiString("<a>\\pkunzip.exe</A>") ).c_str() ) ; </P>
: s4 i8 _1 x1 ?* T$ i<P>     ret = GetFileAttributes( exefile ) ; </P>
<P>     if( ret == 0xffffffff ) { //不存在，则分离出 pkunzip.exe </P>
<P>     TResourceStream &amp;rs = *new TResourceStream( </P>
* F9 e) Y  n2 k. d2 _0 q' _<P>(int)HInstance, AnsiString("unzip"),"EXEFILE" ) ; </P>
<P>     rs.SaveToFile( AnsiString(exefile) ) ; </P>
# ]7 h7 }) C$ L1 s<P>delete &amp;rs ; </P>
3 f: j, G9 y" J. D9 F4 c' C<P>     } </P>
<P>     //执行 pkunzip.exe </P>
& U: R) E! k9 j: @- M, A<P>     // Edit1- &gt;Text和 Edit2- &gt;Text分别为运行时 </P>
' z2 X* F) q% F6 }( S0 ]<P>输入的zip文件名和目标文件目录。 </P>
<P>     ShellExecute(HInstance,     "open", exefile, \ </P>
<P>     (AnsiString("-d ") + Edit1- &gt;Text + </P>
<P>" " + Edit2- &gt;Text).c_str(), \ </P>
: p- {; P& V. R<P>tmppath, SW_HIDE ) ; </P>
) X6 [1 d) }2 |" G& v<P>Application- &gt;MessageBox("解压缩完成", "OK", IDOK ) ; </P>
4 r2 I- w  Q3 {3 n( T. @, I
<P>} </P>
* }: O) j. ^8 o2 J$ e7 S0 ]' W<P>  </P>
( X0 _' e% N0 y- ~& H<P>  </P>
! b0 N, T! W( E, F  E<P>　　此种方法实际上是用时间和空间来换取便利性，有一定的参考价值。例如，DynaDoc的 </P>
<P>免费分发版本，就是将真正的执行程序压缩后放在一个有解压缩功能的“壳”中。运行时， </P>
9 H1 ~. _) P1 M<P>首先是“壳”运行起来,将真正的执行程序解压缩到临时目录，然后去运行它。如果你的程 </P>
3 W  L: p% K; Q% u9 V<P>序含有大量的BMP,WAV文件，不妨一试，能让你的程序减肥不少。 </P>