目前程式仍在開發測試中 使用者不超過兩人 但是只要差不多幾個小時後 幾乎一定會出現 access violation at vcl60.bpl write of address 00000028 之類的的訊息 出現在使用ActiveConnections的迴圈 但是只要關掉在重開就又正常了 我自己也有用list記錄目前線上狀態 OnConnect時加入list OnDisconnect時移出list 明明只有一個人在連線 可是ActiveConnections卻出現三或是四之類的數字 難道有鬼在連線??

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"> =程式是一種藝術 也是訓練自己的分析規劃= =是段落分明 或是雜亂無章= =是一言以敝 或是廢話連篇= =是一目了然 或是艱深難懂= 體會這份藝術 您會了解另一份喜悅與成就