線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1379
推到 Plurk!
推到 Facebook!

服務端在調試狀態客戶端可以連上在正常狀態不能連接

尚未結案
wuherong2000
一般會員


發表:26
回覆:21
積分:9
註冊:2003-06-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-07-08 09:31:43 IP:218.16.xxx.xxx 未訂閱
下面的服務器是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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-04-30 13:44:49 IP:000.000.xxx.xxx 未訂閱
提問者您好:


以上回應是否已得到滿意的答覆?


若已得到滿意的答覆,請在一週內結案,否則請在一週內回覆還有什麼未盡事宜,不然,
將由版主(尚無版主之區域將由副站長或站長)自由心證,選擇較合適之解答予以結案處理,
被選上之答題者同樣會有加分獎勵同時發問者將受到扣 1 分的處分。不便之處,請見諒。


有問有答有結案,才能有良性的互動,良好的討論環境需要大家共同維護,感謝您的配合。

------
我是機器人,我不接受簡訊.
系統時間:2024-05-07 13:10:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!