Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#4
  Alt 14. Mai 2003, 09:58
Mal schau'n, einen Moment bitte...

Delphi-Quellcode:
// auf dem Server (wenn ich jetzt die richtige Komponente erwischt habe):
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Pred(TcpServer1.ServerSocketThread.ThreadPool.Count) do
    ShowMessage(TClientSocketThread(TcpServer1.ServerSocketThread.ThreadPool[
        I]).ClientSocket.LocalHostAddr);
end;
......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat