| 配置文件中經(jīng)常用到ini文件，在VC中其函數(shù)分別為： #include <Windows.h> //wince,WMobile.ppc不支持這幾個(gè)函數(shù) 寫入.ini文件：bool WritePrivateProfileString(LPCTSTR lpAppName, LPCTSTR lpKeyName, LPCTSTR lpString, LPCTSTR lpFileName);
讀取.ini文件：DWORD GetPrivateProfileString(LPCTSTR lpAppName, LPCTSTR lpKeyName, LPCTSTR lpDefaut, LPSTR lpReturnedString, DWORD nSize, LPCTSTR lpFileName);函數(shù)返回值為string的長度(long型),而從ini文件獲得的字符串則保留在目的緩沖器中
讀取整形值：UINT GetPrivateProfileInt(LPCTSTR lpAppName,LPCTSTR lpKeyName,INT nDefault,LPCTSTR lpFileName); 其中個(gè)參數(shù)的意思： LPCTSTR lpAppName ------- INI文件中的一個(gè)字段名 LPCTSTR lpKeyName -------- lpAppName 下的一個(gè)鍵名，也就是里面具體的變量名 LPCTSTR lpDefaut ----------如果沒有其前兩個(gè)參數(shù)值，則將此值賦給變量 LPSTR lpReturnedString --------接收INI文件中的值的CString對象，即接收緩沖區(qū) DWORD nSize ------接收緩沖區(qū)的大小 LPCTSTR lpFileName --------完整的INI文件路徑名 LPCTSTR lpString ---------是鍵值，也就是變量的值， 必須為LPCTSTR或CString類型 例子： CString StrName,Strtemp; int nAge; StrName = "jacky"; nAge = 13; WritePrivateProfileString("Student","Name",StrName,"c://setting.ini"); 結(jié)果：（INI文件中顯示如下：） [Student] Name=jacky 讀取： CString str; GetPrivateProfileString(
?? CString("Student"),
?? CString("Name"),
?? CString("NULL"),
?? str.GetBuffer(MAX_LENGTH),
?? MAX_LENGTH,
?? CString("F://Program//Test_Read_ini//debug//hello.ini")
?? ); 結(jié)果：str = "jacky"；這里需要注意點(diǎn)就是用完GetBuffer函數(shù)后一定要釋放(用str.ReleaseBuffer()函數(shù))，不然后面再用到SName的其他子函數(shù)就會失靈。 3.讀入整型值要用另一個(gè)WINAPI函數(shù):
UINT GetPrivateProfileInt(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
INT nDefault,
LPCTSTR lpFileName
);
這里的參數(shù)意義與上相同.使用方法如下: nStudAge=GetPrivateProfileInt("StudentInfo","Age",10,"c://stud//student.ini"); 在GetPrivateProfileString最后一個(gè)參數(shù)是配置文件路徑的參數(shù)，此路徑只能是絕對路徑，不能是相對路徑，但現(xiàn)在我需要是我的exe文件能和我的配置文件在一起。因此我使用了GetCurrentDirectory函數(shù)。 原代碼如下： CString server_ip;
CString des="";
::GetCurrentDirectory(MAX_PATHLENGTH,des.GetBuffer(MAX_PATHLENGTH));
des.ReleaseBuffer();
des+=//config.ini;
GetPrivateProfileString("PhoneDemo","Server_IP","",server_ip.GetBufferSetLength(15),15,des);
server_ip.ReleaseBuffer(); 注意：在這里使用CString變量時(shí)，在使用完GetBuffer后，緊接著一定要使用ReleaseBuffer()函數(shù)，才可以進(jìn)行其他的諸如字符串+操作 補(bǔ)充四點(diǎn): 1.INI文件的路徑必須完整,文件名前面的各級目錄必須存在,否則寫入不成功,該函數(shù)返回 FALSE 值. 2.文件名的路徑中必須為 // ,因?yàn)樵赩C++中, // 才表示一個(gè) / . 3.也可將INI文件放在程序所在目錄,此時(shí) lpFileName 參數(shù)為: ".//student.ini". 4.從網(wǎng)頁中粘貼源代碼時(shí),最好先粘貼至記事本中,再往VC中粘貼,否則易造成編譯錯(cuò)誤,開始時(shí)我也十分不解,好好的代碼怎么就不對呢?后來才找到這個(gè)方法.還有一些代碼中使用了全角字符如:＜，＼等,也會
造成編譯錯(cuò)誤. INI文件編程 ??? INI文件在系統(tǒng)配置及應(yīng)用程序參數(shù)保存與設(shè)置方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫INI文件的方法，其中Delphi中操作INI文件，最為簡潔，這是因?yàn)镈elphi3提供了一個(gè)TInifile類，使我們可以非常靈活的處理INI文件。 一、有必要了解INI文件的結(jié)構(gòu)：
;注釋
[小節(jié)名]
關(guān)鍵字=值
...
INI文件允許有多個(gè)小節(jié)，每個(gè)小節(jié)又允許有多個(gè)關(guān)鍵字， "="后面是該關(guān)鍵字的值。
值的類型有三種：字符串、整型數(shù)值和布爾值。其中字符串存貯在INI文件中時(shí)沒有引號，
布爾真值用1表示，布爾假值用0表示。
注釋以分號";"開頭。
二、定義
1、在Interface的Uses節(jié)增加IniFiles；
2、在Var變量定義部分增加一行：
myinifile:Tinifile;
然后，就可以對變量myinifile進(jìn)行創(chuàng)建、打開、讀取、寫入等操作了。 三、打開INI文件
myinifile:=Tinifile.create('program.ini');
上面這一行語句將會為變量myinifile與具體的文件 program.ini建立聯(lián)系，然后，就可以通過變量myinifile，來讀寫program.ini文件中的關(guān)鍵字的值了。值得注意的是，如果括號中的文件名沒有指明路徑的話，那么這個(gè)Program.ini文件會存儲在Windows目錄中,把Program.ini文件存儲在應(yīng)用程序當(dāng)前目錄中的方法是：為其指定完整的路徑及文件名。下面的兩條語句可以完成這個(gè)功能：
Filename:=ExtractFilePath(Paramstr(0))+'program.ini'; myinifile:=Tinifile.Create(filename); 四、讀取關(guān)鍵字的值
針對INI文件支持的字符串、整型數(shù)值、布爾值三種數(shù)據(jù)類型，TINIfiles類提供了三種不同的對象方法來讀取INI文件中關(guān)鍵字的值。
假設(shè)已定義變量vs、vi、vb分別為string、 integer、boolean類型。 vs:=myinifile.Readstring('小節(jié)名','關(guān)鍵字',缺省值);
vi:=myinifile.Readinteger('小節(jié)名','關(guān)鍵字',缺省值);
vb:=myinifile.Readbool('小節(jié)名','關(guān)鍵字',缺省值); 其中缺省值為該INI文件不存在該關(guān)鍵字時(shí)返回的缺省值。 五、寫入INI文件
同樣的，TInifile類也提供了三種不同的對象方法，向INI文件寫入字符串、整型數(shù)及布爾類型的關(guān)鍵字。 myinifile.writestring('小節(jié)名','關(guān)鍵字',變量或字符串值);
myinifile.writeinteger('小節(jié)名','關(guān)鍵字',變量或整型數(shù)值);
myinifile.writebool('小節(jié)名','關(guān)鍵字',變量或True或False);
當(dāng)這個(gè)INI文件不存在時(shí)，上面的語句還會自動創(chuàng)建該INI文件。
六、刪除關(guān)鍵字
除了可用寫入方法增加一個(gè)關(guān)鍵字，Tinifile類還提供了一個(gè)刪除關(guān)鍵字的對象方法：
myinifile.DeleteKey('小節(jié)名','關(guān)鍵字'); 七、小節(jié)操作
增加一個(gè)小節(jié)可用寫入的方法來完成，刪除一個(gè)小節(jié)可用下面的對象方法：
?? myinifile.EraseSection('小節(jié)名');
另外Tinifile類還提供了三種對象方法來對小節(jié)進(jìn)行操作：
myinifile.readsection('小節(jié)名',TStrings變量);可將指定小節(jié)中的所有關(guān)鍵字名讀取至一個(gè)字符串列表變量中；
myinifile.readsections(TStrings變量);可將INI文件中所有小節(jié)名讀取至一個(gè)字符串列表變量中去。
myinifile.readsectionvalues('小節(jié)名',TStrings變量);可將INI文件中指定小節(jié)的所有行（包括關(guān)鍵字、=、值）讀取至一個(gè)字符串列表變量中去。 八、釋放
在適當(dāng)?shù)奈恢糜孟旅娴恼Z句釋放myinifile：
myinifile.distory;
九、一個(gè)實(shí)例
下面用一個(gè)簡單的例子(如圖)，演示了建立、讀取、存貯INI文件的方法。myini.ini文件中包含有"程序參數(shù)"小節(jié)，和用戶名稱（字符串）、是否正式用戶（布爾值）和已運(yùn)行時(shí)間（整型值）三個(gè)關(guān)鍵字。程序在窗體建立讀取這些數(shù)據(jù)，并在窗體釋放時(shí)寫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('程序參數(shù)','用戶名稱','缺省的用戶名稱');
edit2.text:= inttostr(myinifile.readinteger('程序參數(shù)','已運(yùn)行時(shí)間',0));
checkbox1.Checked:= myinifile.readbool('程序參數(shù)','是否正式用戶',False);
end; procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring('程序參數(shù)','用戶名稱',edit1.Text); myinifile.writeinteger('程序參數(shù)','已運(yùn)行時(shí)間',strtoint(edit2.text));
myinifile.writebool('程序參數(shù)','是否正式用戶',checkbox1.Checked);
myinifile.Destroy;
end; procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end; end.
程序在Pwin95、Delphi3下調(diào)試通過。 | 
