請問各位前輩
小弟目前寫好的程式中

當觸發 ServerSocket1ClientConnect 時 Count
當觸發 ServerSocket1ClientDisconnect 時 Count--

Client 正常 連線 ClientSocket1->Active = true;
正常 斷線 ClientSocket1->Active = false;
都沒有問題

但是如果沒照這樣的程序 Server端計數就會有問題??
EX: Client 拔掉網路線 Client發生錯誤訊息 等

請問有什麼好方法防治 感恩 謝謝

------
工程師的世界太深奧了 ~ 總是有不斷的驚奇發生
在解決問題的當下 , 才能確認我的存在
在得到幫助的當下 , 才能發現我不孤單

直接使用 ServerSocket1->Socket->ActiveConnections
或使用下列方式來定時更新自定的連線數
ConnectionCount := RefreshConnectionCount;

[code delphi]
function TForm1.RefreshConnectionCount: Integer;
var
I: Integer;
begin
Result := 0;
for I := ServerSocket1.Socket.ActiveConnections-1 downto 0 do
try
if ServerSocket1.Socket.Connections[I].Connected then Inc(Result);
except
Continue;
end;
end;

[/code]

JOW 大
我用了您的方法
還是不行耶~~
Client 以人工拔除網路線時
ServerSocket1->Socket->ActiveConnections
還是不會減少阿

ServerSocket1->Socket->Connections[I]->Connected
應該是用來判別 第i個連線 還在否??

我拔除網路線之後 程式還是判別 true 耶

===================引 用 jow 文 章===================
直接使用 ServerSocket1->Socket->ActiveConnections
或使用下列方式來定時更新自定的連線數
ConnectionCount := RefreshConnectionCount;

[code delphi]
function TForm1.RefreshConnectionCount: Integer;
var
? I: Integer;
begin
? Result := 0;
? for I := ServerSocket1.Socket.ActiveConnections-1 downto 0 do
? try
??? if ServerSocket1.Socket.Connections[I].Connected then Inc(Result);
? except
??? Continue;
? end;
end;

[/code]

------
工程師的世界太深奧了 ~ 總是有不斷的驚奇發生
在解決問題的當下 , 才能確認我的存在
在得到幫助的當下 , 才能發現我不孤單

如果client端不是主動通知要斷線，Server端不會知道是不是斷線
也就是說Server端要對該連線進行讀、寫的動作才會發現失敗而引發例外，這時才會觸發OnDisconnect event
之前追過source，應該是定時檢查每個連線的connected可以到是不是斷線