讀寫ini設定檔

請尊重原創：  原文地址：點擊開啟連結

::WritePrivateProfileString( _T("Options"), _T("Name"), m_strName, pApp->m_szIni );

INI檔案編程,WINAPI函數WritePrivateProfileString,GetPrivateProfileString 收藏
    在我們寫的程式當中,總有一些配置資訊需要儲存下來,以便完成程式的功能,最簡單的辦法就是將這些資訊寫入INI檔案中,程式初始化時再讀入.具體應用如下:
　　一.將資訊寫入.INI檔案中.
　　1.所用的WINAPI函數原型為:
BOOL WritePrivateProfileString(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
LPCTSTR lpString,
LPCTSTR lpFileName
);
　　其中各參數的意義:
　　　LPCTSTR lpAppName 是INI檔案中的一個欄位名.
　　　LPCTSTR lpKeyName 是lpAppName下的一個鍵名,通俗講就是變數名.
　　　LPCTSTR lpString 是索引值,也就是變數的值,不過必須為LPCTSTR型或CString型的.

LPCTSTR lpFileName 是完整的INI檔案名稱.

2.具體使用方法:設現有一名學生,需把他的姓名和年齡寫入 c:\stud\student.ini 檔案中.

CString strName,strTemp;
int nAge;
strName="張三";
nAge=12;
::WritePrivateProfileString("StudentInfo","Name",strName,"c:\\stud\\student.ini");

此時c:\stud\student.ini檔案中的內容如下:
[StudentInfo]

　　　Name=張三
　　3.要將學生的年齡儲存下來,只需將整型的值變為字元型即可:
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
);
　　其中各參數的意義:
　　　前二個參數與 WritePrivateProfileString中的意義一樣.

　　　lpDefault : 如果INI檔案中沒有前兩個參數指定的欄位名或鍵名,則將此值賦給變數.
　　　lpReturnedString : 接收INI檔案中的值的CString對象,即目的緩衝器.
　　　nSize : 目的緩衝器的大小.
　　　lpFileName : 是完整的INI檔案名稱.
　　2.具體使用方法:現要將上一步中寫入的學生的資訊讀入程式中.
CString strStudName;
int nStudAge;
GetPrivateProfileString("StudentInfo","Name","預設姓名",strStudName.GetBuffer(MAX_PATH),MAX_PATH,"c:\\stud\\student.ini");
　　執行後 strStudName 的值為:"張三",若前兩個參數有誤,其值為:"預設姓名".

　　3.讀入整型值要用另一個WINAPI函數:
UINT GetPrivateProfileInt(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
INT nDefault,
LPCTSTR lpFileName
);
　　這裡的參數意義與上相同.使用方法如下:

nStudAge=GetPrivateProfileInt("StudentInfo","Age",10,"c:\\stud\\student.ini");

　　三.迴圈寫入多個值,設現有一程式,要將最近使用的幾個檔案名稱儲存下來,具體程式如下:
　　1.寫入:
CString strTemp,strTempA;
int i;
int nCount=6;
file://共有6個檔案名稱需要儲存

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://將檔案總數寫入,以便讀出.

　　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中的內容.
}

　　補充四點:

　　　1.INI檔案的路徑必須完整,檔案名稱前面的各級目錄必須存在,否則寫入不成功,該函數返回 FALSE 值.

　　　2.檔案名稱的路徑中必須為 \\ ,因為在VC++中, \\ 才表示一個 \ .

　　　3.也可將INI檔案放在程式所在目錄,此時 lpFileName 參數為: ".\\student.ini".

　　　4.從網頁中粘貼原始碼時,最好先粘貼至記事本中,再往VC中粘貼,否則易造成編譯錯誤,開始時我也十分不解,好好的代碼怎麼就不對呢?後來才找到這個方法.還有一些代碼中使用了全形字元如:＜，＼等,也會
造成編譯錯誤.

INI檔案編程

    INI 檔案在系統配置及應用程式參數儲存與設定方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫INI檔案的方法，其中Delphi中操作INI檔案，最為簡潔，這是因為Delphi3提供了一個TInifile類，使我們可以非常靈活的處理INI檔案。

