Developpez.com - 4D
X

Choisissez d'abord la catégorieensuite la rubrique :


Récupérer l'adresse IP de l'ordinateur avec gestion d'erreur (avec 4D IC)

Date de publication : 18/08/2006

Par Thomas Schlumberger (Responsable Support International)
 

Voici une méthode simple qui retourne l'adresse IP et le sous réseau de l'ordinateur.


Produit : 4D 2003 & 4D 2004  ·  Plateforme : Windows & Mac


La commande du plug-in 4D Internet Commands (4D IC) IT_MyTCPAddr retourne l'adresse IP et le sous-réseau de l'ordinateur.

Avec cet exemple, si 4D Internet Commands n'est pas présent, ou l'heure en mode démonstration est dépassée, l'adresse locale sera retournée par défaut.


      ` Méthode d'appel :

   C_TEXTE(Mon_adresse_IP;Mon_SousReseau)
   C_ENTIER LONG(Reponse_4DIC)
   ERROR:=0
   Reponse_4DIC:=IT_TCPAddr (->Mon_adresse_IP;->Mon_SousReseau)
   ALERTE("IP : "+Mon_adresse_IP+"   SousReseau : "+Mon_SousReseau+"   Réponse 4DIC: "+Chaine(Reponse_4DIC))
      ` Reponse_4DIC = -1, si 4D Internet Command n'est pas chargé
      ` Mon_adresse_IP=127.0.0.1, si 4D Internet Command n'est pas chargé


      ` Méthode appelée : IT_TCPAddr


   C_ENTIER LONG($0; vl_Réponse)
   C_TEXTE(vt_Param1)
   C_TEXTE(vt_Param2)
   C_POINTEUR($1;$2)

   APPELER SUR ERREUR("ERROR_HANDLER")   ` cette méthode doit exister
   vl_Réponse:=-1   ` erreur par défaut, si 4D Internet Commands n'est pas actif
   vt__Param1:="127.0.0.1"   ` valeur par défaut, permettant un acces local
   vt__Param2:="0.0.0.0"   ` valeur par défaut
   EXECUTER("vl_Réponse:=IT_MyTCPAddr (vt__Param1; vt__Param2)")
   $1->:= vt__Param1
   $2->:= vt__Param2
   $0:= vl_Réponse
   APPELER SUR ERREUR("")



Valid XHTML 1.1!Valid CSS!

Copyright © 2006 4D s.a.. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Contacter le responsable de la rubrique 4D