Discussion :

[sirex007]

Y'a t'il une fonction qui permet de donner l'ip de la machine sur laquelle on est ??

[Mercilius]

de memoire essaie l'aide delphi pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LocalAddress

: suis pas trop sur ca fé longtemps que j'ai pas utilisé...

[Lung]

J'ai trouvé ca :

voilà une fonction pour connaitre l'adresse IP de ta machine :

Code:

function TFparametres.LocalIP : string;
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);
Result := '';
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
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

il te faut rajouter dans les uses : winsock

Sinon, tu peux utiliser le composant IdIPWatch dans l'onglet Indy - Divers.

[sirex007]

Merci le composant idIPWatch marche tres bien 8)

@ ++