Fox Pro

[joya]

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.SetR equestHeader("Content-Type","text/xml")
       MESSAGEBOX(xmldata)      
      webServer.Send(xmldata)
         response = webServer.Resp onseText
     Catch To oError
         MessageBox(oError.Message,16,"Error")
     EndTry

     Return response
EndFunc


Tambien necesito saber que es el listener de soap y si necesito instalar algo para llevar a cabo el programa