IT_PPPStatus

4D v18

IT_PPPStatus


IT_PPPStatus ( profilPPP ) -> resultado

Parámetro	Tipo	Descripción
profilPPP	Cadena	Nombre de conexión a distancia (cadena vacía bajo Mac OS, nombre bajo Windows
resultado	Entero	1 = conectado; 0 = en conexión; -1 = error

Descripción

El comando IT_PPPStatus le permite probar el estado de una conexión abierta por el comando IT_PPPConnect o manualmente.

El parámetro profilPPP especifica la conexión a probar.
Bajo Windows, este parámetro es opcional pero puede ser útil para garantizar la ejecución del comando independientemente de la configuración de red del usuario.

Bajo Windows

Si se pasa profilPPP y es válido, se devuelve el estado de la conexión especificada.
Si profilPPP no se pasa o contiene una cadena vacía, IT_PPPStatus devuelve:
- -1 si varias conexiones están abiertas,
- el estado de la conexión abierta si sólo una conexión está abierta

Bajo Mac OS

Este parámetro no se tiene en cuenta.

IT_PPPStatus devuelve un entero indicando el estado de la conexión:

1 si está conectado,
0 si se está conectando,
-1 en caso de una falla en la conexión o si no está conectado.

Ejemplo

  `Método GetMessages (método ejecutado en un proceso)

 If(mPPPConnect($vPPPProfil;120))

    $vErrCode:=IT_MacTCPInit

    If($vErrCode=0)

       $vErrCode:=POP3_Login...

       ...

    Else

       ALERT("Connection failed")

    End if

 End if

 

  `Método mPPPConnect

 C_BOOLEAN($0) `devuelve True si estamos conectados actualmente, False si la conexión falla

 C_TEXT($1) `cadena vacía bajo Mac OS, Nombre bajo Windows

 C_LONGINT($2) `timeout en segundos

 

 If(IT_PPPStatus=1)

    $0:=True `ya estamos conectados

 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) `Conexión o time out

       If(Not($vTimeout))

          $0:=True `Conexión

       End if

    End if `… $Err = 0

 End if

Ver también

IT_PPPConnect
IT_PPPDisconnect