一、有必要瞭解INI檔案的結構：
;注釋
[小節名]
關鍵字=值
...
　 INI檔案允許有多個小節，每個小節又允許有多個關鍵字， "="後面是該關鍵字的值。
　 值的類型有三種：字串、整型數值和布爾值。其中字串存貯在INI檔案中時沒有引號，
布爾真值用1表示，布爾假值用0表示。
　 注釋以分號";"開頭。
二、定義
　 1、在Interface的Uses節增加IniFiles；
　 2、在Var變數定義部分增加一行：
myinifile:Tinifile;
　 然後，就可以對變數myinifile進行建立、開啟、讀取、寫入等操作了。

三、開啟INI檔案


myinifile:=Tinifile.create('program.ini');


　  上面這一行語句將會為變數myinifile與具體的檔案 program.ini建立聯絡，然後，就可以通過變數myinifile，來讀寫 program.ini檔案中的關鍵字的值了。值得注意的是，如果括弧中的檔案名稱沒有指明路徑的話，那麼這個Program.ini檔案會儲存在 Windows目錄中,把Program.ini檔案儲存體在應用程式目前的目錄中的方法是：為其指定完整的路徑及檔案名稱。下面的兩條語句可以完成這個功能：

Filename:=ExtractFilePath(Paramstr(0))+'program.ini';

myinifile:=Tinifile.Create(filename);

四、讀取關鍵字的值
　針對INI檔案支援的字串、整型數值、布爾值三種資料類型，TINIfiles類提供了三種不同的對象方法來讀取INI檔案中關鍵字的值。
　 假設已定義變數vs、vi、vb分別為string、 integer、boolean類型。  

vs:=myinifile.Readstring('小節名','關鍵字',預設值);
vi:=myinifile.Readinteger('小節名','關鍵字',預設值);
vb:=myinifile.Readbool('小節名','關鍵字',預設值);

　 其中預設值為該INI檔案不存在該關鍵字時返回的預設值。

五、寫入INI檔案
　 同樣的，TInifile類也提供了三種不同的對象方法，向INI檔案寫入字串、整型數及布爾類型的關鍵字。  

myinifile.writestring('小節名','關鍵字',變數或字串值);
myinifile.writeinteger('小節名','關鍵字',變數或整型數值);
myinifile.writebool('小節名','關鍵字',變數或True或False);
　 當這個INI檔案不存在時，上面的語句還會自動建立該INI檔案。
六、刪除關鍵字
　 除了可用寫入方法增加一個關鍵字，Tinifile類還提供了一個刪除關鍵字的對象方法：
myinifile.DeleteKey('小節名','關鍵字');

七、小節操作
　 增加一個小節可用寫入的方法來完成，刪除一個小節可用下面的對象方法：
   myinifile.EraseSection('小節名');
　 另外Tinifile類還提供了三種對象方法來對小節進行操作：
　 myinifile.readsection('小節名',TStrings變數);可將指定小節中的所有關鍵字名讀取至一個字串列表變數中；
　 myinifile.readsections(TStrings變數);可將INI檔案中所有小節名讀取至一個字串列表變數中去。
　 myinifile.readsectionvalues('小節名',TStrings變數);可將INI檔案中指定小節的所有行（包括關鍵字、=、值）讀取至一個字串列表變數中去。

八、釋放
在適當的位置用下面的語句釋放myinifile：
myinifile.distory;
九、一個執行個體
　  下面用一個簡單的例子(如圖)，示範了建立、讀取、存貯INI檔案的方法。myini.ini檔案中包含有"程式參數"小節，和使用者名稱稱（字串）、是否正式使用者（布爾值）和已已耗用時間（整型值）三個關鍵字。程式在表單建立讀取這些資料，並在表單釋放時寫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('程式參數','使用者名稱稱','預設的使用者名稱稱');
  edit2.text:= inttostr(myinifile.readinteger('程式參數','已已耗用時間',0));
  checkbox1.Checked:= myinifile.readbool('程式參數','是否正式使用者',False);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  myinifile.writestring('程式參數','使用者名稱稱',edit1.Text);

  myinifile.writeinteger('程式參數','已已耗用時間',strtoint(edit2.text));
  myinifile.writebool('程式參數','是否正式使用者',checkbox1.Checked);
  myinifile.Destroy;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;

end.
　 程式在Pwin95、Delphi3下調試通過。