Hallo,
ich bin es mal wieder mit einem kleinen Problem. Also ich habe Form1 wo die TServerSocketkomponente drauf ist. Über Form1 lass ich mit dem OnConnectEreignis von TServerSocket eine Variable hochzählen. Diese werden dann in eine TCheckListBox1 und ein Memofeld eingetragen. Also einfach die Zahl der angemeldeten Clients. Nun ist es so habe ich die TCheckListBox auf ein zweites Formular ausgelagert bzw. dort installiert. Nun möchte ich gerne auf Form2 die Clients die ich ausgewählt habe abmelden. Auf Form1 funktioniert es ohne Probleme, aber auf Form2 sagt er wie gesagt ListIndex Out of Bouns. Hier mal die Schleife die ich benutze.
Und dann der Code von OnConnect
Bei OnDisconnect ist es dann einfach Connected-- und delete anstatt add.
Wie kann ich es nun hinbekommen das die Meldung nicht mehr kommt und ich es trotzdem auf Form2 benutzen kann?
Viele Grüße
Henning
ich bin es mal wieder mit einem kleinen Problem. Also ich habe Form1 wo die TServerSocketkomponente drauf ist. Über Form1 lass ich mit dem OnConnectEreignis von TServerSocket eine Variable hochzählen. Diese werden dann in eine TCheckListBox1 und ein Memofeld eingetragen. Also einfach die Zahl der angemeldeten Clients. Nun ist es so habe ich die TCheckListBox auf ein zweites Formular ausgelagert bzw. dort installiert. Nun möchte ich gerne auf Form2 die Clients die ich ausgewählt habe abmelden. Auf Form1 funktioniert es ohne Probleme, aber auf Form2 sagt er wie gesagt ListIndex Out of Bouns. Hier mal die Schleife die ich benutze.
Code:
for (int i = 0; i < CheckListBox1->Items->Count;i++) { if (CheckListBox1->Checked[i]) SrS1->Socket->Connections[i]->Close(); }
Code:
Connected++; Memo1->Lines->Add(Connected); Form7->CheckListBox1->Items->Add(Connected);
Wie kann ich es nun hinbekommen das die Meldung nicht mehr kommt und ich es trotzdem auf Form2 benutzen kann?
Viele Grüße
Henning
Comment