Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
12. Sep 2003
Brauchst Du gar nicht, nur wie kommt Dein Beitrag vor unserere? Den hatte ich noch gar nicht gesehen :shock:
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
12. Sep 2003
Das wäre dann:
procedure TForm1.FormCreate(Sender: TObject);
begin
while ListBox1.Items.Count > 0 do
begin
IdIcmpClient1.Host := ListBox1.Items;
IdIcmpClient1.Ping(IntToStr(timeout));
ListBox1.Items.Delete(0);
end;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
12. Sep 2003
Er hat doch das meiste, Leute :!: Seine Frage bezog sich auf ein anderes Problem, als das direkte Pingen ;-)
procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.Host := ListBox1.Items.Text;
if ListBox1.ItemIndex < 0 then
Exit;
IdIcmpClient1.Host := ListBox1.Items;
IdIcmpClient1.Ping(IntToStr(timeout));