Y'a t'il une fonction qui permet de donner l'ip de la machine sur laquelle on est ??
Y'a t'il une fonction qui permet de donner l'ip de la machine sur laquelle on est ??
de memoire essaie l'aide delphi pour: suis pas trop sur ca fé longtemps que j'ai pas utilisé...
Code : Sélectionner tout - Visualiser dans une fenêtre à part LocalAddress
Et n'oubliez pas les tags et balises adaptés dans vos titres et posts...
et merci @tous
J'ai trouvé ca :
Sinon, tu peux utiliser le composant IdIPWatch dans l'onglet Indy - Divers.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
L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. ___ Écrivez dans un français correct !!
C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.3.2 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.1 Entreprise
OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.4)
Merci le composant idIPWatch marche tres bien 8)
@ ++
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager