Dann will ich auch mal was dazugeben.. hier is mal n Code aus ner Anwendung von mir, in der ich auch pingen wollte.. - Ich verwende die
Indy-Kompo "IdIcmpClient"
Delphi-Quellcode:
procedure Tfrm_main.Label7Click(Sender: TObject);
var i: integer;
begin
if edIpAdr.Text<>'
'
then begin
memLogFile.Lines.Add('
Pingstatus ('+DateTimeToStr(Now)+'
)');
if edAnzahl1.Text<>'
'
then begin
PageControl1.Enabled:=false;
for i:=0
to StrToInt(edAnzahl1.Text)
do begin
IdIcmpClient1.Host:=edIpAdr.Text;
IdIcmpClient1.Ping();
end;
PageControl1.Enabled:=true;
end
else if edAnzahl2.Text='
'
then begin
IdIcmpClient1.Host:=edIpAdr.Text;
IdIcmpClient1.Ping();
end;
memLogFile.Lines.Add('
');
edIpAdr.Clear;
end else Application.MessageBox('
Please insert a IP Adress to ping', '
Failure', MB_OK+MB_ICONSTOP);
end;
Vielleicht kannst du´s ja für deine Bedürfnisse anpassen.
Sascha