Tclient disconnect problem

[Karg]

hi alle zusammen,
ich habe folgendes problem...
ich habe mehrere Tclients die auf einen server zugreifen.
Ich hab das so programmiert, dass jede neue verbindung in eine listview eingetragen werden.
das problem ist jetzt folgendes:
wenn ein client disconnectet, dann sollte er auch aus der listview gelöscht werden.
Doch woher weiß ich welche Verbindung es war????

[thkerkmann]

Hi,

du musst dir für jede Verbindung die ClientIP und die ClientSocket Nr speichern. Anhand dieser kannst Du die Verbindung wiedererkennen.

Gruss

[Karg]

gibt es keinen befehl um rauszufinden welche socket.connection dinsconnctet hat???

[thkerkmann]

Wozu ?
Das Disconnect Ereignis liefert dir doch den Socket.

Gruss

[Karg]

ok ich versuch es mal anders zu erklären:
wenn ich auf einen client zugreife dann schreib ich ja folgendes:
serversocket1.socket.connections[zb. 2].sendtext('blabla');

damit ich weiß welche verbindung welche connection zahl hat, hab ich alle verbindungen in eine listview gesetzt.
nun kann ich folgendermaßen auf den client zugreifen:
serversocket1.socket.connection[listview.selecteditem].sendtext('blabla');

ok wenn jetzt einer der clients die verbindung beendet, dann soll er aus der liste gestrichen werden.
Und das ist das problem, ich bekomme es einfach nicht hin....

[thkerkmann]

Ja, ich verstehe schon was du willst.
Ich habe ein ähnliches Problem folgendermaßen gelöst.

Delphi-Quellcode:

procedure TGUIServerWin.ClientsSocket2ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  aSession: tSession;
  Id: string;
begin
  id := Socket.RemoteAddress + ':' + IntToHex(Socket.RemotePort, 4);
  DebugOut('ClientsSocketClientConnect: ' + Id);

  aSession := tSession.Create(Socket, 0);
  aSession.OnData := OnSessionData;
  aSession.KbdOn := not kbdrestricted;
  aSession.FlashReady := not bFlash;

  lbClients.Items.AddObject(Id, aSession); // ich hab ne listbox genommen
end;

TSession ist eine Klasse, die ein paar Informationen zu der Verbindung hält.

Wenn jetzt eine Verbinung beendet wird kommt folgendes:

Delphi-Quellcode:

procedure TGUIServerWin.ClientsSocket2ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i: integer;
  aSession: tSession;
  Id: string;
begin
  id := Socket.RemoteAddress + ':' + IntToHex(Socket.RemotePort, 4);
  try
    i := lbClients.Items.IndexOf(Id);
    if i >= 0 then
    begin
      aSession := tSession(lbClients.Items.Objects[i]);
      try
        lbClients.Items.Delete(i); // löschen des Listboxeintrages
      except
        on E: exception do
          Debugout(E.message);
      end;
      aSession.Free; // Session objekt freigeben
    end
    else
      DebugOut('Socket not found in Sessionlist ' + Id);
  except
    on E: Exception do
      DebugOut('EXCEPTION in ClientsSocketSessionClosed: ' + E.Message);
  end;
end;

Genause verfahre ich im OnRead und OnError - über die Id kann ich das Session Objekt holen und meine damit verbundenen Daten.

Gruss