使用vbXMLRPC组件访问xmlrpc接口

最新推荐文章于 2021-02-27 14:23:14 发布

happmaoo

最新推荐文章于 2021-02-27 14:23:14 发布

阅读量78

点赞数

文章标签： Perl CGI Blog .net XML

本文介绍了一个简单的跨语言XMLRPC调用示例，使用Visual Basic编写的客户端调用Perl编写的XMLRPC服务器端。该示例展示了如何通过XMLRPC进行不同编程语言间的互操作性测试。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这是最简单的一个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