Autor Beitrag
GrU3nL!nG
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 20.12.04 09:29 
Hi Leute,

ich habe seit kurzem begonnen mit Delphi zu arbeiten. Nun bin ich an einer Stelle angekommen, an der ich nicht weiter komme. Wie kann ich per Befehl abfragen, ob mir ein Computer im Netzwerk antwortet. In der Eingabeaufforderung mache ich dies ja mit "ping xxx.xxx.x.xx".

So nun möchte ich dies mit Delphi durchführen. Ist dies möglich?!

Vielen Dank im voraus.

MfG

GrU3nLnG alias Marc

Moderiert von user profile iconTino: Überflüssige Absätze entfent.
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 20.12.04 09:33 
Mit den Indy Komponenten sollte dies relativ leicht zu erreichen sein.
GrU3nL!nG
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 20.12.04 13:48 
okay werde ich mal ausprobieren.

Danke.
GrU3nL!nG
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 20.12.04 14:02 
Also ich habe das mit Indy versucht...
finde es aber nicht^^...
ich habe version 3. wo finde ich dies???
Sprint
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 849



BeitragVerfasst: Mo 20.12.04 14:11 
GrU3nL!nG hat folgendes geschrieben:
ich habe version 3. wo finde ich dies???

Du hast Delphi 3? Dann sind die Indy Komponenten nicht besonders hilfreich. Aber die Internet Component Suite (ICS) von Francois Piette sollten unter Delphi 3 ohne Probleme laufen.

_________________
Ciao, Sprint.
GrU3nL!nG
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 20.12.04 14:46 
^^.... oh mann... wo finde ich dies????
rafi@work
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 147

Win2000 Prof
D7 Enterprise
BeitragVerfasst: Mo 20.12.04 15:38 
die Internet Component Suite kannst du dir hier runterladen:

www.overbyte.be/arch/ics.zip
GrU3nL!nG
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 20.12.04 19:29 
Okay danke....
rafi@work
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 147

Win2000 Prof
D7 Enterprise
BeitragVerfasst: Mo 20.12.04 19:30 
Gerngeschehen!
Mister X-Ray
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 41

Win XP, Win 2000
D7 Pers, D2005 Pers
BeitragVerfasst: Di 21.12.04 17:41 
Geht das Teil auch unter Delphi 7 Personal ?
Finde diese "Indy"-Komponenten nämlich nicht
Sprint
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 849



BeitragVerfasst: Di 21.12.04 17:49 
Indy 9

Kann dir aber nicht sagen, ob die unter Delphi 7 Personal laufen. Denke aber das es geht.

_________________
Ciao, Sprint.
Narses
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Administrator
Beiträge: 10185
Erhaltene Danke: 1261

W11x64
TP3 .. D7pro .. D10.2CE
BeitragVerfasst: Mi 22.12.04 00:16 
Titel: Ping-Unit
Moin!

Die überarbeitete Version meiner ICMP-Echo-API ("Ping") Wrapper-Unit ist hier zu finden.

cu
Narses


Zuletzt bearbeitet von Narses am So 18.12.05 02:35, insgesamt 2-mal bearbeitet
rafi@work
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 147

Win2000 Prof
D7 Enterprise
BeitragVerfasst: Mi 22.12.04 08:38 
wenn du ein Ping mit den Indy Komponenten machen willst, dann kannst du das relativ einfach mit der Komponente TIdIcmpClient realisieren. Eine Ping Demo ist auch unter den Indy Demos vorhanden.

So realisierst du ein Ping: In unserem Beispiel wird 4 mal ein Ping durchgeführt, mit einem Receive timeout von 1 Sek.

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
ICMP.OnReply := ICMPReply;
        ICMP.ReceiveTimeout := 1000;
        ICMP.Host := Edit1.Text;
        for a := 1 to 4 do
        begin
          try
            ICMP.Ping;
            Application.ProcessMessages;
          except
          on e:Exception do
            break;
          end;
        end;


Im OnReply Ereigniss der Komponente kannst du z.B. so herausfinden, ob dein Ping erfolgreich war oder nicht.

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
  If ReplyStatus.FromIpAddress = Edit1.Text then
  begin
    showmessage('Ping erfolgreich');
  end else begin
    showmessage('Ping nicht erfolgreich');
  end;


Gruss
GrU3nL!nG
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Fr 24.12.04 10:57 
danke an alle für eure mühe.

wo finde ich diese komponente??
ich bin noch nicht so sicher in delphi, und das dies nicht einfach wird habe ich gewusst.
also ich habe oben ja diese kleinen symbole.. finde ich dort den INDY oder TIdIcmpClient ???
ich sollte mir am anfang dieses threads eine datei downloaden und installieren... doch das funktioniert leider nicht^^... naja helft mir bitte!!


FROHE WEIHNACHTEN EUCH ALLEN!
rafi@work
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 147

Win2000 Prof
D7 Enterprise
BeitragVerfasst: Fr 24.12.04 11:39 
hallo GrU3nL!nG,

den TIdIcmpClient findest du im Register "Indy-Clients"
GrU3nL!nG
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Fr 24.12.04 14:54 
okay.... aber die INDY-Clients hab ich nicht....