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.
Sélectionnez
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
` 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("")