开源跨语言跨平台RPC——Hprose for Lazarus

andot

Hprose 全名是高性能远程对象服务引擎。 它是一个新型的轻量级跨语言跨平台面向对象的高性能远程动态通讯中间件。它不但易学易用，而且功能强大。你只需要一点时间学习，就可以用它来轻松构建跨语言跨平台的分布式应用系统。 本项目是 Hprose 的 Delphi/Lazarus 版本实现。

项目地址：https://github.com/hprose/hprose-delphi

国内镜像地址：
https://code.csdn.net/Hprose/hprose-delphi
http://gitcafe.com/hprose/hprose-delphi

zyx7742

看着介绍好像不错，有时间学习一下

andot

多谢支持！

tigerA15

andot 发表于 2014-5-27 23:05
多谢支持！

有例子吗？ 包括跟其他语言通讯，比如JAVA。。

tigerA15

看了些file list ，通讯底层是通过indy 组件实现的吧？ 我很多年前用过indy，感觉挺臃肿的而且处理并发的能力一般，不知道有没有更好的通讯套件推荐。

andot

有Indy版，也有Synapse版本的，这两个版本用法完全一样，所以只能安装其中一个版本，在Lazarus上相对来说，用Synapse版本比较方便一些，因为indy安装挺麻烦的。

至于使用挺简单的，这里有个例子：

1. unit Unit1;
   
2. 
   
3. {$mode objfpc}{$H+}
   
4. 
   
5. interface
   
6. 
   
7. uses
   
8.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   
9.   HproseHttpClient, HproseClient;
   
10. 
    
11. type
    
12. 
    
13.   { TForm1 }
    
14. 
    
15.   TForm1 = class(TForm)
    
16.     Button: TButton;
    
17.     Client: THproseHttpClient;
    
18.     TextLabel: TLabel;
    
19.     procedure ButtonClick(Sender: TObject);
    
20.   private
    
21.     procedure Callback(Result: Variant);
    
22.     { private declarations }
    
23.   public
    
24.     { public declarations }
    
25.   end;
    
26. 
    
27. var
    
28.   Form1: TForm1;
    
29. 
    
30. implementation
    
31. 
    
32. {$R *.lfm}
    
33. 
    
34. { TForm1 }
    
35. 
    
36. procedure TForm1.ButtonClick(Sender: TObject);
    
37. var
    
38.   Stub: Variant;
    
39. begin
    
40.   Stub := Client.UseService('http://www.hprose.com/example/');
    
41.   Stub.Hello('World!', HproseCallback(@Callback));
    
42. end;
    
43. 
    
44. procedure TForm1.Callback(Result: Variant);
    
45. begin
    
46.   TextLabel.Caption := Result;
    
47. end;
    
48. 
    
49. end.
    

复制代码

这个例子中的服务是php写的，不过调用任何语言的服务用起来都是一样的。

更详细的使用这里有份指南：https://github.com/andot/hprose/ ... pascal.pdf?raw=true

不过这个文档有些老了，里面的客户端控件的名字跟现在的不一样了（现在的没有 Id 或 Syna 这个标识了，目的是为了在使用不同实现的 Hprose 客户端之间实现零修改转换），调用方式上，现在的方式（上面例子中的方式）也比文档上的简单了。另外，新版中，对象在包装成 Variant 后，也可以继续操作对象的属性，并可以直接在包装之后的 Variant 变量上调用 Free 方法来释放对象了。这对于远程传递的纯数据对象来说，就可以免除 Variant 到具体类型对象的转换了。

andot

Indy 版本适合在 Delphi 的高版本上使用，原因是 Delphi 从 XE3 之后就跨平台了，到现在的 XE6 都可以支持 android 和 iOS 了，而 Synapse 这套组件不支持在 Delphi 上跨平台。所以在 Delphi 高版本上用 Indy 版本的 Hprose，可以实现跨平台使用。

tigerA15

加油

zyx7742

好东东