Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle | ||
---|---|---|
|
...
...
...
|
Retorna
...
o
...
status
...
da
...
conexão
...
HTTP
...
-
...
HyperText
...
Transfer
...
Protocol
...
(Protocolo
...
de
...
Transferência
...
de
...
Hipertexto)
...
requisitada.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
HTTPGetStatus( [ @cErro] ) --> nRetorno Parâmetros/Elementos [ @cError ], [ lClient ] )
|
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
---|
...
cError |
...
caractere | Indica a descrição do erro HTTP. | X |
lClient | lógico | Indica se irá retornar o status da conexão feita pelo SmartClient (.T.) ou pelo AppServer (.F.). Valor padrão: .F.. |
Retorno
...
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico |
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.
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include #INCLUDE " TOTVStotvs.CH ch"#INCLUDE #include "XMLXFUN xmlxfun.CH ch" Web Function ExHTTPPost() Local cHtml := "" if ( HttpPost->login != Nil ) .AND and. ( HttpPost->pass != Nil) ) conout( "Post com Sucesso\nlogin " ) conout( "login: " + HttpPost->login+ ) conout( "\nPass Pass: " + HttpPost->pass) cHtml := " HttpPost") cHtml := "<html>" + CRLF" cHtml += "<body>" + CRLF cHtml += "<h1>HttpPost</h1>" + CRLF + CRLF cHtml +="" "<table border="1">" + CRLF cHtml += " | Login | "+Senha | "+