| Autor |
Beitrag |
Jonathanubx
 
Beiträge: 32
|
Verfasst: So 09.03.08 12:43
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 
es wäre echt nett, wenn mir jmd helfen könnte.
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: So 09.03.08 12:48
vielleicht hilft dir das weiter: ->*Link*<-
lg elundril
//edit: oder das: www.delphi-forum.de/...apperUnit_53259.html_________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
Jonathanubx 
Beiträge: 32
|
Verfasst: So 09.03.08 14:05
perfekt, das ist schon mal nicht schlecht.
jetzt weiß ich, dass ich die funktion "ICMP (TIdICMPClient)" benötige ( www.delphi-treff.de/.../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
Beiträge: 10185
Erhaltene Danke: 1261
W11x64
TP3 .. D7pro .. D10.2CE
|
Verfasst: 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 _________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
Jonathanubx
Beiträge: 32
|
Verfasst: 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
Beiträge: 10185
Erhaltene Danke: 1261
W11x64
TP3 .. D7pro .. D10.2CE
|
Verfasst: 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  oder b) du beschäftigst dich damit
Üblicherweise zieht hier die "ich bin Anfänger und brauche immer vollständige Quelltext"-Bettelnummer nicht. 
| 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 gehts IMHO eigentlich nicht... 
| 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. 
cu
Narses _________________ There are 10 types of people - those who understand binary and those who don´t.
Zuletzt bearbeitet von Narses am Mo 10.03.08 11:34, insgesamt 1-mal bearbeitet
|
|
stevea1020
Hält's aus hier
Beiträge: 6
|
Verfasst: Mo 10.03.08 09:32
| 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
Beiträge: 32
|
Verfasst: 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
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: Mi 12.03.08 18:28
| Narses hat folgendes geschrieben: | Moin! | 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 gehts IMHO eigentlich nicht...
|
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 _________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
uall@ogc
Beiträge: 1826
Erhaltene Danke: 11
Win 2000 & VMware
Delphi 3 Prof, Delphi 7 Prof
|
Verfasst: Do 13.03.08 09:10
| 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 _________________ wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit
|
|
Jonathanubx
Beiträge: 32
|
Verfasst: 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
Beiträge: 10185
Erhaltene Danke: 1261
W11x64
TP3 .. D7pro .. D10.2CE
|
Verfasst: 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. 
cu
Narses _________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
