VB6 code to VFP 1

[JRB-Bldr]

OK -- all you cross-disciplinary developers, I could use some assistance with the following.

I have a vendor who refuses to provide ANY but the absolute most minimal help in resolving problems with my sending an HTTP Post to them.

Their only reply is "In VB6, this is all I have to do using the XML object." Not totally helpful!!!

Well here is the VB6 code that they provided:

Private Function PostXML(xml As String) As String

Dim XslHttp As MSXML2.XMLHTTP

    Set XslHttp = New MSXML2.XMLHTTP
    XslHttp.open "POST", "[URL unfurl="true"]https://typhoonmanager.com/XMLPost/post.asp?ID=a012345",[/URL] False, "", ""
    XslHttp.setRequestHeader "content-type", "text/xml"
    XslHttp.send (xml)

    PostXML = XslHttp.responseText

    Set XslHttp = Nothing
    
End Function

Since I am using the Chilkat HTTP ActiveX modules, I will see if they can assist me in converting the above into VFP code using their own HTTP ActiveX modules.

But, in the mean time, if someone can help me twist that code into VFP code, it would be greatly appreciated.

Thanks,
JRB-Bldr

 

[Mike Lewis]

Well, I'm definitely not a VB type, but I've been in the same position regarding VB-only support people, so I'll give it a try:

FUNCTION PostXML
LPARAMETERS xml
LOCAL XslHttp 
XslHttp = CREATEOBJECT("MSXML2.XMLHTTP")
XslHttp.open("POST", ;
  "[URL unfurl="true"]https://typhoonmanager.com/XMLPost)/post.asp?ID=a012345",;[/URL]
  .F., "", "")
XslHttp.setRequestHeader("content-type", "text/xml")
XslHttp.send(xml)
RETURN XslHttp.responseText    
ENDFUNC

No warranties given or implied. If someone tells you the above is wrong, they're probably right.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips, training, consultancy

 

[JRB-Bldr]

Thanks Mike.
I'll try it out and see what happens.

Thanks,
JRB-Bldr

 

[JRB-Bldr]

After I found and resolved a typo in the code above

"

https://typhoonmanager.com/XMLPost)/post.asp?ID=a012345"

should have been
"

https://typhoonmanager.com/XMLPost/post.asp?ID=a012345"

(no right parenthesis after XMLPost)

the code appears to work.

Mike - Thanks,
JRB-Bldr

 

[Mike Lewis]

the code appears to work

Amazing.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips, training, consultancy