delphi編程實現動態創建別名

　　對於BDE會話期對象來說BDE別名特別重要許多方法都需要傳遞一個數據庫的別名作為參數TSession提供了管理BDE別名的功能

　　但是作者往往等到要發布程序時才發現你的程序由於找不到別名而無法運行必須在一台已經裝了BDE管理程序的機上才能用你一定非常失望不要緊只要在程序中加入以下語句你的程序就又可以執行

　　AddAlias用於為ParadoxdBase或文本創建別名不需要連接參數只需指定一個路徑和默認的驅動程序

　　AddStandardAlias函數則需要傳遞三個參數Name參數用於指定名稱Driver參數用於指定SQL Links驅動程序List參數用於指定連接參數

　　procedure TFormFormCreate(Sender: TObject);
　　begin
　　with Session do
　　begin
　　ConfigMode := cmSession;
　　try
　　AddStandardAlias(WorkMen ExtractFilePath(ParamStr()) PARADOX);
　　finally
　　ConfigMode := cmAll;
　　end;
　　end;
　　end;

　　上面的是單機版的創建別名方法還有創建SQL服務器別名的方法

　　procedure TFormFormCreate(Sender: TObject);
　　var MyList: TStringList;
　　begin
　　MyList := TStringListCreate;
　　try
　　with MyList do
　　begin
　　Add(SERVER NAME=IB_SERVER:/PATH/DATABASEGDB);
　　Add(USER NAME=MYNAME);
　　end;
　　SessionAddAlias(WorkMen INTRBASE MyList);
　　finally
　　MyListFree;
　　end;
　　end;

　　要說明的是調用AddStandardAlias或AddAlias函數創建的別名只存在於內存中程序關閉後就沒有了要把別名永遠的保存到BDE配置文件中請調用SaveConfigFile函數來保存到設置文件中

From:http://tw.wingwit.com/Article/program/Delphi/201311/24716.html