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也同样适用.