RO42 - Free Pascal支持简介
RO42 - Free Pascal支持简介
RemObjects SDK 'Vinci'Delphi版首次包含了对Free Pascal的支持.
Free Pascal是与Delphi兼容的Pascal编译器：支持:
- 32 bit Windows
- 64bits Windows
- Linux platforms.
重要提示: 首先,支持Free Pascal Compiler (FPC).我们计划在以后升级RemObjects SDK中支持Lazarus IDE,本文档也会相应的更新.本文档使用Delphi IDE创建Free Pascal服务.
提前准备
本文假设你可以使用RemObjects SDK创建RO服务端和客户端.否则请看这些文档:
- RO05 – 如何写RemObjects SDK服务 (Delphi Version)
- RO06 – 如何写RemObjects SDK 客户端 (Delphi Version)
- RO25 – 理解客户端
为执行本文档的步骤,你需要安装如下工具:
- Free Pascal 见http://www.freepascal.org.
- Free Pascal port of Indy 见 http://www.indyproject.org/Sockets/fpc/index.en.aspx
- The RemObjects SDK - 'Vinci' 版或更新版本.
范例
如上所诉,我们将在Delphi下创建应用,在移植到Linux下.
首先创建一个命令行服务应用程序:
这个命令行服务应用可以很容易在Free Pascal下编译.我们继续这个向导并使用默认的设置.下一步,点击RemObjects SDK->Edit Service Liberty菜单打开Service Builder.默认的向导将生成一个新的服务并附带两个方法.本例我们将使用这些方法展示对Free Pascal的支持.
关闭Service Builder编译应用程序.向导提示创建何种服务:
第一个选项"Simple Object"是支持Free Pascal必要条件之一,我们选中它.向导将生成一个单元实现Sum和GetServerTime方法. 在Sum方法中加入'Result := a + b;'代码, 在GetServerTime下加入'Result := Now;'代码.
好了,保存文件关闭Delphi IDE.
使用Free Pascal的准备
需要几个简单的步骤:
首先将.dpr文件重命名为.pas,在Free Pascal 控制台IDE(FP)下打开服务程序.下一步,将RemObjects SDK 和Indy加入到 'Units'标签中:
在'Include Files'标签下,只需要包含'RemObjects SDK for Delphi/Source'.
最后,在Windows下执行,你需要在http://www.zlib.net下载ZLib1.dll文件放于运行程序的目录下.在很多UNIX衍生版本中已经被设置好.
OK.按Ctrl+F9 执行服务端:
你可以在Delphi,Free Pascal或.NET下使用这个服务（像其他服务一样）. 本例在Windows下演示Free Pascal支持,在Linux也同样适用.