hprose rpc使用实例（同时有Java和Delphi客户端的例子）

时间：2016-03-30 22:05:51 阅读：412 评论：0 收藏：0 [点我收藏+]

标签：

php server

[php] view plain copy

php client

[php] view plain copy

<?php
require_once (‘src/Hprose.php‘);
$test = new HproseHttpClient("http://localhost/hprose/http_server.php");
echo ‘ ‘;
// var_dump($test->invoke("hello", $args, 0, HproseResultMode::Serialized, 0));
echo ‘ ‘;
// var_dump($test->invoke("hello", $args, 0, HproseResultMode::Raw, 0));
echo ‘ ‘;
// var_dump($test->invoke("hello", $args, 0, HproseResultMode::RawWithEndTag, 0));
echo $test->asyncHello("WORLD");
echo ‘ ‘;
$test->asyncHello("WORLD", function ($result)
{
echo "from client result: ";
var_dump($result);
});
echo ‘ ‘;
/*
$test->dnslookup("www.baidu.com", function($result, $args) {
echo "result: ";
var_dump($result);
echo "args: ";
var_dump($args);
});
*/
?>

java client

[java] view plain copy

[java] view plain copy

package hprose.hello.client;
import java.io.IOException;
import hprose.client.HproseHttpClient;
public class TestPHPClient {
public static void main(String[] args) throws Exception {
HproseHttpClient client = new HproseHttpClient();
client.useService("http://10.0.0.105/hprose/http_server.php");
String result = (String) client.invoke("hello",
new Object[] { "Hprose来自Java客户端" });
System.out.println(result);
System.out.println(client.invoke("asyncHello",new Object[] { "Hprose来自Java客户端"}));
}
}

delphi client:

[delphi] view plain copy

unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, HproseHttpClient, HproseClient;
type
TForm4 = class(TForm)
Button1: TButton;
HproseHttpClient1: THproseHttpClient;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
HproseHttpClient1.UseService(‘http://10.0.0.100:9090/hprose_demo/Hello‘);
ShowMessage(HproseHttpClient1.Invoke(‘sayHello‘, [‘World中文‘]));
ShowMessage(HproseHttpClient1.Invoke(‘add‘, [15,63]));
end;
//https://raw.githubusercontent.com/andot/hprose/master/doc/1.3/docx/pascal.docx
procedure TForm4.Button2Click(Sender: TObject);
begin
HproseHttpClient1.UseService(‘http://10.0.0.105/hprose/http_server.php‘);
ShowMessage(HproseHttpClient1.Invoke(‘hello‘, [‘World时间‘]));
ShowMessage(HproseHttpClient1.Invoke(‘asyncHello‘, [‘xxx‘]));
end;
end.

http://blog.csdn.net/earbao/article/details/46501671

标签：

原文地址：http://www.cnblogs.com/findumars/p/5338835.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行