现象:当client端出现突然死机/停电时server端的ServerSocketClientError事件却侦测不到client端Error的发生,但是当kill-client端程序(不正常关闭)时则server端能在ServerSocketClientError事件中侦测到client端Error的发生. 设想:假使server端能在ServerSocketClientError事件中侦测到client端突然死机/停电时的Error.问题就简单了,但是经过多次测试都不行. 请教:各位大大,处理client端出现突然死机/停电等的若干问题server端该如何应对?

server 端定時向所有經過某個時間沒有通訊的 client 發送一個 ping 的訊息。 而 client 端收到之後就要回一個 pong 的訊息。 比方說 client 已經有10秒沒有跟 server 連繫了。 就送個ping.而又經過 3 秒還沒收到 pong 就可以把這個連線闗閉了。 至於為什麼會有你遇到的問題。 請詳細閱讀 TCP/IP 的規範。 你就會知道了。 很大一串，不知如何講起。

引言: server 端定時向所有經過某個時間沒有通訊的 client 發送一個 ping 的訊息。 而 client 端收到之後就要回一個 pong 的訊息。 比方說 client 已經有10秒沒有跟 server 連繫了。 就送個ping.而又經過 3 秒還沒收到 pong 就可以把這個連線闗閉了。 至於為什麼會有你遇到的問題。 請詳細閱讀 TCP/IP 的規範。 你就會知道了。 很大一串，不知如何講起。

晕啊...

根据暗黑破壞神大大的提示问题得以解决. 代码如下: procedure TForm1.Timer2Timer(Sender: TObject); begin IdIcmpClient1.Host := ('pcname/pcip').AsString//判断它是否断线; IdIcmpClient1.Ping; Application.ProcessMessages; if IdIcmpClient1.ReplyStatus.BytesReceived = 0 then begin //dosomething end; end;

引言: 根据暗黑破壞神大大的提示问题得以解决. 代码如下:

嗯。。。我是看不懂你的 code 啦。我是有名的五行程式以上就有閱讀障礙的患者。 不過。。。。。。好像不是這樣玩的耶。 看你這麼認真還會自己去試的份上。來我再說清楚些。 在每一個 > >

我試用本方法解決了與你同樣的問題，試試吧！ procedure THalaServerForm.CheckUsersTimerTimer(Sender: TObject); var Count:integer; begin if CheckingIsProcessing then //是不是在作連線測試？ exit; CheckingIsProcessing := true; for Count := ClientList.Count - 1 downto 0 do //隨便送一個自訂的符號，去檢查每一個連線的用戶是否在線上？如果發生Socket error表示用戶不在，就把那個連線切掉！ begin TempClientRecord := ClientList.Items[Count]; TempClientRecord^.Socket.SendText(PublicPara.CONNECT_TEST PublicPara.STRING_END); end; CheckingIsProcessing := false; end; 另外請參閱站內連結： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=65652 ----------------------------------------------- Creation is the fundation of promotion.

引言: procedure THalaServerForm.CheckUsersTimerTimer(Sender: TObject); var Count:integer; begin if CheckingIsProcessing then exit; CheckingIsProcessing := true; for Count := ClientList.Count - 1 downto 0 do begin TempClientRecord := ClientList.Items[Count];//能将TempClientRecord宣告帖一下吗?ClientList是什么呢?是listbox? TempClientRecord^.Socket.SendText(PublicPara.CONNECT_TEST PublicPara.STRING_END); end; CheckingIsProcessing := false; end;

谢谢Stallion不过小弟是新手有些code还搞不明白,能否具体点儿谢谢.

引言:

引言: 根据暗黑破壞神大大的提示问题得以解决. 代码如下:

嗯。。。我是看不懂你的 code 啦。我是有名的五行程式以上就有閱讀障礙的患者。 不過。。。。。。好像不是這樣玩的耶。 看你這麼認真還會自己去試的份上。來我再說清楚些。 在每一個 > > < face="Verdana, Arial, Helvetica"> 小弟授教啦...

引言:

引言: TempClientRecord := ClientList.Items[Count];//能将TempClientRecord宣告帖一下吗?ClientList是什么呢?是listbox?

谢谢Stallion不过小弟是新手有些code还搞不明白,能否具体点儿谢谢. < face="Verdana, Arial, Helvetica"> 那就是我說的 struct 所形成的 array 囉。^_^

宣告一個記錄登入者資訊的型態結構及指標 type PClient = ^Client; Client=record Handle:integer; //客戶端Socket handle Socket:TCustomWinSocket; //客戶端Socket Address:string; //客戶端 IP .... //加入其他你想要記錄的資訊 end; 另外在程式的CLASS私有區裡宣告 ClientRecord:PClient; //PClient結構指標 ClientList,TalkerList:TList; //串列結構用以儲存每一登入的使用者 以下知道該如何做了吧！但是建議要考量由於聊天室人數多寡以及發話流量的同步作業，SERVER端與CLIENT端處理接收與發送訓息的那個事件一定要用THREAD來寫，不然會丟失一大堆訊息，或者連SERVER都會掛掉！ ----------------------------------------------- Creation is the fundation of promotion. 發表人 - stallion 於 2005/05/10 19:27:18

谢谢Stallion,暗黑破壞神-两位大大!看了两位的回复小弟学到了很东西,万分感谢!敬礼... 暗黑破壞神大大的分多所以... 發表人 -