/**
* 函数：提供给RPC客户端调用的函数
* 参数：
* method 客户端需要调用的函数
* params 客户端需要调用的函数的参数数组
* 返回：返回指定调用结果
*/
function rpc_server_func(method, params) {
parameter = params[0];
if (parameter == "get")
{
return = 'This data by get method';
}
else
{
return = 'Not specify method or params';
}
return return;
}

//产生一个XML-RPC的服务器端
xmlrpc_server = xmlrpc_server_create();

//注册一个服务器端调用的方法rpc_server，实际指向的是rpc_server_func函数
xmlrpc_server_register_method(xmlrpc_server, "rpc_server", "rpc_server_func");

//接受客户端POST过来的XML数据
request = HTTP_RAW_POST_DATA;

//执行调用客户端的XML请求后获取执行结果
xmlrpc_response = xmlrpc_server_call_method(xmlrpc_server, request, null);

//把函数处理后的结果XML进行输出
header('Content-Type: text/xml');
echo xmlrpc_response;

//销毁XML-RPC服务器端资源
xmlrpc_server_destroy(xmlrpc_server);
?>

/**
* 函数：提供给客户端进行连接XML-RPC服务器端的函数
* 参数：
* host 需要连接的主机
* port 连接主机的端口
* rpc_server XML-RPC服务器端文件
* request 封装的XML请求信息
* 返回：连接成功成功返回由服务器端返回的XML信息，失败返回false
*/
function rpc_client_call(host, port, rpc_server, request) {

file://打开指定的服务器端
fp = fsockopen(host, port);

file://构造需要进行通信的XML-RPC服务器端的查询POST请求信息
query = "POST rpc_server HTTP/1.0\nUser_Agent: XML-RPC Client\nHost: ".host."\nContent-Type: text/xml\nContent-Length: ".strlen(request)."\n\n".request."\n";

file://把构造好的HTTP协议发送给服务器，失败返回false
if (!fputs(fp, query, strlen(query)))
{
errstr = "Write error";
return false;
}

//获取从服务器端返回的所有信息，包括HTTP头和XML信息
contents = '';
while (!feof(fp))
{
contents .= fgets(fp);
}

//关闭连接资源后返回获取的内容
fclose(fp);
return contents;
}

//构造连接RPC服务器端的信息
host = 'localhost';
port = 80;
rpc_server = '/~heiyeluren/rpc_server.php';

//把需要发送的XML请求进行编码成XML，需要调用的方法是rpc_server，参数是get
request = xmlrpc_encode_request('rpc_server', 'get');

//调用rpc_client_call函数把所有请求发送给XML-RPC服务器端后获取信息
response = rpc_client_call(host, port, rpc_server, request);

//分析从服务器端返回的XML，去掉HTTP头信息，并且把XML转为PHP能识别的字符串
split = '';
xml = explode(split, response);
xml = split . array_pop(xml);
response = xmlrpc_decode(xml);

//输出从RPC服务器端获取的信息
print_r(response);

?>

This data by get method