4D Internet Commands v14

IT_PPPStatus

Página Inicial

 
4D Internet Commands v14
IT_PPPStatus

IT_PPPStatus 


 

IT_PPPStatus ( pppProfil ) -> Resultado 
Parâmetro Tipo   Descrição
pppProfil  cadeia in Nome de Dial-up (cadeia vazia em Mac OS, nome em Windows)
Resultado  Inteiro in 1 = conectado; 0 = em conexão; -1 = erro

O comando IT_PPPStatus lhe permite provar o estado de uma conexão aberta pelo comando IT_PPPConnect ou manualmente.

O parâmetro profilPPP especifica a conexão a provar.
Em Windows, este parâmetro é opcional mas pode ser útil para garantir a execução do comando independentemente da configuração de rede do usuário.

  • Se passar profilPPP e é válido, é devolvido o estado da conexão especificada.
  • Se profilPPP não é passado ou contém uma cadeia vazia, IT_PPPStatus devolve:
    • -1 se várias conexões estão abertas,
    • o estado da conexão aberta somente se uma conexão está aberta

Este parâmetro não é levado em consideração.

IT_PPPStatus devolve um inteiro indicando o estado da conexão:

  • 1 se está conectado,
  • 0 se está conectando-se,
  • -1 no caso de uma falha na conexão ou se não está conectado.

Exemplo  

  `Método GetMessages (método executado em um processo)
 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`devolve True se estamos conectados atualmente, False se a conexão falha
 C_TEXT($1`cadeia vazia em Mac OS, Nome em Windows
 C_INTEGER($2`timeout in seconds
 
 If(IT_PPPStatus=1)
    $0:=True `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`Conexão ou time out
       If(Not($vTimeout))
          $0:=True `Conexão
       End if
    End if `… $Err = 0
 End if

 
PROPRIEDADES 

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

 
HISTÓRIA 

Criado por: 4D Internet Commands 6.8.1

 
VER TAMBÉM 

IT_PPPConnect
IT_PPPDisconnect

 
ARTICLE USAGE

4D Internet Commands ( 4D Internet Commands v11.4)
4D Internet Commands ( 4D v13.2)
4D Internet Commands ( 4D Internet Commands v12.1)
4D Internet Commands ( 4D Internet Commands v14 R2)
4D Internet Commands ( 4D Internet Commands v14)
4D Internet Commands ( 4D Internet Commands v14 R3)
4D Internet Commands ( 4D Internet Commands v14 R4)