recibir las peticiones desde servidor
Publicado por naia (3 intervenciones) el 28/02/2007 10:01:19
Este codigo contacta con un servidor remoto, le mando un xml y recibo una respuesta.
¿Que "codigo" me hace falta para recibir las peticiones de ese servidor a traves de una direccion web?
Function httpPost(webSite, xmlData)
Try
webServer = CREATEOBJECT("Msxml2.XmlHttp")
webServer.Open("POST",webSite,.F.)
webServer.SetRequestHeader("Content-Type","text/xml")
MESSAGEBOX(xmldata)
webServer.Send(xmldata)
response = webServer.ResponseText
Catch To oError
MessageBox(oError.Message,16,"Error")
EndTry
Return response
EndFunc
¿Que "codigo" me hace falta para recibir las peticiones de ese servidor a traves de una direccion web?
Function httpPost(webSite, xmlData)
Try
webServer = CREATEOBJECT("Msxml2.XmlHttp")
webServer.Open("POST",webSite,.F.)
webServer.SetRequestHeader("Content-Type","text/xml")
MESSAGEBOX(xmldata)
webServer.Send(xmldata)
response = webServer.ResponseText
Catch To oError
MessageBox(oError.Message,16,"Error")
EndTry
Return response
EndFunc
Valora esta pregunta
0