四、基于XML_RPC的Web服務(wù)
利用XML_RPC構(gòu)造和使用服務(wù)是很方便的。企業(yè)為自己提供的各種服務(wù)部署XML_RPC服務(wù)器，用戶、客戶軟件和客戶企業(yè)就可以使用這種服務(wù)構(gòu)造出高端服務(wù)或者面向最終用戶的應(yīng)用。這種提供更有效、廉價和優(yōu)質(zhì)服務(wù)的競爭將極大地提高應(yīng)用服務(wù)的質(zhì)量。

但這里還存在一些問題有待解決，例如怎樣編目、索引、搜索Web上的服務(wù)？UDDI試圖解決這個問題，不過這個標(biāo)準(zhǔn)并不簡單，而且業(yè)界對它的反應(yīng)也尚未明了。然而，在企業(yè)內(nèi)部應(yīng)用XML_RPC不僅能夠改善代碼的可重用性，而且還會帶來一種全新的分布式計算模式，在此后的數(shù)年中它必將成為一種重要的知識財富。XML_RPC的發(fā)展從解決分布式計算問題以及成為服務(wù)式Web的基本層面開始，從而獲得了一個非常好的開端，其后必將緊隨著人們對該標(biāo)準(zhǔn)的熱衷。既然如此，現(xiàn)在就讓我們來看看XML_RPC的實際應(yīng)用吧！

4.1 在PHP中應(yīng)用XML_RPC

對于提供Web服務(wù)來說，PHP是一種非常理想的語言。我們只需編寫好PHP代碼然而把它放到一個合適的位置，就立即有了一個可通過URL“調(diào)用”的服務(wù)。PHP中的XML_RPC實現(xiàn)可能復(fù)雜也可能簡單，但我們擁有許多種選擇。這里我們選用的是來自Useful Information Company的XML_RPC實現(xiàn)，它的代碼和文檔可以從http://xmlrpc.usefulinc.com/下載。

這個XML_RPC實現(xiàn)的基本類涉及兩個文件：

xmlrpc.inc：包含XML_RPC的php客戶端所需要的類

xmlrpcs.inc：包含XML_RPC的php服務(wù)器所需要的類

4.2 客戶端

編寫XML_RPC客戶端意味著：

1.創(chuàng)建一個XML_RPC請求消息

2.設(shè)置XML_RPC參數(shù)

3.創(chuàng)建一個XML_RPC消息

4.發(fā)送消息

5.獲得應(yīng)答

6.解釋應(yīng)答

請看下面這個例子：

＜?php
$f=new xmlrpcmsg('examples.getStateName',array(new xmlrpcval(14, "int")));
$c=new xmlrpc_client("/RPC2", "betty.userland.com", 80);
$r=$c->send($f);
$v=$r->value();
if (!$r->faultCode()) {
print "狀態(tài)代碼". $HTTP_POST_VARS["stateno"] . "是" .
$v->scalarval() . "＜BR＞";
print "＜HR＞這是服務(wù)器的應(yīng)答＜BR＞＜PRE＞" .
htmlentities($r->serialize()). "＜/PRE＞＜HR＞n";
} else {
print "錯誤: ";
print "代碼: " . $r->faultCode() .
" 原因: '" .$r->faultString()."'＜BR＞";
}
?＞


在這個例子中，我們先創(chuàng)建了一個調(diào)用“examples.getStateName”方法的XML_RPC消息，并傳遞了一個類型為“int”值為14的整數(shù)參數(shù)。然后，我們創(chuàng)建了一個描述待調(diào)用URL（路徑、域和端口）的客戶。接著，我們發(fā)送了消息，接收應(yīng)答對象并檢查錯誤。如果不存在錯誤，我們就顯示結(jié)果。

編寫RPC客戶程序時要用到的主要函數(shù)如下：

創(chuàng)建客戶用：

$client=new xmlrpc_client($server_path, $server_hostname, $server_port);

發(fā)送消息的方法是：

$response=$client->send($xmlrpc_message);

它返回的是xmlrpcresp的一個實例。我們所傳遞的消息是xmlrpcmsg的實例，它用如下方法創(chuàng)建：

$msg=new xmlrpcmsg($methodName, $parameterArray);

methodName是待調(diào)用的方法（過程）的名字，parameterArray是xmlrpcval對象的php數(shù)組。例如：

$msg=new xmlrpcmsg("examples.getStateName", array(new xmlrpcval(23, "int")));

xmlrpcval對象可以用如下形式創(chuàng)建：

＜?php
$myVal=new xmlrpcval($stringVal);
$myVal=new xmlrpcval($scalarVal, "int" "boolean" "string" "double" "dateTime.iso8601" "base64");
$myVal=new xmlrpcval($arrayVal, "array" "struct");
?＞


第一種形式創(chuàng)建的是xmlrpc字符串值。第二種形式創(chuàng)建的是描述值和類型的值。第三種形式通過在數(shù)組之類的結(jié)構(gòu)中組合其他xmlrpc值創(chuàng)建復(fù)雜的對象，例如：

＜?php
$myArray=new xmlrpcval(array(new xmlrpcval("Tom"), new xmlrpcval("Dick"),new xmlrpcval("Harry")), "array");
$myStruct=new xmlrpcval(array(
"name" => new xmlrpcval("Tom"),
"age" => new xmlrpcval(34, "int"),
"geek" => new xmlrpcval(1, "boolean")),"struct");
?＞


