Hallo,
ich habe hier eine Komponente, welche einen ping ausführen soll. Jedoch macht Sie es nicht. Ich lege zunöchst einmal meinen Code dazu.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TInter.Timer1Timer(Sender: TObject);
var i: integer;
ip:string;
begin
for i:=0 to Listview1.Items.Count do
begin
ip := ListView1.Items.Item[i].SubItems.Strings[0];
ping1.Hostname := ip;
ping1.action;
end;
end; |
Ich starte also den Timer, lese den Host aus. Funktioniert auch! Und starte den Ping.
So werte ich das Ergebniss aus.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TInter.Ping1Ping(sender: TObject; status, ip,
roundtime: Integer);
begin
if status = ip_success then
begin
end
else
end; |
Wenn ich das ganze starte, hängt sich das Programm auf. Ich lege die Komponente bei.
Vielleicht findet Ihr raus, warum es nicht klappt.
Moderiert von 
raziel: Topic aus VisualCLX (Component Library for Cross Platform) verschoben am Do 15.12.2005 um 14:41
