Récupérer son ip

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 239 fois - Téléchargée 33 fois

Commenter

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
MakeExE Messages postés 4 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 31 janvier 2002
31 janv. 2002 à 05:40
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
fabiin
24 août 2001 à 13:31
ouais g vu, ca, mais ne nous plaignons pas par rapport au vb ;)
DelphiCool
23 août 2001 à 15:12
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
fabiin
23 août 2001 à 07:55
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)
DelphiCool
23 août 2001 à 06:03
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)
S'inscrire maintenant

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.

Du même auteur (fabiin)