comment récuperer l'adresse de la passerelle par défaut en delphi6

Bonjour,
je suis un peu débutant sur le programmation avec le langage Delphi, en faite  le but de mon petit programme est de réccuperer l'adresse du passerelle par défaut du PC où l'application tourne?
Meric

bonjour

Tu veux récupérer quoi ?
l'adresse ip lan du pc sur lequel tourne le programme
l'adresse ip wan (Fai)
l'adresse ip lan du routeur (peut etre pc) qui sert de passerelle

----------------------------------
Tout est en tout et réciproquement ...

Salut,

Pour ma part je pense que ça doit être l'adresse ip lan du routeur (peut etre pc) qui sert de passerelle mais après ça ne dépend que de "ma compréhension"...

@+
 Matt

---

La paresse est la mère du génie...

Déja regarde la

http://www.delphifr.com/gma/tout/host%20ip

-------------------------------------
Tout est en tout et réciproquement ...

Salut, Je ne sais pas ce que tu veux ? Si tu veux l'adresse IP locale sous delphi6. Voila comment on l'affiche dans un Edit : Procedure TForm1.Button1Click(Sender : Tobject); type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I: Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); ip_machine := ''; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] <> nil do begin Edit1.text := StrPas(inet_ntoa(pptr^[I]^)); Inc(I); end; WSACleanup; end;

marche pô
définir ip machine en string et ajouter winsock en uses

[modif
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I: Integer;
GInitData : TWSADATA;
ip_machine : string;
begin
]

Cordialement jfs.

---

Tout est en tout et réciproquement ...

Re jfs : tu as totalement raison pour "Winsock". C'est un oublie impardonnable (Allez pendez moi haut et court : lol). Procedure TForm1.Button1Click(Sender : Tobject); type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I: Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] <> nil do begin Edit1.text := StrPas(inet_ntoa(pptr^[I]^)); { Désolé j'ai repris cette source dans un de mes projets. J'avais fais ip_machine := ''; en déclarant biensur ip_machine dans les variables puis ip_machine :=StrPas(inet_ntoa(pptr^[I]^)); En recopiant j'ai oublié de faire le ménage l'erreur était "ip_machine non déclaré (dans les variables) } Inc(I); end; WSACleanup; end; Désolé pour cet oublie plus la petite érreur. Dorénavent je posterais moins vite. Merci jfs de les avoir vu A+

Ben c'est pas trop grave .. mais la ton ipmachine je voyai pas trop a quoi ca sert et en fait il sert a rien .. mais bon ca c'est facile suffit de virer ou de définir ...pour le uses par contre c'est moins facile si tu le sait pas ! et c'est vrai que les copies de bout de code d'un projet sans faire gaffe aux uses ca marche rarement...


Cordialement jfs.

---

Tout est en tout et réciproquement ...

Bonjour,
j'ai pu récuperer par votre aide l'adresse IP du machine locale, ainsi que le nom du poste et l'adresse du passerelle routeur (internet)

Merci  pour votre collaboration

Salut Merci de Valider le Post STP : ca pourra en aider un autre A+