Aber er fragt von dem Socket doch den RemoteHost ab !?
Zum Anzeigen der Anzal der verbunden Clients verwendet er doch ListView1.Items.Count !?
Wie wärs also mit:
Code:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
item: tlistitem;
begin
item := listview1.items.add;
item.Caption := inttostr(listview1.Items.Count);
item.SubItems.Add(Socket.RemoteHost);
statusbar1.Panels[1].Text := 'Leute Online : '+inttostr(ListView1.items.Count);
end;
@luckys41 hast du evtl. vergessen deiner Statusbar zwei Panels hinzuzufügen !?