Histórico da Página
...
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 |
- Caso o parâmetro lClient seja .T., o status retornado será apenas de conexões SSL feitas pelo SmartClient. Para o status das funções HTTPCPost e HTTPCGet coloque o valor .F..
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.
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include "totvs.ch"
#include "xmlxfun.ch"
Web Function ExHTTPPost()
Local cHtml := ""
if ( HttpPost->login != Nil ) .and. ( HttpPost->pass != Nil )
conout( "Post com Sucesso" )
conout( "login: " + HttpPost->login )
conout( "Pass: " + HttpPost->pass )
cHtml := "<html>" + CRLF"
cHtml += "<body>" + CRLF
cHtml += "<h1>HttpPost</h1>" + CRLF + CRLF
cHtml += "<table border="1">" + CRLF
cHtml += "<tr><td>Login</td><td>" + HttpPost->login + "</td></tr>" + CRLF
cHtml += "<tr><td>Senha</td><td>" + HttpPost->pass + "</td></tr>" + CRLF
cHtml += "</table>" + CRLF
cHtml += "</body>" + CRLF
cHtml += "</html>"
endif
Return cHtml
Web Function loginMK()
Local cHtml := ""
Local cDesc := ""
if HttpGetStatus() == 0
cHtml := HTTPPost( "http://ricardo/w_ExHTTPPost.apw", "", "login=Teste&pass=123", 120 )
conout( HttpGetStatus( @cDesc ) )
conout( cDesc )
if HttpIsConnected()
conout( "isConnected" )
endif
endif
Return cHtml
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas