import.css=/download/attachments/6062824/tecnologia.css |
Define o usuário e senha para autenticação HTTP.
HTTPSetPass( < cUser >, < cPass >, [ lClient ] ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cUser | caractere | Indica o usuário para autenticação HTTP. | X | |
cPass | caractere | Indica a senha para autenticação HTTP. | X | |
lClient | lógico | Indica se irá definir na conexão feita pelo SmartClient (.T.) ou pelo AppServer (.F.). Valor padrão: .F.. |
#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') HTTPSetPass( "user", "pass" ) 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 |