使用vbXMLRPC组件访问xmlrpc接口
2007-12-17 10:35
459 查看
这是最简单的一个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
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接口
- VC中使用XMLRPC提供接口(XMLPRC++)
- 使用c++开发客户端调用XML-RPC 接口
- VC中使用XMLRPC提供接口(XMLPRC++)
- VC中使用XMLRPC提供接口(XMLPRC++)
- Odoo(OpenERP)开发实践:通过XML-RPC接口访问Odoo数据库
- 使用XML-RPC来访问Web服务
- [2004-8-4]VB.Net学习笔记,使用ADO.Net对象访问数据库,将结果写入ListView
- FleaPHP 开发指南 - 8. 如何使用 RBAC 组件实现访问控制
- 学习effective java-14类和接口之在公有类中使用可访问的方法,而不是使用公有域
- SQL Server 阻止了对组件“Ad Hoc Distributed Queries”的 STATEMENT“OpenRowset/OpenDatasource”的访问,因为此组件已作为此服务器安全配置的一部分而被关闭。系统管理员可以通过使用 sp_configure 启用“Ad Hoc Distributed Queries”。有关启用“Ad Hoc Distributed Queries”
- 利用ATL创建com组件和如何在程序中使用组件的接口函数和设置接口的属性
- .NET 使用 ODP.NET 组件访问Oracle提示 外部组件发生异常 错误的解决办法
- dom4j解析接口使用SOAP传递的xml
- SQL Server 阻止了对组件 'Ole Automation Procedures' 的 过程'sys.sp_OACreate' 的访问,因为此组件已作为此服务器安全配置的一部分而被关闭。系统管理员可以通过使用 sp_configur
- xmlrcp学习 - python中使用xmlrpc