林凌

　　資源是存放在擴展名.RES的文件里的二進制數據結構，在DELPHI中資源文件可以使用圖象編輯器來制作(IMAGEEDITOR)，或者使用其他的工具。如：BORLAND公司提供的RADPACKFORDELPHI中的RESOURCEWORKSHOP來創建。資源文件中通常存放的是應用程序可以隨時存取的一些對象，包括：ICON、CURSOR、BITMAP、FONT等近十種。大部分的資源在通常的情況下可以保留在磁盤當中，直到程序需要使用它們時才將其調入，可以大大的節省內存資源，同樣，資源文件也是可以共享的，即：多個程序可以共享一個資源文件，進而減少了在應用程序之間代碼重復的現象，使程序的代碼得到很大的優化，因此在應用程序中使用資源文件有獨立制作、方便、隨時修改而不需要對應用程序代碼做任何修改的好處。

　　一般來說，一個應用程序的所有資源都存放在一個RES文件里，然后在DELPHI進行編譯的階段將資源文件的內容與最終的EXE文件合并在一起，因此編譯后的RES文件并沒有什么作用，僅僅提供用來查閱使用，在分發應用時不必把RES文件分發給最終用戶。當然，不同的資源可以分別放在不同的資源文件當中，而且資源文件越小調入內存的速度越快。在這里還要說明的一點是：在修改了原來的資源文件之后，在原來編譯的EXE文件中加入的資源不會隨之而更新，只有在重新進行編譯以后，才能將新的資源加入到新的EXE文件當中去。

　　下面我們通過兩個例子來說明在DELPHI中如何使用資源文件(在這里我們不講述資源文件的制作方法)。

　　1、如何在DELPHI中使用定制的光標。

　　在使用DELPHI進行編程時，有一個很重要的對象──TSCREEN，它是用來管理和操縱運行時期屏幕的不可視構件。它的CURSOR屬性是用來指定各個不同的構件光標形狀，聲名為：

　　PROPERTY CURSORS[INDEX：INTEGER]：HCURSOR；

　　這個只讀的特性返回應用程序支持的光標組成的一個HCURSOR類型的數組，它存儲了屏幕上所有的鼠標光標的身份代碼(HCURSOR就是光標的HANDLE句柄)，數組下標從0開始，在DELPHI預定義了一些代表不同光標的常量，它的值是從0到-17，您可以直接指定程序使用的光標。如：

　　FORM1.CURSOR:=-3表示FORM1采用的光標是CRCROSS(十字)。

　　大家可能都會發現構件的CURSOR的屬性最多提供十八種常用的CURSOR值，這在很多的情況下是不夠的，如：當光標進入一個PANEL面板時光標的形狀為一只手，那么PANEL的CURSOR就不能滿足這種要求，這時就需要我們自定義一個手的光標并將其賦給PANEL的CURSOR屬性。如何實現則可以按以下步驟進行：

　　使用資源文件編輯器(IMAGE EDITOR或者RESOURCE WORKSHOP)編寫資源文件。

　　定義一個光標常量，注意這個常量不能與DELPHI中提供的光標常量相沖突。在FORMCREATE事件中使用WINDOWSAPI當中的LOADCURSOR函數來載入自定義的CURSOR。

　　在程序中將自定義的CURSOR分配給PANEL的CURSOR屬性。

　　下面說明如何將自定義的一只手的鼠標光標賦給PANEL1的CURSOR屬性。首先使用IMAGEEDITOR建立一個HAND.RES的文件。之后按如下書寫程序代碼：

　　implementation

　　{$R*.DFM}

　　const

　　Crhand=2;

　　procedure TForm1.FormCreate(Sender:TObject);

　　begin

　　screen.cursors[crhand]:=loadcursor(Hinstance,'hand');

　　panel1.cursor:=crhand;

　　end;

　　除了編寫上面的代碼以外,我們還需要做的一項工作是將資源文件加入到項目文件當中去,編譯指令中的{$Rfilename}偽指令讓我們來增加資源文件，讓我們來看一看項目文件的代碼。

