Hallo,
Ich hab ein kleines Netzwerkverwaltungstool geschrieben, ist nichts grosses ohne grosse Spielerein.
Ich wähle die
IP's ganz einfach aus ner Listbox und wähle die Aktion. Nun will ich aber das alle Rechner nacheinander aus der ListBox Text gesendet bekommen.
Eine Schleife durchläuft auch ganz gut die Listbox, aber irgendwie kommt nie was beim "Server" an.
Delphi-Quellcode:
procedure TForm1.MassSend(Command:String);
begin;
ListIp.ItemIndex := 0;
AllCommand := Command;
AllCommandTimer.Enabled := true;
end;
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');
//das gibt er immer aus
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');
//das gibt er immer aus
Memo1.Lines.Add('
Socket zu ' + tempip + '
nicht geöffnet');
end;
try
Client.Socket.SendText(AllCommand);
Memo1.Lines.Add('
IP ' + tempip + '
erfolgreich');
//das gibt er immer aus
Memo1.Lines.Add('
IP ' + tempip + '
nichterfolgreich');
end;
ListIp.ItemIndex := ListIp.Itemindex + 1;
if (ListIp.ItemIndex >= ListIp.Count)
then
AllCommandTimer.Enabled := False;
end;
Ist kein guter Quelltext, ich weis aber wie gesagt, sollte nichts grosses sein daher bissel Spaghetti Code.
gruss und schonmal DAnke
Maik