![]() |
Ping
hi,
wisst ihr, wie ich einen Ping an alle im Netzwerk befindenen PCs senden kann? Danke schon mal im Vorraus -homer- ps.: Im CMD gibt es den dazu gehörigen Befehl: Ping 192.168.1.33 (Ip Adresse) |
Re: Ping
|
Re: Ping
OK, nicht so wortkarg. ;)
Delphi-Quellcode:
Achja, beides durch die DP-Suche gefunden!
procedure TfrmMain.btnPingClick(Sender: TObject);
begin IdICMPClient.ReceiveTimeout := 5000; // Timeout 5000 ms IdICMPClient.Host := edtAddress.Text; IdICMPClient.Ping(); end; procedure TfrmMain.IdIcmpClientReply(ASender: TComponent; const AReplyStatus: TReplyStatus); begin ShowMessage('Received ' + IntToStr(AReplyStatus.BytesReceived) + ' ' + 'Bytes from ' + AReplyStatus.FromIpAddress + ' ' + 'after ' + IntToStr(AReplyStatus.MsRoundTripTime) + ' ms.'); end; Nachtrag: Benötigt unter Windows NT/2000/XP Adminrechte. :? Nachtrag2: ![]() |
Re: Ping
Hi,
oder per ShellExecute und dann die Ausgabe in eine Datei umleiten und auswerten :) Brauch man eigendlich garkeine, also sogut wie keine, Rechte für :) |
Re: Ping
Moin BungeeBug,
Adminrechte sind allerdings auch nur erforderlich, wenn Du die Indy Variante benutzt. Die von Matze "ausgegrabene" Lösung müsste auch problemlos mit normalen Userrechten funktionieren. @Matze: :oops: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz