IT_PPPStatus

4D Internet Commands v16

IT_PPPStatus


IT_PPPStatus ( profilPPP ) -> Résultat

Paramètre	Type	Description
profilPPP	Chaîne	Nom de connexion à distance (chaîne vide sous Mac OS, nom optionnel sous Windows)
Résultat	Entier	1 = 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)

 If(mPPPConnect($vPPPProfil;120))

    $vErrCode:=IT_MacTCPInit

    If($vErrCode=0)

       $vErrCode:=POP3_Login...

       ...

    Else

       ALERT("Connection failed")

    End if

 End if

 

  //Méthode mPPPConnect

 C_BOOLEAN($0) //Vrai si on est déjà connecté, Faux si la connexion a échoué

 C_TEXT($1) //Chaîne vide sous Mac OS, Nom sous Windows

 C_LONGINT($2) //Timeout en secondes

 

 If(IT_PPPStatus=1)

    $0:=True //On est déjà connecté

 Else

    $vTimeoutLength:=$2

    $vTimeout:=False

    $vErr:=IT_PPPConnect($1)

    If($vErr=0)

       $vStart:=Current time

       Repeat

          DELAY PROCESS(Current process;30)

          $vStatus:=IT_PPPStatus($1)

          $vTimeout:=((Current time-$vStart)>$vTimeoutLength)

       Until(($vStatus=1)|$vTimeout) //Connexion ou timeout

       If(Not($vTimeout))

          $0:=True //Connexion

       End if

    End if //… $Err = 0

 End if

Voir aussi

IT_PPPConnect
IT_PPPDisconnect