delphi 創建數據庫配置文件(TIniFile)

Delphi TIniFile 類 操作ini配置文件

2008年04月03日 星期四 上午 11:20

 

一、有必要了解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.

===================================================================================

在數據庫應用程序的開發過程中，應用程序端和數據庫服務器之間的連接方式是開發人員必須考慮的一個問題。很多情況都是開發人員編程時在設計期間配置好應用程序與數據庫的連接，程序完成后打包生成安裝文件，再在各客戶端的計算機上安裝。在這種情況下，要求數據庫服務器及數據庫都不能變動，否則客戶端程序就無法連接到數據庫服務器，從而造成應用程序無法使用。如果能夠不論數據庫服務器及數據庫如何變動，都可以在各客戶端配置數據庫連接的話，就可以很好地解決這個問題，並且能夠讓開發出來的應用程序更加靈活，具有更好的移植性能。

 

數據庫應用程序的開發工具中，delphi以快速、方便以及易於調試等優點而成為很多開發人員的首選工具。利用delphi，可以很方便地在應用程序客戶端動態配置數據庫連接。

 

首先有必要簡單介紹一下ini配置文件的結構。

 

ini文件一般都有幾個小節，每個小節可以有數個關鍵字，其格式為：

 

〔小節〕

 

關鍵字＝值

 

關鍵字的值有三種類型：字符串、整數和布邇值。在本文中我們只使用字符串類型。在delphi中用readstring和writestring來讀取和寫入（覆蓋）配置文件中的字符串值。

 

以下以利用ini配置文件和delphi自帶的ADO控件來說明如何實現動態配置數據庫連接這一功能。

 

這個程序要實現的功能是：程序運行時，先讀取數據庫連接的配置文件，如果正確則連接上數據庫，程序正常運行；如果配置文件不存在或者不正確，無法連接上數據庫，則詢問是否重新設置配置文件，如回答“是”，就打開配置數據庫連接窗口，配置成功后將正確的配置重新寫入配置文件，程序正常運行。

 

先在程序數據模塊中放入ADOConnection控件；在程序主窗口的單元文件uses里加上inifiles、ADOConEd和數據模塊單元，申明兩個變量：filename（String類型）和databaseset（Tinifile）。

 

主窗口的Activeate事件代碼如下：

 

procedure TfmMain.FormActivate(Sender: TObject);

 

var filename:string;

 

   databaseset:Tinifile;

 

begin

 

  filename:=ExtractFilePath(Paramstr(0))+'databaseset.ini'; //設置配置文件的路徑為執行程序目錄，如果不設置目錄的話程序會把配置文件放到windows系統目錄中去。

 

  databaseset:=TInifile.Create(filename);

 

 //with fmDataModule do//這一句我在DELPHI6中沒有通過調試，也不知道是什么意思，就畫出來了

 

  begin

 

    try   //連接數據庫

 

      ADOConnYK.Close;  //ADOConnYK為ADOConnection控件

 

      ADOConnYK.ConnectionString:=databaseset.ReadString('ykconn','connstr',''); //讀取數據庫連接配置字符串

 

  ADOConnYK.Open; //如正確，連接上數據庫

 

Except      //配置文件不存在或者不正確，無法連接到數據庫

 

  if Application.MessageBox('無法連接到數據庫，要重新設置連接嗎？','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then

 

  begin

 

    ADOConnYK.Close;

 

    if EditConnectionString(ADOConnYK) then //重新配置連接屬性

 

  begin      databaseset.WriteString('ykconn','connstr',ADOConnYK.ConnectionString); //用正確的配置字符串覆蓋配置文件中的相應的關鍵字值。

 

      ADOConnYK.Open;  //正確配置后連接上數據庫

 

    end;

 

  end

 

  else

 

  begin

 

    ShowMessage('數據庫連接設置不正確，請與管理員聯系后再使用本系統');

 

    Application.Terminate;

 

  end;

 

end;   

 

FreeAndNil(databaseset); //釋放配置文件所占資源

 

end;

 

end;