问题是这样的,我要改一下我们的GIS与移动的LBS系统对接,用以确定个人位置,要把移动回来的手机的经纬度在地图上显示。我给移动LBS发送手机号,移动LBS系统返回经纬度。现在是:移动提供给我的是IP与端口号,我的XML文档只要发送到这个IP的机器上的端口就可以,而不是把请求提交到某个页面,请问还是用httpRequest.open "POST","http://210.134.132.008:2234",False提交吗?1)发送XML请求
Dim httpRequest As MSXML.XMLHTTPRequest
Set httpRequest = New MSXML.XMLHTTPRequest
Dim StrXml As String
'构造出要上传的XML串,这里节点使用中文
StrXml = "<Request>" & _
"<SPID>" & TxtID.Text & "</SPID>" & _
"<SPPWD>" & TxtPwd.Text & "</SPPWD>" & _
"<MOBILE>" & TxtMobile.Text & "</MOBILE>" & _
"</Request>"
httpRequest.Open "POST", "http://localhost/webxml/putsingleinfo.asp", False
是不是改成这样就可以了:
httpRequest.open "POST","http://210.134.132.008:2234",False httpRequest.send StrXml2接收XML文档
Dim strLongitude As String
Dim strlatitude As String
Dim ResponseXml As DOMDocument
Set ResponseXml = New DOMDocument
Set ResponseXml = httpRequest.ResponseXml
strLongitude = ResponseXml.selectSingleNode("//经度").Text
strlatitude = ResponseXml.selectSingleNode("//纬度").Text
客户端接收是这样子的吗?
Dim httpRequest As MSXML.XMLHTTPRequest
Set httpRequest = New MSXML.XMLHTTPRequest
Dim StrXml As String
'构造出要上传的XML串,这里节点使用中文
StrXml = "<Request>" & _
"<SPID>" & TxtID.Text & "</SPID>" & _
"<SPPWD>" & TxtPwd.Text & "</SPPWD>" & _
"<MOBILE>" & TxtMobile.Text & "</MOBILE>" & _
"</Request>"
httpRequest.Open "POST", "http://localhost/webxml/putsingleinfo.asp", False
是不是改成这样就可以了:
httpRequest.open "POST","http://210.134.132.008:2234",False httpRequest.send StrXml2接收XML文档
Dim strLongitude As String
Dim strlatitude As String
Dim ResponseXml As DOMDocument
Set ResponseXml = New DOMDocument
Set ResponseXml = httpRequest.ResponseXml
strLongitude = ResponseXml.selectSingleNode("//经度").Text
strlatitude = ResponseXml.selectSingleNode("//纬度").Text
客户端接收是这样子的吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货