服務端在調試狀態客戶端可以連上在正常狀態不能連接 |
尚未結案
|
wuherong2000
一般會員 發表:26 回覆:21 積分:9 註冊:2003-06-16 發送簡訊給我 |
下面的服務器是Com ,即ActiveX Library,和用MTS Data Module開發的dll,
我install MTS Objects 後,現在用客戶端程式連不上,
但當我在服務器端參照run parameters中輸入該元件的GUID後運行,客戶端
可以連上,這是怎麼回事,如果Com 要根據conn.ini文件的配置連接不同的
服務器上的數據庫,該如何做呢?以下是代碼
//客戶端
procedure TFrmLogin.FormCreate(Sender: TObject);
begin
Caption := '登入窗體';
scConn.open;
scConn.AppServer.Connect;
end; //在中間層通過讀入conn.ini文件中的信息產生連接字符串
function GetConnStr():string;
var
IniFile: TIniFile;
ConnStr, ServerName, DbName, UserName, MaskKey,pat: string;
begin
if FileExists(GetCurrentDir '\conn.ini') then
IniFile := TIniFile.Create(GetCurrentDir '\conn.ini')
else
raise Exception.Create('配置文件不存在!');
try
ServerName := IniFile.ReadString('Connection', 'ServerName', '');
DbName := IniFile.ReadString('Connection', 'DbName', '');
UserName := IniFile.ReadString('Connection', 'UserName', '');
MaskKey := IniFile.ReadString('Connection', 'MaskKey', '');
finally
FreeAndNil(IniFile);
end;
ConnStr := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID='
UserName ';PassWord=' MaskKey ';Initial Catalog='
DbName ';Data Source=' ServerName;
result:=ConnStr;
end;
//中間層連接
procedure TmtsLogin.Connect ;
begin
try
conn.Close;
conn.ConnectionString :=GetConnStr();
conn.Open;
except
raise exception.Create('數據庫連接失敗,請檢查配置情況!');
end;
end;
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |