HTTPGetStatus

HTTPGetStatus ( [ @cErro] ) --> nRetorno

nRetorno(numerico)
• Retorna o status da conexão HTTP atual requerida.

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

//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