TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Função: HTTPGetStatus

Retorna o status da conexão HTTP - HyperText Transfer Protocol (Protocolo de Transferência de Hipertexto) requisitada.

Sintaxe

HTTPGetStatus ( [ @cErro] ) --> nRetorno

Parâmetros/Elementos
NomeTipoDescriçãoObrigatórioReferência
cErroCaracterIndica a descrição do erro HTTP. X
Retorno
    nRetorno(numerico)
  • Retorna o status da conexão HTTP atual requerida.
Observações

Os valores retornados são de acordo com o protocolo HTTP, entre eles os mais comuns e importantes são:

Código de erro Descrição

500 

Internal Server Error 

501 

Not Implemented 

502 

Bad Gateway 

403;14 

Forbidden - Directory Listing Denied 

200

Sucess Connection 

Exemplos 
//Neste exemplo, usamos a função HTTPGetStatus para termos certeza de que não temos uma conexão HTTP válida, para isto verificamos o código retornado pela função.//Estando tudo correto, realizamos uma emulação de post para a função no início do fonte - ExHTTPPost() - retornando uma simples tabela com os dados postados.//Em seguida ainda verificamos a conexão após o Post.#INCLUDE "TOTVS.CH"#INCLUDE "XMLXFUN.CH"Web Function ExHTTPPost()	Local cHtml := ""		if (HttpPost->login != Nil .AND. HttpPost->pass != Nil)		conout("Post com Sucesso\nlogin: "+HttpPost->login + "\nPass: "+ HttpPost->pass)				cHtml := "
HttpPost


"		cHtml += "
"		cHtml += ""		cHtml += ""		cHtml += "
Login"+HttpPost->login+"
Senha"+HttpPost->pass+"
"	endif	Return cHtmlweb Function loginMK()    	Local cHtml := ""			if HttpGetStatus() == 0	cHtml := HTTPPOST( "http://ricardo/w_ExHTTPPost.apw", "", "login=Teste&pass=123", 120 , NIL )	conout( HttpGetStatus() )		if HttpIsConnected()		conout("isConnected")	endif        endif	Return cHtml
Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos