Récupérer son ip

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 948 fois - Téléchargée 31 fois

Contenu du snippet

Voici une fonction pour récuper son IP

il faut rajouter WINSOCK dans uses

Source / Exemple :


function 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;

Conclusion :


il faut rajouter WINSOCK dans uses

A voir également

Ajouter un commentaire

Commentaires

Messages postés
4
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
31 janvier 2002

Allons, faut penser que delphi inclus tout les putin de trucs dans le prog, ce qui evite de devoir tout envoyer a part comme pour les autres language
ouais g vu, ca, mais ne nous plaignons pas par rapport au vb ;)
Tu sais Fabiin
je sais pas si ta tremarqué mais
un exe delphi meme vide fait 300 ko
alors que c== 20 ko je crois

cé un peu bete
ah oué, je savai po ;-)
mais je pense fort, ke en kestion de taille de fichier, comme en vb, un compsant est bcp plus lourd :)

PS : précision : g chopé ce code sur planet source code(j'avai oublier de préciser)
SAlut

Pourquoi se triturer la tete comme ça.

Ya plus simple:

dans vos composant (FastNet), vous avez NMHTTP

mettez le dans votre Form
ajouter un Label et un bouton

dans le code du bouton :
Label1.caption := NMHTTP1.LocalIP;

Ya pas plus simple
(d'autre composant de fastnet et Indy Misc le font)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.