Hi:
I need traslate this code to VFP:
______________________________-
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.load "yourfile.xml"
If objXML.parseError.errorCode = 0 Then
Set objHttp = CreateObject("Microsoft.XMLHTTP")
objHttp.open "POST", "
http://your-server.com/", False
objHttp.send objXML
strStatus = "Server Status: " & objHttp.Status & " - " & objHttp.StatusText
MsgBox strStatus
Else
MsgBox objXML.parseError.reason
End If
-------------------------------
In VFP:
------------------------------
objXML = CreateObject("MSXML.DOMDocument")
objXML.load ("e:\tmp1\yourfile.xml")
*check if the document was loaded and parsed OK
If objXML.parseError.errorCode = 0 Then
objHttp = CreateObject("Microsoft.XMLHTTP")
objHttp.open ("POST", "
http://your-server.com/", .F.)
objHttp.send objXML
strStatus = "Server Status: " + str(objHttp.Status) + " - " + objHttp.StatusText
MessageBox(strStatus)
Else
MessageBox (objXML.parseError.reason)
EndIf
-----------------------------------
But I cannot traslate the: objHttp.send objXML.
TIA
Alberto Rodriguez