IT_PPPStatus

4D - Documentation   Français   English   German   Commandes Internet de 4D, Sommaire   Commandes Internet de 4D, Index   Retour   Précédent   Suivant

version 6.8.1


IT_PPPStatus {(profilPPP)} Entier

ParamètreTypeDescription
profilPPPAlphaNom de connexion à distance (chaîne vide sous
Mac OS, nom optionnel sous Windows)
RésultatEntier1 = connecté, 0 = en cours de connexion, -1 = erreur

Description

La commande IT_PPPStatus vous permet de tester le statut d'une connexion à distance ouverte à l'aide de la commande IT_PPPConnect ou manuellement.

Le paramètre profilPPP désigne la connexion à tester. Sous Windows, ce paramètre est optionnel mais peut être utile pour garantir l'exécution de la commande quelle que soit la configuration réseau de l'utilisateur.

Sous Windows

Si profilPPP est passé et est valide, le statut de la connexion spécifiée est retourné.

Si profilPPP est omis ou contient une chaîne vide, IT_PPPStatus retourne :

- si plusieurs connexions sont ouvertes, -1

- si une seule connexion est ouverte, le statut de la connexion.

Sous Mac OS

Le paramètre profilPPP est ignoré.

IT_PPPStatus retourne un entier indiquant le statut de la connexion :

1 si la connexion est établie,

0 si la connexion est en cours d'établissement,

-1 si la connexion a échoué ou s'il n'y a aucune connexion.

Exemple

      `Méthode GetMessages (méthode exécutée dans un process)
   Si(mPPPConnect($vPPPProfil; 120))
      $vErrCode:=IT_MacTCPInit 
      Si($vErrCode=0)
         $vErrCode:=POP3_Login...
         ...
      Sinon
         ALERTE("Connection failed")
      Fin de si
   Fin de si

      `Méthode mPPPConnect
   C_BOOLEEN($0) `Vrai si on est déjà connecté, Faux si la connexion a échoué
   C_TEXTE($1) `Chaîne vide sous Mac OS, Nom sous Windows
   C_ENTIER($2)  `Timeout en secondes

   Si (IT_PPPStatus =1)
      $0:=Vrai  `On est déjà connecté
   Sinon
      $vTimeoutLength:=$2
      $vTimeout:=Faux
      $vErr:=IT_PPPConnect($1)
      Si($vErr=0)
         $vStart:=Heure courante
         Repeter
            ENDORMIR PROCESS(Numero du process courant;30)
            $vStatus:=IT_PPPStatus($1)
            $vTimeout:=((Heure courante-$vStart)>$vTimeoutLength)
         Jusque (($vStatus=1) | $vTimeout) `Connexion ou timeout 
         Si(Non($vTimeout)) 
            $0:=Vrai  `Connexion
         Fin de si
      Fin de si  `… $Err = 0
   Fin de si.

Référence

IT_PPPConnect, IT_PPPDisconnect.


4D - Documentation   Français   English   German   Commandes Internet de 4D, Sommaire   Commandes Internet de 4D, Index   Retour   Précédent   Suivant