使用vbXMLRPC组件访问xmlrpc接口
来源:互联网 发布:实对称矩阵对角化步骤 编辑:程序博客网 时间:2024/05/18 04:01
这是最简单的一个helloworld的调用。xmlrpc服务器端的代码在前一个blog中。用perl写的。主要是为了测试不同语言的兼容性。
Private Sub Command1_Click()
Dim linsRequest As New XMLRPCRequest
Dim linsResponse As XMLRPCResponse
Dim linsUtility As New XMLRPCUtility
Dim linsValue As XMLRPCValue
Dim linsMember As XMLRPCMember
Dim llngChanId As Long
Dim lstrChanTitle As String
Me.MousePointer = vbHourglass
linsRequest.HostName = "202.195.160.145"
linsRequest.HostPort = 80
linsRequest.HostURI = "/webmin-rpc/xmlrpc.cgi"
linsRequest.MethodName = "World.HelloWorld"
Set linsResponse = linsRequest.Submit
Select Case linsResponse.Status
Case XMLRPC_PARAMSRETURNED
If linsResponse.Params.Count = 1 Then
If linsResponse.Params(1).ValueType = XMLRPC_STRING Then
Label1.Caption = linsResponse.Params(1).StringValue
Else
BugOut "Expecting a datetime to be returned instead received a '" & linsUtility.GetXMLRPCType(linsResponse.Params(1).ValueType) & "'."
End If
Else
BugOut "Expecting one return parameter, received '" & linsResponse.Params.Count & "'."
End If
Case XMLRPC_FAULTRETURNED
BugOut "Server returned a fault. Code is '" & linsResponse.Fault.faultCode & "', description is '" & linsResponse.Fault.faultString & "'."
Case XMLRPC_HTTPERROR
BugOut "HTTP error encountered. Code is '" & linsResponse.HTTPStatusCode & "', description is '" & linsUtility.GetHTTPError(linsResponse.HTTPStatusCode) & "'."
Case XMLRPC_XMLPARSERERROR
BugOut "XML Parsing Error encountered '" & linsResponse.XMLParseError & "'."
Case XMLRPC_NOTINITIALISED
BugOut "Weird, the response claims not to be initialised !!!"
Case Else
BugOut "Double Weird, unknown response status '" & linsResponse.Status & "'."
End Select
Me.MousePointer = vbDefault
End Sub
Private Sub BugOut(ByVal vstrError As String)
MsgBox vstrError, vbOKOnly + vbCritical, App.Title
End Sub
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=477823
- 使用vbXMLRPC组件访问xmlrpc接口
- 使用vbXMLRPC组件访问xmlrpc接口
- 使用vbXMLRPC组件访问xmlrpc接口
- 使用vbXMLRPC组件访问xmlrpc接口
- 使用vbXMLRPC组件访问xmlrpc接口
- 使用vbXMLRPC组件访问xmlrpc接口
- VC中使用XMLRPC提供接口(XMLPRC++)
- VC中使用XMLRPC提供接口(XMLPRC++)
- xmlrpc使用
- xmlrpc的使用
- VC中使用XMLRPC
- PHP XMLRPC 使用示例
- python中使用xmlrpc
- XMLRPC
- xmlRpc
- xmlrpc使用中的一个问题
- python使用xmlrpc实例讲解
- java中xmlrpc的使用
- 评 风头盖过大碗明星 易氏"烹"三国读者热"品"
- 升级到MySQL 5.0.17一定遇到的四个问题
- 儿时的游戏,你还记得多少?谨以此献给80年以前出生那一代人,80年以后出生的勿入!
- 读易[12]·如何做好职业规划(乾卦)
- 农民工的住房公积金(转)
- 使用vbXMLRPC组件访问xmlrpc接口
- 所有男生女生看了都会感动的分手理由(天堂杂志转贴)
- 《LoadRunner从入门到精通》策划中——《Web性能测试实战》的姊妹篇调查意见
- 如果油价继续上涨 我们可以这样...(组图)
- 所有男生女生看了都会感动的分手理由(天堂杂志转贴)
- 评 风头盖过大碗明星 易氏"烹"三国读者热"品"
- 中国的IT企业和客户,哪个更贱?
- 从Open Web SSO 学习软件架构设计
- 李开复:21世纪7种人才最抢手