Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
SetProxy( < cServer >, < nPort >, [ cUser ], [ cPass ], [ lClient ] ) |
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cServer | caractere | Indica o endereço do servidor de proxy HTTP. | X |
nPort | numérico | Indica a porta do servidor de proxy HTTP. | X |
cUser | caractere | Indica o usuário para proxy HTTP. |
cPass | caractere | Indica a senha para proxy HTTP. |
lClient | lógico | Indica se irá definir na conexão feita pelo SmartClient (.T.) ou pelo AppServer (.F.). Valor padrão: .F.. |
Observações
- Caso o parâmetro lClient seja .T., a configuração será apenas para conexões SSL feitas pelo SmartClient.
- O parâmetro lClient está disponível a partir da build 7.00.131227A com data de geração superior a 17/03/2016.
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include "totvs.ch"
#include "xmlcsvcs.ch"
user function tstpost()
Local cUrl := "http://www.google.com"
Local nTimeOut := 120
Local aHeadOut := {}
Local cHeadRet := ""
Local cPostRet := ""
AAdd( aHeadOut, 'User-Agent: Mozilla/4.0 (compatible; Protheus ' + GetBuild() + ')' )
AAdd( aHeadOut, 'Content-Type: application/x-www-form-urlencoded')
SetProxy( "myproxyserver.com", 8080 )
sPostRet := HttpPost( cUrl, "REQUEST=1212", "EXAMPLEFIELD=DUMMY", nTimeOut, aHeadOut, @cHeadRet )
if !empty( sPostRet )
conout( "HTTPPost OK" )
varinfo( "WebPage", cPostRet )
else
conout( "HTTPPost Failed." )
endif
varinfo( "Header", cHeadRet )
return
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas