ActiveConnections計數問題? |
尚未結案
|
melticemelt
一般會員 發表:22 回覆:29 積分:10 註冊:2002-10-01 發送簡訊給我 |
目前程式仍在開發測試中
使用者不超過兩人
但是只要差不多幾個小時後
幾乎一定會出現
access violation at vcl60.bpl write of address 00000028
之類的的訊息
出現在使用ActiveConnections的迴圈
但是只要關掉在重開就又正常了
我自己也有用list記錄目前線上狀態
OnConnect時加入list
OnDisconnect時移出list
明明只有一個人在連線
可是ActiveConnections卻出現三或是四之類的數字
難道有鬼在連線??
|
geniustom
版主 發表:100 回覆:303 積分:260 註冊:2003-01-03 發送簡訊給我 |
melticemelt您好...
其實ServerSocket1.Socket.ActiveConnections..對於真正連線的CLIENT的數目
沒辦法達到即時得知..一般正常的連線動作應該是
1...CLIENT端提出連線
2...SERVER端ACCEPT
3...傳輸資料
4...CLIENT端告訴SERVER端要斷線了(您自己自訂一個封包格式)
5...SERVER端關閉與CLIENT端的連線 以上..應該才是正確的離線步驟..ActiveConnections才會即時的反應..
否則..假如您是從CLIENT端直接SOCKET.CLOSE...這樣SERVER端要等到輪詢CLIENT端時
發現TIMEOUT了..才知道CLIENT斷了..才啟發OnDisconnect事件..
但ActiveConnections在這種情況似乎無法及時反應..需要過一陣子
我以前寫的網路遊戲..也是有像您一樣的情形發生..
後來改成當CLIENT端要離線時..送出一個離線封包給SERVER..SERVER再斷線..就不會有問題了 值得一提的是..假如CLIENT當機或不正常離線..這種情況還是會發生..
所以就要在SERVER端加上以下的CODE
< class="code">
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0;
Socket.Close;
end; 以及..您在寫ActiveConnections之前..
for i:=0 to ActiveConnections-1 do
begin
try
...您要做的事
except
end;
end;
這樣就完全不會有ERROR MSG了..
GOOD LUCK <>
<>
<>
< >>
>
<>
< class="code"> =程式是一種藝術 也是訓練自己的分析規劃=
=是段落分明 或是雜亂無章=
=是一言以敝 或是廢話連篇=
=是一目了然 或是艱深難懂=
體會這份藝術 您會了解另一份喜悅與成就
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |