Entwickler-Ecke

Internet / Netzwerk - Prog zum Pingen!


Florian.K - Sa 27.05.06 11:09
Titel: Prog zum Pingen!
Hi Community!
Ich würde gern ein Programm schreiben womit ich Pingen kann.
Normal mache ich das halt immer über Eingabeaufforderung.
Wie gehe ich am besten vor :/
Danke im Voraus


Moderiert von user profile iconChristian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am So 28.05.2006 um 23:34


Fighter#1 - Sa 27.05.06 11:12

nimm die indys, damit ist das Ganz einfach,
die IdICMP Komponente nehmen Host angeben und nur noch Ping befehl benutzen.
Im Rückereignis (Weiß grad nich wies heißt) kannst du dir die Zeit und IP ... anschauen


Florian.K - Sa 27.05.06 11:20

Ich versuchs mal dangee


Florian.K - Sa 27.05.06 11:49

Ich finde die Komponete bzw auch den eventhändler nicht in meinem Delphi
Ich benutze Delphi 10 Lite
"Die benötigte Komponente trägt den Namen IdIcmpClient"

Erstelle einen OnReply-Eventhandler und schreibe folgendes in die Ereignis-Procedure:


Quelltext
1:
2:
TForm1.IdIcmpClient1Reply(ASender: TComponent;
  CONST AReplyStatus: TReplyStatus);


mh, den Qt hab ich ja schon nur dieses Prob..


Florian.K - Sa 27.05.06 12:17

ne.. krieg es net hin
:/ mb knnt ihr ja noch helfen


DarkLord05 - Sa 27.05.06 12:54

Wenn du die indy's nicht hast, musst du sie runter laden:

http://www.indyproject.org/ <- hauptseite
http://www.indyproject.org/Sockets/Download/Borland.en.aspx <- downloadseite

Und da kannste dir die 10er / 9er / 8er holen. Winshoes sind für die alten Delphi Versionen, so weit ich weiß. Also nehm die 10er :)


Florian.K - Sa 27.05.06 13:35

10er ist nur gültig von delphi 4-8 oder sowas glaub ich. Auf jeden nicht für meine 10 Lite version :/, stand auch beim Install der error.


Narses - So 28.05.06 23:27

Moin!

Die meisten Leuts vergessen gerne, dass der Indy-Ping nur als Admin ausführbar ist, weil die auf RawSockets aufsetzen. :|

Wenn du auch als nicht-Admin pingen können möchtest, dann schau dir doch mal das hier [http://www.delphi-forum.de/topic_ICMPEchoAPI+quotPingquot+WrapperUnit_53259.html] an. ;)

cu
Narses