Lazarus 下安装 RO SDK及其简单的例子。（转）

bugxiong

Lazarus 最近风头正茂，可以在 windows、Linux平台下开发，更诱人的是，可以用KOL开发 wince程序。最近不少的控件厂商都支持 Lazarus ，比如 remobjects（RO SDK+DA+HY）和 Devart（UniDAC） 等公司。下面简单介绍在 Lazarus（windows，V0.9.27） 下安装 RO SDK(RO SDK 6.0.39 )。
1、

先安装
RemObjects_Core_Lazarus_Windows.lpk
然后在安装 RemObjects_Synapse_Lazarus_Windows.lpk。
如果想装 indy的RO控件，需要去indy官方网下载 10.2.3的FPC版本，请注意区分OS平台。
2、安装Everwood下的RemObjects_Everwood_Lazarus_Windows.lpk。
3、安装 Remobjects的IDE包，即Sources下的IDE路径 RemObjects_IDE_Lazarus_Windows.lpk。

如果安装过程中 出现 找不到 Zlib1.DLL，到Lazarus官方网去下载，或delphi fpr PHP目录也自带了Zlib1.DLL文件。放在Lazarus当前目录下即可。
简单些了一个例子(使用 TROSynapseSuperTCPChannel)，获取服务端的时间和IP地址：
如图：

编译运行：

服务端用了 super synapse TCP 。
Lazarus的RO客户端编程和Delphi下没有什么区别，比如引用XXX_Intf，接口单元还是可以通用的。
声明：
RemoteService: IServCommFunc;
创建：
RemoteService := CoServCommFunc.Create(BinMsg,Channel);
调用：
procedure TForm1.Button1Click(Sender: TObject);
var
DT:TDateTime;
IP:string;
begin
IP := RemoteService.GetAppIPAddr;
//ShowMessage(IP);
DT := RemoteService.GetAppServTime;
//ShowMessage(DateTimeToStr(DT));

Self.Caption := IP + ':'+DateTimeToStr(DT);
end;   
（须将Zlib1.DLL放到客户端程序）
Lazarus +RO， 值得期待的是，将服务端运行在 Ubuntu上，客户端用 多姿多彩的windows桌面程序。
我已经在虚拟机安装了 Ubuntu 9.0.4，下一步 需要恶补一点 linux 知识。

bugxiong

转自：http://hi.baidu.com/tintinsoft/item/7a42e5c406b15e66f6c95d61

qjhy521

不错啊