4D Doc Center : IT

4D Internet Commands v14

IT_PPPStatus


IT_PPPStatus ( pppProfil ) -> Resultado

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

Descrição

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.

Em Windows

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

Under Mac OS

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