　　program PCUR;

　　uses Forms,

　　HANDin'HAND.pas'{Form1};

　　{$R*.RES}

　　//這里的*意義為在程序編譯以后會產生一個與項目文件同名的資源文件，在這里為PCUR.RES文件,這部分是自動產生的。

　　{$Rhand.res}//這部分是我們自己加入的自定義資源文件，這兩個資源文件(HAND.RES和//PCUR.RES中的資源都會附加在可執行文件PCUR.EXE的后面。

　　begin

　　Application.Initialize;

　　Application.CreateForm(TForm1,Form1);

　　Application.Run;

　　end.

　　2、資源文件在編寫動畫程序中的應用

　　上面的例子使用的是在資源文件中存儲的CURSOR資源，在下面的例子中我們將使用的是在資源文件中提供的ICON資源來編寫一個小小的動畫程序。在這里動畫的產生是利用定時器在一定的時間間隔內產生TIMER事件將存儲在資源文件中的ICON依次的繪制在FORM的同一處而產生的。這時要用到畫布CANVAS的DRAW方法，其聲明如下：

　　procedureDraw(X,Y:Integer;Graphic:TGraphic);

　　在這個方法當中的參數GRAPHIC可以為：BITMAPS、ICONS、METAFILES。具體的實現方法為：建立DEMO.RES文件,其中含有名為ICON1桰CON6的ICON。并將DEMO.RES加到項目原代碼中去(如:上面例子的方法)。

　　動畫程序的具體代碼如下：

　　unit donghua;

　　interface

　　uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,

　　Dialogs,ExtCtrls;

　　type

　　TForm1=class(TForm)

　　Image1:TImage;

　　Timer1:TTimer;

　　procedure FormCreate(Sender:TObject);

　　procedure Timer1Timer(Sender:TObject);

　　private

　　{Privatedeclarations}

　　public

　　{Publicdeclarations}

　　end;

　　var

　　Form1:TForm1;

　　implementation

　　var

　　wicon:array[0..5] of Ticon;

　　//建立TICON類型的數組存儲ICON文件

　　idx:integer;

　　{$R*.DFM}

　　procedure TForm1.FormCreate(Sender:TObject);

　　var

　　iconname:string;

　　piconame:pchar;

　　begin

　　piconame:=stralloc(7);

　　//建立PCHAR類型的字符串

　　for idx:=0 to 5 do

　　begin

　　wicon[idx]:=ticon.create;//建立TICON型對象

　　iconname:='icon'+inttostr(idx);

　　strpcopy(piconame,iconname);

　　//將STRING類型轉換成PCHAR類型

　　wicon[idx].handle:=loadicon(hinstance,piconame);

　　//調用WINDOWSAPI中的LOADICON函數

　　//載入資源中的ICON

　　end;

　　strdispose(piconame);//PCHAR類型的刪除

　　form1.canvas.draw(3,3,wicon[1]);

　　//調用DRAW的方法在FORM上畫出ICON1

　　idx:=1;

　　form1.setbounds(0,0,100,100);

　　//固定FORM的大小和位置

　　end;

　　procedure TForm1.Timer1Timer(Sender:TObject);

　　//形成動畫的定時器事件

　　begin

　　idx:=idx+1;

　　if idx=6 then idx:=1;

　　form1.canvas.draw(3,3,wicon[0]);

　　form1.canvas.draw(3,3,wicon[idx]);

　　end;

　　end.

　　以上可以作為一個通用的動畫程序，我們只需要修改不同的ICON以及增加IDX的大小就可以編出不同的動畫應用(同樣在資源中可以有其他形式的圖形如：BITMAPS這時需要動態創建的是TBITMAPS對象而不是TICON對象)。在兩個例子中我們都用到了WINDOWSAPI函數，這些函數在WINDOWS單元中均有說明在這里不加贅述。以上的兩個例子只是資源文件的一點點應用，要真正的掌握資源文件在程序設計中的強大作用，還要靠自己在實踐中不斷的總結。