請問一個TIdTCPClient的問題 |
|
缺席
|
|
hsiang59
一般會員   發表：5 回覆：2 積分：1 註冊：2002-03-13 發送簡訊給我 |
請問各位大大
我寫一個監控程式，測試所有加盟店的系統與公司網路連線是否正常，因為有100家 所以我用一個檔案記錄各家的ip 然後用迴圈的方式 來測試
程式片斷如下
Table1.open;
while not Table1.eof do
begin
Memo1.Lines.Add('測試 [' Table1.fieldbyname('STORENAME').asstring ' ] V2系統連線是否正常.....');
ITCP.Host:=Table1.fieldByName('IP1').AsString;
try
if ITCP.Connected then
begin
ITCP.Disconnect;
end;
ITCP.Connect;
sleep(300);
Application.ProcessMessages;
except
begin
//ShowMessage('逾時!!可能網路未接通');
With Table1 do
begin
Edit;
if iLive=1 then
begin
conncet_store := true;
Memo1.Lines.Add('V2系統連線正常!!!!!!');
FieldByName('AP_STATUS').AsString:='01';
end
else
begin
conncet_store := false;
Memo1.Lines.Add('V2系統連線異常!!!!!!');
FieldByName('AP_STATUS').AsString:='03';
end;
Post;
end;
end;
end;
end; 但是只要有一家店 連線失敗，之後的店家連線一律都失敗 請問各位有何方法以解決 謝謝 ps 我在店家的系統 寫了一個TIdTCPsServer的小程式
|
|
chfamy
中階會員  發表：87 回覆：161 積分：54 註冊：2002-05-03 發送簡訊給我 |
|
|
AB
高階會員 發表：166 回覆：262 積分：125 註冊：2003-08-21 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
hsiang59 你好:
引言: Table1.open; while not Table1.eof do begin if ITCP.Connected then ITCP.Disconnect; Memo1.Lines.Add('測試 [' Table1.fieldbyname('STORENAME').asstring ' ] V2系統連線是否正常.....'); ITCP.Host:=Table1.fieldByName('IP1').AsString; ... //重寫try..except try try ITCP.Connect; except //失敗 Memo1.Lines.Add('V2系統連線異常!!!!!!'); ... end; sleep(300); Application.ProcessMessages; finally //完成 Memo1.Lines.Add('V2系統連線正常!!!!!!'); ... end;如果一邊測試Connect一邊寫資料庫那到不如像AB兄所說的先紀錄哪幾個錯誤 在一起寫資料庫
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
發表時間：2003-11-25 16:19:38
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-05-01 22:04:14
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |