soweit war ich auch schon
Delphi-Quellcode:
procedure TForm1.ss_serverClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i_socket:integer;
begin
i_socket:=Socket.SocketHandle;
... auflisten usw.
end;
sobald ich dann was senden möchte tritt ein fehler auf:
Delphi-Quellcode:
procedure TForm1.bt_sendClick(Sender: TObject);
var
i,i_wo:integer;
begin
for I := 0 to lv_bots.Items.count - 1 do
begin
i_wo:=strtoint(lv_bots.Items.Item[i].SubItems.strings[8]);
if (ss_server.Socket.Connections[i_wo].Connected=true) then
begin
ss_server.Socket.Connections[i_wo].SendText(s_bauliste_send+'|');
end;
end;
end;
Fehlermeldung:
Zitat:
Erste Gelegenheit für
Exception bei $7C812A5B.
Exception-Klasse EListError mit Meldung 'Listenindex überschreitet das Maximum (5980)'. Prozess Project1.exe (4040)