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

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

#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

...

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave

Exemplos