Was ist eigentlich mit Client.Free, muss man damit noch irgendwie arbeiten?
Delphi-Quellcode:
procedure TForm1.AllCommandTimerTimer(Sender: TObject);
var tempip:
String;
begin
tempip := ListIp.Items[ListIp.Itemindex];
try
Client.Close;
Client.Host := tempip;
Client.Open;
sleep(100);
Client.Socket.SendText(AllCommand);
Memo1.Lines.Add('
Erfolgreich IP ' + tempip + '
abgearbeitet');
except
Memo1.Lines.Add('
IP ' + tempip + '
konnte nicht abgearbeitet werden');
end;
ListIp.ItemIndex := ListIp.Itemindex + 1;
if (ListIp.ItemIndex >= ListIp.Count)
then
AllCommandTimer.Enabled := False;
end;
Solangsam werd ich verrückt, hab schon soviel Versucht, und so wie ichs jetzt gerade gepostet habe muss es doch eigentlich funtzen oder seh ich das falsch?
Er gibt zwar immer aus Erfolgreich
IP lala abgearbeitet, aber den text sendet er nie wirklich.
Habe auch gerade nochmal getestet ob tempip und AllCommand gesetzt sind, und alles ist korrekt.
Komisch, komisch
