Hab es jetzt so
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var i:Integer;
begin
with ServerSocket1 Do
begin
for i:=0 to Socket.ActiveConnections Do
begin
Socket.SendText('PING');
end;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
IF Serversocket1.Socket.Connections[SelectedVictim].ReceiveText = 'On' then
begin end else begin
listbox1.items.delete(selectedvictim);
end;
end;
Client :
Delphi-Quellcode:
if str = 'Ping' then
begin
Socket.SendText('On');
end;
Aber es kommt immer die Fehlermeldung
Windows socket error: Eine Anforderung zum Senden oder Empfangen von Daten wurde verhindert, da der Socket nicht verbunden ist und (beim Senden über einen Datagrammsocket mit einem sendto-Aufruf) keine Adresse angegeben wurde (10057)