Hprose-ruby与Rails结合使用心得

Hprose是一个不错在RPC协议引擎，简洁、高效、易用，支持多种语言。下面是选取Hprose-ruby与Rails项目结合的一个测试，使用了Rails的middleware方式实现。
1、首先使用rails new hprose-rails新建一个项目；
2、编辑Gemfile文件加入uuidtools、hprose两个gem，需要跨域的同学建议使用rack-cors；

点击(此处)折叠或打开

1. gem 'sqlite3'
2. gem 'uuidtools'
3. gem 'hprose'
4. gem 'rack-cors', :require => 'rack/cors'

3、在app目录下建立一个新的middleware目录，在该目录下建立一个data_port.rb文件；

点击(此处)折叠或打开

1. #encoding: UTF-8
2. def hello(name)
3.   'Hello '+name+'!'
4. end
6. def get_user(id)
7.   User.find(id).as_json
8. end
10. def get_users_json
11.   User.all.as_json
12. end
14. class DataPort
15.   def initialize(app)
16.     @app = app
17.   end
18.   def call(env)
19.     if env['PATH_INFO'] == '/data_port/index'
20.       hprose_server = HproseHttpService.new
21.       # hprose_server.crossdomain = true
22.       hprose_server.add('hello')
23.       hprose_server.add('get_user')
24.       hprose_server.add('get_users_json')
25.       hprose_server.call(env)
26.     else
27.       @app.call(env)
28.     end
29.   end
30. end

4、编辑config/application.rb，加入以下代码，如果跨越使用rack-cors的同学，记得在resource中加入:credentials => true，并同时指定可以跨域的origins域名（不建议使用*通配符，有安全问题，详情请参考rack-cors的说明）

点击(此处)折叠或打开

1. # rails5
   
2. config.middleware.use DataPort
   
3. # rails3/4
   
4. config.middleware.use 'DataPort'

5、为了测试数据，在db/development.sqlite3中建一个users表，并在app/models/中建一个user.rb

点击(此处)折叠或打开

1. class User < ActiveRecord::Base
2. end

6、客户端我使用的是Delphi（好久没用，最近又有兴趣捡起来了，呵呵）

点击(此处)折叠或打开

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   
7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, HproseCommon,
   
8.   HproseClient, HproseHttpClient, Vcl.Grids;
   
9. 
   
10. type
    
11.   TForm1 = class(TForm)
    
12.     Button1: TButton;
    
13.     Button2: TButton;
    
14.     StringGrid1: TStringGrid;
    
15.     procedure Button1Click(Sender: TObject);
    
16.     procedure FormDeactivate(Sender: TObject);
    
17.     procedure FormCreate(Sender: TObject);
    
18.     procedure Button2Click(Sender: TObject);
    
19.   private
    
20.     { Private declarations }
    
21.   public
    
22.     { Public declarations }
    
23.   end;
    
24.   {TUser = class
    
25.     Id: Integer;
    
26.     Name: String;
    
27.   end;}
    
28. 
    
29. var
    
30.   Form1: TForm1;
    
31.   Client: THproseHttpClient;
    
32. 
    
33. implementation
    
34. 
    
35. {$R *.dfm}
    
36. 
    
37. uses System.json;
    
38. 
    
39. procedure TForm1.FormCreate(Sender: TObject);
    
40. begin
    
41.   Client := THproseHttpClient.Create(nil);
    
42.   Client.URI := 'http://localhost:3000/data_port/index';
    
43.   //Client.URI := 'http://hprose.com/example/'
    
44. end;
    
45. 
    
46. procedure TForm1.FormDeactivate(Sender: TObject);
    
47. begin
    
48.   Client.FreeOnRelease;
    
49. end;
    
50. 
    
51. 
    
52. procedure TForm1.Button1Click(Sender: TObject);
    
53. begin
    
54.   try
    
55.     ShowMessage(VarToStr(Client.Invoke('hello', ['中文'])));
    
56.   except
    
57.     on E:Exception do
    
58.       ShowMessage(E.ClassName+': '+E.Message);
    
59.   end;
    
60. end;
    
61. 
    
62. procedure TForm1.Button2Click(Sender: TObject);
    
63. var
    
64.   InvokeResult: Variant;
    
65.   users: IList;
    
66.   user: IMap;
    
67.   I: Integer;
    
68.   J: Integer;
    
69. begin
    
70.   try
    
71.     InvokeResult:=Client.Invoke('get_users_json');
    
72.     if VarIsList(InvokeResult) then
    
73.       begin
    
74.         ShowMessage('Invoke result is a IMapList.');
    
75.         users := VarToList(InvokeResult);
    
76.         StringGrid1.RowCount := users.Count+1;
    
77.         for I := 0 to users.Count-1 do begin
    
78.           user := VarToMap(users.Item[I]);
    
79.           for J := 0 to user.Keys.Count-1 do begin
    
80.             if I=0 then begin
    
81.               StringGrid1.ColCount := user.Keys.Count;
    
82.               StringGrid1.Rows[I][J] := user.Keys[J];
    
83.             end;
    
84.             StringGrid1.Rows[I+1][J] := user.Value[user.Keys[J]];
    
85.           end;
    
86.         end;
    
87.       end
    
88.     else
    
89.       ShowMessage('Invoke result is *NOT* a IMapList.');
    
90.   except
    
91.     on E:Exception do
    
92.       ShowMessage(E.ClassName+': '+E.Message);
    
93.   end;
    
94. end;
    
95. 
    
96. end.