4D Internet Commands v16

IT_PPPStatus

Inicio

 
4D Internet Commands v16
IT_PPPStatus

IT_PPPStatus 


 

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

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.

  • 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

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

 
PROPIEDADES 

Producto: 4D Internet Commands
Tema: IC Utilities
Número 88852

 
HISTORIA 

Creado por: 4D Internet Commands 6.8.1

 
ARTICLE USAGE

4D Internet Commands ( 4D Internet Commands v16)