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

Question

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

cs_jfs59 · Answer

bonjour 

Tu veux r&#233;cup&#233;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&#233;ciproquement ...

Matt 261 · Answer

Salut,

Pour ma part je pense que &#231;a doit &#234;tre l'adresse ip lan du routeur (peut etre pc) qui sert de passerelle mais apr&#232;s &#231;a ne d&#233;pend que de "ma compr&#233;hension"...

@+
 Matt

 La paresse est la m&#232;re du g&#233;nie...

Francky23012301 · Answer

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;

cs_jfs59 · Answer

marche p&#244;
d&#233;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&#233;ciproquement ...

Francky23012301 · Answer

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+

cs_jfs59 · Answer

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&#233;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&#233;ciproquement ...

miarynante · Answer

Bonjour,
j'ai pu r&#233;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

Francky23012301 · Answer

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

Matt 261 · Answer

Ce qui est bien c'est que &#231;a me sert aussi... J'ai bien fait de passer par l&#224; sinon je n'aurait jamais su trouver l'IP...

@+
  Matt

 La paresse est la m&#232;re du g&#233;nie...

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

9 réponses

Votre réponse

Discussions similaires