ActiveConnection好像不准确。当所有的客户端断开连接后该值仍然＝1

看以下的行不行？

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ScktComp;    type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    FConnectionCount: integer;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    uses TypInfo, HuntonGlobal, ShellApi;    procedure TForm1.FormCreate(Sender: TObject);
begin
  FConnectionCount := 0; // 連線數初始值為 0 
  // 在 Form1 的 Caption 上顯示現在連線總數
  Caption := 'Connection Count: '   IntToStr(FConnectionCount);
  ServerSocket1.Active := True;
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ServerSocket1.Active := False;
end;
   
// 在 TServerSocket 的 OnClientConnect 事件中連線數加 1
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Inc(FConnectionCount);
  Caption := 'Connection Count: '   IntToStr(FConnectionCount);
end;    // 在 TServerSocket 的 OnClientDisconnect 事件中連線數減 1
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Dec(FConnectionCount);
  Caption := 'Connection Count: '   IntToStr(FConnectionCount);
end;    end.

--- --<-<-<@

感谢您的回答 ＝＝＝＝＝＝＝＝＝＝＝ TServerSocket怎么会出这种问题:返回的连接数目竟然不不对？ 还是我的使用有问题？ 各位也有同样问题吗？

您是在什麼地方取得 TServerSocket.Socket.ActiveConnections 的？ 小弟試了一下, 在 TServerSocket.OnDisconnect 事件來取得的話 ActiveConnections 值不會馬上減 1 若用個 TTimer 的話, 可以正確反應 ActiveConnections 值 --- --<-<-<@

我就是在OnDisconnection中取的，为什么会是这样？

去看了一下 Scktcomp.pas 這個 unit 的原始碼 在 TServerSocket.OnDisconnect 事件中 尚未將已關閉連線的 FConnections 的 Item 刪除 所以無法取得正確的 ActiveConnections 值 --- --<-<-<@

那怎么办，我是生手，请帮忙？（不要告诉我使用Timer来获得)

用小弟第一個回答的方式不行嗎？ --- --<-<-<@

我也遇到类似的问题,可以这样解决:纪录每次连接的客户端的IP和本次连接的SocketID形成对应关系,如果遇到两次一样客户端IP则关闭掉一个SocketID,我试过还可以.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.