comxmlrpc 是一个Windows下的COM组件,封装了对 XML-RPC 协议的支持。
示例代码:
dim xmlrpcserver as comxmlrpc.rpcClient dim params() as Variant dim x as Integer set xmlrpcserver = new comxmlrpc.rpcClient redim params(1) params(0) = 3 params(1) = 5 xmlrpcserver.uri = “http://localhost:80/RPC2" x = xmlrpcserver.execute(“someClass.sum”,params)
dim xmlrpcserver as comxmlrpc.rpcClient dim params() as Variant dim x as Integer set xmlrpcserver = new comxmlrpc.rpcClient dim dictionary As Object Set dictionary = CreateObject(“Scripting.Dictionary”) dictionary.Add “name”, “ignacio” dictionary.Add “age”, “17” redim params(0) set params(0) = dictionary xmlrpcserver.uri = “http://localhost:80/RPC2" x = xmlrpcserver(“someClass.structRecv”,params) ‘ using .execute default method