Client ist vom Typ TClientSocket
Nochma der aktuelle QCode:
Delphi-Quellcode:
procedure TForm1.AllCommandTimerTimer(Sender: TObject);
var tempip:
String;
begin
tempip := ListIp.Items[ListIp.Itemindex];
try
Client.Close;
Memo1.Lines.Add('
Socket zu ' + tempip + '
erfolgreich geschlossen');
except
Memo1.Lines.Add('
Socket zu ' + tempip + '
konnte nicht geschlossen werden');
end;
Client.Host := tempip;
try
Client.Open;
Memo1.Lines.Add('
Socket zu ' + tempip + '
erfolgreich geöffnet');
except
Memo1.Lines.Add('
Socket zu ' + tempip + '
nicht geöffnet');
end;
try
Client.Socket.SendText(AllCommand);
Memo1.Lines.Add('
IP ' + tempip + '
erfolgreich');
except
Memo1.Lines.Add('
IP ' + tempip + '
nichterfolgreich');
end;
ListIp.ItemIndex := ListIp.Itemindex + 1;
if (ListIp.ItemIndex >= ListIp.Count)
then
AllCommandTimer.Enabled := False;
end;
Zitat:
Es sind zwischenzeitlich neue Beiträge zu diesem Thread hinzugekommen oder es wurden welche editiert.
Vielleicht magst Du einen Blick auf die Themen-Vorschau (unten auf dieser Seite) werfen und die neuen Beiträge ggf. berücksichtigen. Neue bzw. editierte Beiträge sind farblich hervorgehoben.
An die Macher: Das ist doch mal eine geile Funktion!
Abbrechen tut er mit nem asynchronen Socketfehler