Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Inet usando POST
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00706350
Message ID:
00706871
Views:
13
This message has been marked as the solution to the initial question of the thread.
Oi Fabiano,

Como foi colocado pelo Antônio, para passar os dados via POST, você deve alterar o content-type da requisição HTTP e enviar os dados como se eles estivessem vindo de um Formulário HTML.

O exemplo abaixo mostra como isto seria feito usando XMLHTTP:
LOCAL lcValores
LOCAL loXMLHTTP as "MSXML2.XMLHTTP"

lcValores = "Valor1=1&Valor2=2"

loXMLHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
loXMLHTTP.open("POST", "http://www.microsoft.com", .F.)
loXMLHTTP.setRequestHeader("Content-Type", ;
                           "application/x-www-form-urlencoded")
loXMLHTTP.Send(lcValores)

*-- Você pode recuperar o retorno HTTP pela propriedade "responseBody"
MESSAGEBOX(loXMLHTTP.responseBody)

loXMLHTTP = null
Veja que agora os valores são enviados como parâmetro do método Send().

Um abraço!
-----
Fabio Vazquez
http://www.fabiovazquez.com
Previous
Reply
Map
View

Click here to load this message in the networking platform