4D Doc Center : IT

4D Internet Commands v14

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)

 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