XML-RPC的COM组件 comxmlrpc
本文导语: 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:...
![XML-RPC的COM组件 comxmlrpc[图片]](/img/tech-article-img/img_1418395638_135517.gif)
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
您可能感兴趣的文章:
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。