Entwickler-Ecke
Internet / Netzwerk - Programm zum anpingen
Jonathanubx - So 09.03.08 12:43
Titel: Programm zum anpingen
hallo,
ich hab zwar im forum schon so einige themen gefunden, die genau mein problem schildern, aber es war mich nicht möglich eine Lösung zu finden. Ich kann mir nicht vorstellen das es bei Delphi (ich hab 7 ent) keine ganz simple lösung gibt um eine ip adresse anzupingen ...
ich will nur folgendes machen: ping-befehl --> wenn beantwortet, dann boolean := true, wenn nicht beantwortet boolean := false.
admin rechte sind vorhanden.
ich hab von diesen indy komponenten gelesen, ich denke sowas in der art wäre schon das richtige, allerdings bräuchte ich eine kleine beschreibung wie ich anfangen muss :oops:
es wäre echt nett, wenn mir jmd helfen könnte.
Jonathanubx - So 09.03.08 14:05
perfekt, das ist schon mal nicht schlecht.
jetzt weiß ich, dass ich die funktion "ICMP (TIdICMPClient)" benötige (
http://www.delphi-treff.de/tutorials/web-tutorials/win32/indy/page/13/).
nur eben nicht traceroute, sondern normalen ping (soweit ich das verstanden hab, ist das bsp-programm für traceroute)
wenn ich jetzt noch wüsste welche befehle von nöten sind, hätte sich das problem komplett gelöst^^
Narses - So 09.03.08 15:54
Moin!
 Jonathanubx hat folgendes geschrieben: |
| jetzt weiß ich, dass ich die funktion "ICMP (TIdICMPClient)" benötige |
Schon den zweiten Link von
elundril angesehen? ;)
cu
Narses
Jonathanubx - So 09.03.08 17:01
ja allerdings^^
und ich versteh nix, sry aber ich bin ziemlicher neuling, liegt daran, dass ich sogut wie keine zeit hab um mich endlich mal ausgiebig mit delphi zu beschäftigen. aber ich hab wirklich nciht gedacht das es soooo schwer ist einen einfachen ping befehl auf button klick zu starten um dann entweder ne antwort von dem server zu bekommen oder nicht. es handelt sich ja nicht mal um einen ping ins internet sondern nur im netzwerk (aber warsch macht das keinen unterschied oder?)
ich hoffe ihr habt noch iwo ne anfängervariante auf lager^^
Narses - Mo 10.03.08 00:52
Moin!
| Jonathanubx hat folgendes geschrieben: |
| und ich versteh nix, sry aber ich bin ziemlicher neuling, liegt daran, dass ich sogut wie keine zeit hab um mich endlich mal ausgiebig mit delphi zu beschäftigen. |
Dann hast du eigentlich nur zwei vernünftige Alternativen: a) du lässt die Finger von Delphi, wenn du keine Zeit dafür hast :roll: oder b) du beschäftigst dich damit ;)
Üblicherweise zieht hier die "ich bin Anfänger und brauche immer vollständige Quelltext"-Bettelnummer nicht. :zwinker:
| Jonathanubx hat folgendes geschrieben: |
| aber ich hab wirklich nciht gedacht das es soooo schwer ist einen einfachen ping befehl auf button klick zu starten um dann entweder ne antwort von dem server zu bekommen oder nicht. |
Noch einfacher [
http://www.delphi-forum.de/viewtopic.php?p=459066#459066] gehts IMHO eigentlich nicht... :nixweiss:
| Jonathanubx hat folgendes geschrieben: |
| es handelt sich ja nicht mal um einen ping ins internet sondern nur im netzwerk (aber warsch macht das keinen unterschied oder?) |
So ist es, kein Unterschied. ;)
| Jonathanubx hat folgendes geschrieben: |
| ich hoffe ihr habt noch iwo ne anfängervariante auf lager^^ |
Ja, im ersten Beitrag dieses Threads. :lol:
cu
Narses
stevea1020 - Mo 10.03.08 09:32
Titel: Re: Programm zum anpingen
| Jonathanubx hat folgendes geschrieben: |
| ...Delphi (ich hab 7 ent) |
Und wieso, um Himmels willen, kauft sich jemand als Anfänger, der noch dazu keine Zeit hat sich näher mit Delphi zu beschäftigen, dann bitte schön gleich die Enterprise Version?
Jonathanubx - Mi 12.03.08 18:22
ich hatte vor informatik zu studieren ...
ich möchte ja auch gar nicht betteln. ist schon okay über kurz oder lang find ichs schon raus ...
danke trotzdem
elundril - Mi 12.03.08 18:28
der link erklärts und damit der quelltext aus dem link funktioniert musst du dir die unit aus dem zweiten link in meinem ersten post runterladen. schon müsste es gehen. wenn du nicht weißt wie man die unit richtig "installiert", erklärt das ebenfalls der link von narses.
lg elundril
uall@ogc - Do 13.03.08 09:10
Titel: Re: Programm zum anpingen
| stevea1020 hat folgendes geschrieben: |
| Jonathanubx hat folgendes geschrieben: | | ...Delphi (ich hab 7 ent) |
Und wieso, um Himmels willen, kauft sich jemand als Anfänger, der noch dazu keine Zeit hat sich näher mit Delphi zu beschäftigen, dann bitte schön gleich die Enterprise Version? |
Davon gibt (gab) es eine 30-Tage Testversion
Jonathanubx - Do 13.03.08 15:54
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| Try IdIcmpClient1.Ping() except
begin
Application.MessageBox('Der Host kann nicht gefunden werden!','Fehler', MB_Ok + MB_ICONWARNING);
Button1.Caption := 'Start';
Button1.Enabled := true;
exit;
end;
end;
If IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho then Application.MessageBox('Der Host ist erreichbar!', 'Erfolg',MB_ICONINFORMATION + MB_OK); |
mein problem wäre damit gelöst ....
Narses - Do 13.03.08 16:44
Moin!
Der Vollständigkeit halber:
| Jonathanubx hat folgendes geschrieben: |
Delphi-Quelltext 1:
| Try IdIcmpClient1.Ping() except | |
Das klappt nur mit Adminrechten, weil die Indy-Lösung dafür (unnötigerweise) auf Raw-Sockets aufsetzt. :idea:
cu
Narses
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!