Perguntas Exemplo de HTTP Post

Bom dia, amigos,

Estou precisando fazer uma integração com um webservice, enviando um arquivo.

Alguém tem algum exemplo de HTTP POST para me enviar pode ser qualquer um.

Obrigada,

Marta Nogueira

Segue exemplo, esse funciona.

Aqui no trabalho.

#INCLUDE "PROTHEUS.CH"

USER FUNCTION ADLOG016P()

LOCAL cHtmlPage := ""
LOCAL oXML
LOCAL _cErro := ""
LOCAL _cAviso := ""

// Buscar página
cHtmlPage := Httpget(' dev.ctaplfafsafsus.com.br:8080/SvWebSinc...&data_fim=01/09/2015 ')
oXML := XmlParser( cHtmlPage, "_", @_cErro, @_cAviso )
conout("WebPage", cHtmlPage)

RETURN(NIL)

William,

Bom dia,

De cara já agradeço sua generosidade pois vou precisar desse comando também para pegar alguns arquivos. Vc, teria algum exemplo, com o httpost pois preciso colocar informações lá no webservice.

Obrigada mais uma vez,

Marta Nogueira

Esse nunca fiz.

Só achei no TDN tdn.totvs.com/display/tec/HTTPPost

Vê se ajudar.

#INCLUDE "TOTVS.CH"
#INCLUDE "XMLCSVCS.CH"
user function tstpost()
Local cUrl := " www.google.com "
Local nTimeOut := 120
Local aHeadOut := {}
Local cHeadRet := ""
Local sPostRet := ""
aadd(aHeadOut,'User-Agent: Mozilla/4.0 (compatible; Protheus '+GetBuild()+')')
aadd(aHeadOut,'Content-Type: application/x-www-form-urlencoded')
sPostRet := HttpPost(cUrl,"REQUEST=1212","EXAMPLEFIELD=DUMMY",nTimeOut,aHeadOut,@cHeadRet)
if !empty(sPostRet)
conout("HttpPost Ok")
varinfo("WebPage", sPostRet)
else
conout("HttpPost Failed.")
varinfo("Header", cHeadRet)
Endif
Return