| 在我們寫(xiě)的程序當中,總有一些配置信息需要保存下來(lái),以便完成程序的功能,最簡(jiǎn)單的辦法就是將這些信息寫(xiě)入INI文件中,程序初始化時(shí)再讀入.具體應用如下: 一.將信息寫(xiě)入.INI文件中. 1.所用的WINAPI函數原型為: BOOL WritePrivateProfileString( LPCTSTR lpAppName, LPCTSTR lpKeyName, LPCTSTR lpString, LPCTSTR lpFileName ); 其中各參數的意義: LPCTSTR lpAppName 是INI文件中的一個(gè)字段名. LPCTSTR lpKeyName 是lpAppName下的一個(gè)鍵名,通俗講就是變量名. LPCTSTR lpString 是鍵值,也就是變量的值,不過(guò)必須為L(cháng)PCTSTR型或CString型的. LPCTSTR lpFileName 是完整的INI文件名. 2.具體使用方法:設現有一名學(xué)生,需把他的姓名和年齡寫(xiě)入 c:\stud\student.ini 文件中. CString strName,strTemp; int nAge; strName="張三"; nAge=12; ::WritePrivateProfileString("StudentInfo","Name",strName,"c:\\stud\\student.ini"); 此時(shí)c:\stud\student.ini文件中的內容如下: [StudentInfo] Name=張三 3.要將學(xué)生的年齡保存下來(lái),只需將整型的值變?yōu)樽址图纯? strTemp.Format("%d",nAge); ::WritePrivateProfileString("StudentInfo","Age",strTemp,"c:\\stud\\student.ini"); 二.將信息從INI文件中讀入程序中的變量. 1.所用的WINAPI函數原型為: DWORD GetPrivateProfileString( LPCTSTR lpAppName, LPCTSTR lpKeyName, LPCTSTR lpDefault, LPTSTR lpReturnedString, DWORD nSize, LPCTSTR lpFileName ); 其中各參數的意義: 前二個(gè)參數與 WritePrivateProfileString中的意義一樣. lpDefault : 如果INI文件中沒(méi)有前兩個(gè)參數指定的字段名或鍵名,則將此值賦給變量. lpReturnedString : 接收INI文件中的值的CString對象,即目的緩存器. nSize : 目的緩存器的大小. lpFileName : 是完整的INI文件名. 2.具體使用方法:現要將上一步中寫(xiě)入的學(xué)生的信息讀入程序中. CString strStudName; int nStudAge; GetPrivateProfileString("StudentInfo","Name","默認姓名",strStudName.GetBuffer(MAX_PATH),MAX_PATH,"c:\\stud\\student.ini"); 執行后 strStudName 的值為:"張三",若前兩個(gè)參數有誤,其值為:"默認姓名". 3.讀入整型值要用另一個(gè)WINAPI函數: UINT GetPrivateProfileInt( LPCTSTR lpAppName, LPCTSTR lpKeyName, INT nDefault, LPCTSTR lpFileName ); 這里的參數意義與上相同.使用方法如下: nStudAge=GetPrivateProfileInt("StudentInfo","Age",10,"c:\\stud\\student.ini"); 三.循環(huán)寫(xiě)入多個(gè)值,設現有一程序,要將最近使用的幾個(gè)文件名保存下來(lái),具體程序如下: 1.寫(xiě)入: CString strTemp,strTempA; int i; int nCount=6; file://共有6個(gè)文件名需要保存 for(i=0;i {strTemp.Format("%d",i); strTempA=文件名; file://文件名可以從數組,列表框等處取得. ::WritePrivateProfileString("UseFileName","FileName"+strTemp,strTempA,"c:\\usefile\\usefile.ini"); } strTemp.Format("%d",nCount); ::WritePrivateProfileString("FileCount","Count",strTemp,"c:\\usefile\\usefile.ini"); file://將文件總數寫(xiě)入,以便讀出. 2.讀出: nCount=::GetPrivateProfileInt("FileCount","Count",0,"c:\\usefile\\usefile.ini"); for(i=0;i {strTemp.Format("%d",i); strTemp="FileName"+strTemp; ::GetPrivateProfileString("CurrentIni",strTemp,"default.fil", strTempA.GetBuffer(MAX_PATH),MAX_PATH,"c:\\usefile\\usefile.ini"); file://使用strTempA中的內容. } 補充四點(diǎn): 1.INI文件的路徑必須完整,文件名前面的各級目錄必須存在,否則寫(xiě)入不成功,該函數返回 FALSE 值. 2.文件名的路徑中必須為 \\ ,因為在VC++中, \\ 才表示一個(gè) \ . 3.也可將INI文件放在程序所在目錄,此時(shí) lpFileName 參數為: ".\\student.ini". 4.從網(wǎng)頁(yè)中粘貼源代碼時(shí),最好先粘貼至記事本中,再往VC中粘貼,否則易造成編譯錯誤,開(kāi)始時(shí)我也十分不解,好好的代碼怎么就不對呢?后來(lái)才找到這個(gè)方法.還有一些代碼中使用了全角字符如:＜，＼等,也會(huì ) 造成編譯錯誤. INI文件編程 INI文件在系統配置及應用程序參數保存與設置方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫(xiě)INI文件的方法，其中Delphi中操作INI文件，最為簡(jiǎn)潔，這是因為Delphi3提供了一個(gè)TInifile類(lèi)，使我們可以非常靈活的處理INI文件。 一、有必要了解INI文件的結構： ;注釋 [小節名] 關(guān)鍵字=值 ... INI文件允許有多個(gè)小節，每個(gè)小節又允許有多個(gè)關(guān)鍵字， "="后面是該關(guān)鍵字的值。 值的類(lèi)型有三種：字符串、整型數值和布爾值。其中字符串存貯在INI文件中時(shí)沒(méi)有引號， 布爾真值用1表示，布爾假值用0表示。 注釋以分號";"開(kāi)頭。 二、定義 1、在Interface的Uses節增加IniFiles； 2、在Var變量定義部分增加一行： myinifile:Tinifile; 然后，就可以對變量myinifile進(jìn)行創(chuàng )建、打開(kāi)、讀取、寫(xiě)入等操作了。 三、打開(kāi)INI文件 myinifile:=Tinifile.create(‘program.ini‘); 上面這一行語(yǔ)句將會(huì )為變量myinifile與具體的文件 program.ini建立聯(lián)系，然后，就可以通過(guò)變量myinifile，來(lái)讀寫(xiě)program.ini文件中的關(guān)鍵字的值了。值得注意的是，如果括號中的文件名沒(méi)有指明路徑的話(huà)，那么這個(gè)Program.ini文件會(huì )存儲在Windows目錄中,把Program.ini文件存儲在應用程序當前目錄中的方法是：為其指定完整的路徑及文件名。下面的兩條語(yǔ)句可以完成這個(gè)功能： Filename:=ExtractFilePath(Paramstr(0))+‘program.ini‘; myinifile:=Tinifile.Create(filename); 四、讀取關(guān)鍵字的值 針對INI文件支持的字符串、整型數值、布爾值三種數據類(lèi)型，TINIfiles類(lèi)提供了三種不同的對象方法來(lái)讀取INI文件中關(guān)鍵字的值。 假設已定義變量vs、vi、vb分別為string、 integer、boolean類(lèi)型。 vs:=myinifile.Readstring(‘小節名‘,‘關(guān)鍵字‘,缺省值); vi:=myinifile.Readinteger(‘小節名‘,‘關(guān)鍵字‘,缺省值); vb:=myinifile.Readbool(‘小節名‘,‘關(guān)鍵字‘,缺省值); 其中缺省值為該INI文件不存在該關(guān)鍵字時(shí)返回的缺省值。 五、寫(xiě)入INI文件 同樣的，TInifile類(lèi)也提供了三種不同的對象方法，向INI文件寫(xiě)入字符串、整型數及布爾類(lèi)型的關(guān)鍵字。 myinifile.writestring(‘小節名‘,‘關(guān)鍵字‘,變量或字符串值); myinifile.writeinteger(‘小節名‘,‘關(guān)鍵字‘,變量或整型數值); myinifile.writebool(‘小節名‘,‘關(guān)鍵字‘,變量或True或False); 當這個(gè)INI文件不存在時(shí)，上面的語(yǔ)句還會(huì )自動(dòng)創(chuàng )建該INI文件。 六、刪除關(guān)鍵字 除了可用寫(xiě)入方法增加一個(gè)關(guān)鍵字，Tinifile類(lèi)還提供了一個(gè)刪除關(guān)鍵字的對象方法： myinifile.DeleteKey(‘小節名‘,‘關(guān)鍵字‘); 七、小節操作 增加一個(gè)小節可用寫(xiě)入的方法來(lái)完成，刪除一個(gè)小節可用下面的對象方法： myinifile.EraseSection(‘小節名‘); 另外Tinifile類(lèi)還提供了三種對象方法來(lái)對小節進(jìn)行操作： myinifile.readsection(‘小節名‘,TStrings變量);可將指定小節中的所有關(guān)鍵字名讀取至一個(gè)字符串列表變量中； myinifile.readsections(TStrings變量);可將INI文件中所有小節名讀取至一個(gè)字符串列表變量中去。 myinifile.readsectionvalues(‘小節名‘,TStrings變量);可將INI文件中指定小節的所有行（包括關(guān)鍵字、=、值）讀取至一個(gè)字符串列表變量中去。 八、釋放 在適當的位置用下面的語(yǔ)句釋放myinifile： myinifile.distory; 九、一個(gè)實(shí)例 下面用一個(gè)簡(jiǎn)單的例子(如圖)，演示了建立、讀取、存貯INI文件的方法。myini.ini文件中包含有"程序參數"小節，和用戶(hù)名稱(chēng)（字符串）、是否正式用戶(hù)（布爾值）和已運行時(shí)間（整型值）三個(gè)關(guān)鍵字。程序在窗體建立讀取這些數據，并在窗體釋放時(shí)寫(xiě)myini.ini文件。 附源程序清單 unit Unit1; interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,inifiles,StdCtrls,ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; CheckBox1: TCheckBox; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Timer1: TTimer; Label3: TLabel; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var myinifile:TInifile; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var filename:string; begin filename:=ExtractFilePath(paramstr(0))+‘myini.ini‘; myinifile:=TInifile.Create(filename); edit1.Text:= myinifile.readstring(‘程序參數‘,‘用戶(hù)名稱(chēng)‘,‘缺省的用戶(hù)名稱(chēng)‘); edit2.text:= inttostr(myinifile.readinteger(‘程序參數‘,‘已運行時(shí)間‘,0)); checkbox1.Checked:= myinifile.readbool(‘程序參數‘,‘是否正式用戶(hù)‘,False); end; procedure TForm1.FormDestroy(Sender: TObject); begin myinifile.writestring(‘程序參數‘,‘用戶(hù)名稱(chēng)‘,edit1.Text); myinifile.writeinteger(‘程序參數‘,‘已運行時(shí)間‘,strtoint(edit2.text)); myinifile.writebool(‘程序參數‘,‘是否正式用戶(hù)‘,checkbox1.Checked); myinifile.Destroy; end; procedure TForm1.Timer1Timer(Sender: TObject); begin edit2.Text:=inttostr(strtoint(edit2.text)+1); end; end. 程序在Pwin95、Delphi3下調試通過(guò)。 |
聯(lián)系客服
