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

Thomas Schlumberger

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

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

- Auteur : Thomas Schlumberger

- Parution : 18 août 2006

- Licence : 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.

Sommaire

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.

1. ` Méthode d'appel :

3. C_TEXTE(Mon_adresse_IP;Mon_SousReseau)

4. C_ENTIER LONG(Reponse_4DIC)

5. ERROR:=0

6. Reponse_4DIC:=IT_TCPAddr (->Mon_adresse_IP;->Mon_SousReseau)

7. ALERTE("IP : "+Mon_adresse_IP+"   SousReseau : "+Mon_SousReseau+"   Réponse 4DIC: "+Chaine(Reponse_4DIC))

8. ` Reponse_4DIC = -1, si 4D Internet Command n'est pas chargé

9. ` Mon_adresse_IP=127.0.0.1, si 4D Internet Command n'est pas chargé

12. ` Méthode appelée : IT_TCPAddr

14. C_ENTIER LONG($0; vl_Réponse)

15. C_TEXTE(vt_Param1)

16. C_TEXTE(vt_Param2)

17. C_POINTEUR($1;$2)

19. APPELER SUR ERREUR("ERROR_HANDLER")   ` cette méthode doit exister

20. vl_Réponse:=-1   ` erreur par défaut, si 4D Internet Commands n'est pas actif

21. vt__Param1:="127.0.0.1"   ` valeur par défaut, permettant un acces local

22. vt__Param2:="0.0.0.0"   ` valeur par défaut

23. EXECUTER("vl_Réponse:=IT_MyTCPAddr (vt__Param1; vt__Param2)")

24. $1->:= vt__Param1

25. $2->:= vt__Param2

26. $0:= vl_Réponse

27. APPELER SUR ERREUR("")