應(yīng)答對象是xmlrpcresp類型，通過調(diào)用客戶對象的send方法獲得。在服務(wù)器端，我們可以通過如下方式創(chuàng)建xmlrpcresp類型的對象：

$resp=new xmlrpcresp($xmlrpcval);

而在客戶端，則使用如下方法從應(yīng)答獲取xmlrpcval：

$xmlrpcVal=$resp->value();

接下來我們就可以用下面這種方式獲取描述應(yīng)答結(jié)果的PHP變量：

$scalarVal=$val->scalarval();

對于復(fù)雜的數(shù)據(jù)類型，有兩個函數(shù)非常有用，這兩個函數(shù)都在xmlrpc.inc內(nèi)：

$arr=xmlrpc_decode($xmlrpc_val);

該函數(shù)返回一個PHP數(shù)組，其中包含了xmlrpcval變量$xmlrpc_val之內(nèi)的數(shù)據(jù)，這些數(shù)據(jù)已經(jīng)被轉(zhuǎn)換成PHP本身具有的變量類型。

$xmlrpc_val=xmlrpc_encode($phpval);

該函數(shù)返回一個xmlrpcval類型的值，其中包含了$phpval描述的PHP數(shù)據(jù)。對于數(shù)組和結(jié)構(gòu)，此方法能夠進行遞歸分析。注意，這里不存在對非基本數(shù)據(jù)類型（如base-64數(shù)據(jù)，或者日期-時間數(shù)據(jù)）的支持。

4.3 服務(wù)器端

利用xmlrpcs.inc提供的類編寫服務(wù)非常簡單。要創(chuàng)建一個服務(wù)，我們按照如下方式創(chuàng)建xmlrpc_server的實例：

＜?php
$s=new xmlrpc_server( array("examples.myFunc" =>
array("function" => "foo")));
?＞

傳遞給xmlrpc_server構(gòu)造函數(shù)的是一個聯(lián)合數(shù)組的聯(lián)合數(shù)組。過程“examples.myFunc”調(diào)用“foo”函數(shù)，由于這個原因foo被稱為方法句柄。

編寫方法句柄很簡單。下面是一個方法句柄的骨架：

＜?php
function foo ($params) {
global $xmlrpcerruser; // 引入用戶錯誤代碼值
// $params是一個xmlrpcval對象的數(shù)組
if ($err) {
// 錯誤條件
return new xmlrpcresp(0, $xmlrpcerruser+1, // 用戶錯誤1
"Error!");
} else {
// 成功
return new xmlrpcresp(new xmlrpcval("Fine!", "string"));
}
}
?＞


可以看到，程序檢查了錯誤，如存在錯誤則返回錯誤（從$xmlrpcerruser+1開始）；否則如果一切正常，則返回描述操作成功信息的xmlrpcresp。

五、應(yīng)用實例
在下面這個例子中我們將構(gòu)造一個服務(wù)。對于給定的數(shù)值n，服務(wù)返回n*2。客戶端利用該服務(wù)計算5*2的值。

服務(wù)器端的代碼如下：

＜?php
include("xmlrpc.inc");
include("xmlrpcs.inc");
function foo ($params)
{
global $xmlrpcerruser; // 引入用戶錯誤代碼值
// $params是xmlrpcval對象的一個數(shù)組
$vala=$params->params[0];
$sval=$vala->scalarval();
$ret=$sval*2;
return new xmlrpcresp(new xmlrpcval($ret, "int"));
}
$s=new xmlrpc_server( array("product" =>
array("function" => "foo")));
?＞


客戶端代碼如下：

＜?php
include("xmlrpc.inc");
if ($HTTP_POST_VARS["number"]!="") {
$f=new xmlrpcmsg('product',array(new xmlrpcval($HTTP_POST_VARS["number"], "int")));
$c=new xmlrpc_client("/xmlrpc/servfoo.php", "luigi.melpomenia.com.ar", 80);
$c->setDebug(0);
$r=$c->send($f);
$v=$r->value();
if (!$r->faultCode()) {
print "Number ". $HTTP_POST_VARS["number"] . " is " .
$v->scalarval() . "＜BR＞";
print "＜HR＞來自服務(wù)器的結(jié)果!＜BR＞＜PRE＞" .
htmlentities($r->serialize()). "＜/PRE＞＜HR＞n";
} else {
print "操作失敗: ";
print "代碼: " . $r->faultCode() .
" 原因: '" .$r->faultString()."'＜BR＞";
}
}
print "＜FORM METHOD="POST"＞
＜INPUT NAME="number" VALUE="${number}"＞
＜input type="submit" value="go" name="submit"＞＜/FORM＞＜P＞
輸入一個數(shù)值";
?＞


結(jié)束語：XML_RPC服務(wù)的運作還涉及其他許多基礎(chǔ)設(shè)施和基礎(chǔ)工作，如分布式過程的編目和索引機制，又如在編程語言中處理XML_RPC的更好接口等。有關(guān)XML_RPC和服務(wù)式Web的報道非常多，讓我們密切關(guān)注它們的發(fā)展吧！