Delphi - [DELPHI] Evento OnClientDisconnect TServerSocket

usa il nome e/o l'indirizzo fisico (mac address), per discriminarli

si esatto quoto

Salve a tutti, ho risolto definitivamente in questo modo:

PS: lstClients è la ListBox con l'elenco dei client connessi.

Quando un Client si connette:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  ClientName: String;
begin
  ClientName := Socket.RemoteAddress;
  lstClients.Items.AddObject(ClientName, Socket);
end;

Quando un Client si disconnette:

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
var
  Index: Integer;
begin
  Socket.Data := nil;
  Index := lstClients.Items.IndexOfObject(Socket);
  if Index >= 0 then lstClients.Items.Delete(Index);
end;

Quando un Client si disconnette brutalmente (es. chiusura del programma dal Task Manager), nell'evento OnError:

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
var
  Index: Integer;
begin
  Socket.Data := nil;
  Index := lstClients.Items.IndexOfObject(Socket);
  if Index >= 0 then
  begin
    if ErrorEvent = eeDisconnect then lstClients.Items.Delete(Index);
  end;
end;

bene

bene