Listenindex überschreitet das Maximum

[luckys41]

Hey,

Ich versuche in einem Listview folgendes aufzulisten :

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
item: tlistitem;
begin
item := listview1.items.add;
item.Caption := inttostr(listview1.Items.Count);
item.SubItems.Add(ServerSocket1.Socket.Connections[Listview1.Items.Count].RemoteHost);
statusbar1.Panels[1].Text := 'Leute Online : '+inttostr(ListView1.items.Count);
end;

Doch immer wenn der Client connecten will kommt :

Delphi-Quellcode:

---------------------------
Project1
---------------------------
Listenindex überschreitet das Maximum (1)
---------------------------
OK   
---------------------------

Was mach ich hier falsch??

Mfg
Luckys41

[Mr_G]

Meine Glaskugel sagt bei ServerSocket1.Socket.Connections könnte die Indizierung mit 0 beginnen. Eine Lösung könnte sein:

Delphi-Quellcode:

item.SubItems.Add(ServerSocket1.Socket.Connections[Listview1.Items.Count-1].RemoteHost);

Wichtig wäre zu wissen in welcher Zeile der Fehler auftaucht.

[derdaniel]

Un warum nimmst du net das Socket was du in der Prozedur eh übergeben bekommst !?

[blink182]

weil das Socket soweit ich das in Erinnerung habe, das Socket vom Client ist der gerade Verbunden hat, damit könnte man den dann direkt wieder schließen oder ihm auch eine nachricht senden ;) aber da er ja wissen will, wie viele clients online sind ist das schon richtig so

[derdaniel]

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 !?

[blink182]

joar war mein fehler^^ sorry, war wohl schon etwas spät ;) hab wohl das Problem nicht ganz gesehen