Hprose RPC usages (with examples of both Java and Delphi clients)

PHP Server

[PHP]View PlainCopy

2. <?php
4. require_once (' src/hprose.php ');
6. function Hello ($name) {
8. echo "Hello $name!";
10. return "Hello $name!";
12. }
14. function E () {
16. throw New Exception ("I am Exception");
18. }
20. function ee () {
22. require ("Andot");
24. }
26. function Asynchello ($name, $callback) {
28. Sleep (3);
30. $callback ("from Server,hello async $name!");
32. }
34. $server = new Hprosehttpserver ();
36. $server->seterrortypes (E_all);
38. $server->setdebugenabled ();
40. $server->addfunction (' hello ');
42. $server->addfunctions (array (' e ', ' ee '));
44. $server->addasyncfunction (' Asynchello ');
46. $server->addfilter (new Hprosejsonrpcservicefilter ());
48. $server->start ();

PHP Client

[PHP]View PlainCopy

2. <?php
4. Require_once (' src/hprose.php ');
6. $test = New Hprosehttpclient ("http://localhost/hprose/http_server.php");
8. echo ' <br/> ';
10. Var_dump ($test->invoke ("Hello", $args, 0, hproseresultmode::serialized, 0));
14. echo ' <br/> ';
16. Var_dump ($test->invoke ("Hello", $args, 0, Hproseresultmode::raw, 0));
20. echo ' <br/> ';
22. Var_dump ($test->invoke ("Hello", $args, 0, Hproseresultmode::rawwithendtag, 0));
26. echo $test->asynchello ("World");
28. echo ' <br/> ';
30. $test->asynchello ("World", function ($result)
32. {
34. echo "From client result:";
36. Var_dump ($result);
38. });
42. echo ' <br/> ';
44. /*
46. $test->dnslookup ("www.baidu.com", Function ($result, $args) {
48. echo "Result:";
50. Var_dump ($result);
52. echo "args:";
54. Var_dump ($args);
56. });
58. */
60. ?>

Java Client

[Java]View PlainCopy

2. Package hprose.hello.client;
6. Import hprose.client.HproseHttpClient;
8. Import java.io.IOException;
12. Public class Helloclient {
14. public static void Main (string[] args) throws IOException {
16. Hprosehttpclient client = new Hprosehttpclient ();
18. Client.useservice ("Http://10.0.0.100:9090/hprose_demo/Hello");
20. String result = (string) client.invoke ("SayHello", new object[] { "Hprose"});
22. SYSTEM.OUT.PRINTLN (result);
24. result = (String) client.invoke ("SayHello", new object[] { "China"});
26. SYSTEM.OUT.PRINTLN (result);
28. System.out.println (Client.invoke ("Add",new object[]{,316});
30. }
32. }

[Java]View PlainCopy

2. Package hprose.hello.client;
6. Import java.io.IOException;
10. Import hprose.client.HproseHttpClient;
14. Public class Testphpclient {
18. public static void Main (string[] args) throws Exception {
22. Hprosehttpclient client = new Hprosehttpclient ();
24. Client.useservice ("http://10.0.0.105/hprose/http_server.php");
26. String result = (string) client.invoke ("Hello",
28. New object[] { "Hprose from Java Client"});
30. SYSTEM.OUT.PRINTLN (result);
34. System.out.println (Client.invoke ("Asynchello",new object[] { "Hprose from Java Client"}));
36. }
38. }

Delphi Client:

[Delphi]View PlainCopy

2. Unit UNIT4;
6. Interface
10. Uses
12. Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
14. Dialogs, Stdctrls, Hprosehttpclient, hproseclient;
18. Type
20. TFORM4 = Class (Tform)
22. Button1:tbutton;
24. Hprosehttpclient1:thprosehttpclient;
26. Button2:tbutton;
28. procedure Button1Click (sender:tobject);
30. procedure Button2click (sender:tobject);
32. Private
34. {Private declarations}
36. Public
38. {public declarations}
40. end;
44. Var
46. FORM4:TFORM4;
50. Implementation
54. {$R *.DFM}
58. Procedure TFORM4.  Button1Click (Sender:tobject);
60. Begin
62. HproseHttpClient1.  Useservice (' Http://10.0.0.100:9090/hprose_demo/Hello ');
64. ShowMessage (HproseHttpClient1.  Invoke (' SayHello ', [' World Chinese ']);
66. ShowMessage (HproseHttpClient1.  Invoke (' Add ', [63]));
68. End
72. Https://raw.githubusercontent.com/andot/hprose/master/doc/1.3/docx/pascal.docx
74. Procedure TFORM4.  Button2click (Sender:tobject);
76. Begin
78. HproseHttpClient1.  Useservice (' http://10.0.0.105/hprose/http_server.php ');
80. ShowMessage (HproseHttpClient1.  Invoke (' Hello ', [' World Time ']);
82. ShowMessage (HproseHttpClient1.  Invoke (' Asynchello ', [' xxx ']));
84. End
88. End.

SOURCE project: Http://pan.baidu.com/s/1o6vF1qE

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

Hprose RPC usages (with examples of both Java and Delphi clients)