Lazarus 下安装 RO SDK及其简单的例子

http://hi.baidu.com/tintinsoft/blog/item/a901af8e8eb6b2e7f11f36af.html

补充：如果以前安装了LAZARUS就在LAZARUS里面删除RO的控件，在我的文档也删除LAZARUS，然后在安装，感谢俄罗斯朋友破解了他，谢谢飞鸿兄的嫖客。

 

补充：1.下载indy后，解压缩到任意文件夹
2.以管理员模式启动lazarus
3.打开包，选择indy/lazarus/indylaz.lpk
3.添加indy/fpc文件夹中的IdGlobal.pas和IdStreamVCL.pas两个文件
4.编译,安装,完成

 

 

 

Lazarus 最近风头正茂，可以在 windows、Linux、Unix平台下开发，更诱人的是，可以用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 知识。