熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

delphi編程實現動態創建別名

2013-11-23 17:34:55  來源: 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.