XML-PRC以及在Tcl中的使用

Question

XML-PRC (XML Remote Procedure Call)，顾名思义，就是通过XML实现远程过程调用（RPC）。

• XML-RPC 网站：http://www.xmlrpc.com/
• XML-RPC Spec: http://www.xmlrpc.com/spec
• 基本思路：XML + HTTP

Tcl中的XML-PRC

• TclSOAP : http://tclsoap.sourceforge.net/
• XML-RPC for Tcl : http://sourceforge.net/projects/xmlrpctcl/

XML-PRC 规范概要

XML-RPC请求.xml

POST /RPC2 HTTP/1.0
User-Agent: Frontier/5.1.2 (WinNT)
Host: betty.userland.com
Content-Type: text/xml
Content-length: 181

<?xml version="1.0"?>
<methodCall>
   <methodName>examples.getStateName</methodName>
   <params>
      <param>
         <value><i4>41</i4></value>
      </param>
   </params>
</methodCall>

XML-RPC响应.xml

HTTP/1.1 200 OK
Connection: close
Content-Length: 158
Content-Type: text/xml
Date: Fri, 17 Jul 1998 19:55:08 GMT
Server: UserLand Frontier/5.1.2-WinNT

<?xml version="1.0"?>
<methodResponse>
   <params>
      <param>
         <value><string>South Dakota</string></value>
      </param>
   </params>
</methodResponse>

Answer 1

基于TclSOAP的XML-RPC客户端示例

示例代码: TclSOAP-XMLRPC-client.tcl

package require XMLRPC
package require SOAP

# 定义接口
XMLRPC::create UserLogin \
  -name "user.login" \
  -proxy http://some.host.net/xmlrpc.cgi \
  -params {user string passwd string}

# 调用
UserLogin "tcler" "i love you"

其中：

• "-name"选项是XML-RPC的"methodName"
• 第一个参数（例子中是"UserLogin"）是要创建的的本地proc的名称
• "-params"指定要传递的参数名称和类型

如果想观察一下传输的数据内容，可以用如下的示例

示例代码: TclSOAP-debug-xmlrpc.tcl

proc debug_xmlrpc {method url xml} {
    puts "$xml"
}

SOAP::configure user.login -transport debug_xmlrpc