Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: HTTPGetStatus
|
Nome | Tipo | Descrição | Obrigatório | Referência |
cErro | Caracter | Indica a descrição do erro HTTP. | X |
- 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:
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 |
//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 += "" 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" cHtml += "
" cHtml += " Login "+HttpPost->login+" " cHtml += " Senha "+HttpPost->pass+"
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas