Hprose-ruby与Rails结合使用心得

点击( 此处 )折叠或打开

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

点击( 此处 )折叠或打开

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

点击( 此处 )折叠或打开

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

点击( 此处 )折叠或打开

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

点击( 此处 )折叠或打开

1. unit Unit1 ;
3. interface
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 ;
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 ; }
29. var
30.   Form1 : TForm1 ;
31.   Client : THproseHttpClient ;
33. implementation
35. { $ R * . dfm }
37. uses System . json ;
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 ;
46. procedure TForm1 . FormDeactivate ( Sender : TObject ) ;
47. begin
48.   Client . FreeOnRelease ;
49. end ;
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 ;
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 ;
96. end .