Delphi XE开发Linux应用（一）_资讯

Delphi XE开发Linux应用（一）

创始人

2024-06-01 23:23:20

0次

Delphi是我常用的开发工具，使用C语言开发Linux应用当然高效，但是对于数据库的操作等方面还是不方便，开发的速度和功能和Delphi比起来还是相差甚远。因此我选择使用Delphi XE进行Linuxde开发，Delphi xe开发Linux以下应用非常方便当然也可以使用Linux下的容器技术进行管理。

Console Application

EMS Package(RAD Server)

DataSnap WebBroker

WebBroker

Dynamic-link Libraries

DUnitX Project

一、Linux开发环境的配置。

（1）安装ubuntu系统

首先在虚拟机安装ubuntu系统，我这里使用的是64位桌面版：ubuntu16.04.2

（2）安装SDK

在ubuntu中打开terminal终端，输入指令：sudo add-apt-repository ppa:ubuntu-sdk-team/ppa

然后再输入：sudo apt install Ubuntu-sdk 安装sdk

3）运行paserver

将10.2安装目录下的Embarcadero\Studio\19.0\PAServer\LinuxPAServer19.0.tar.gz文件复制到ubuntu系统中，并解压，然后进入这个解压目录点击右键开启一个terminal终端。

并运行paserver.

（4）配置Delphi

打开tools-options-sdk manager。然后点击add...

在弹出来的对话框选择64-bit Linux然后select a profile to connect:选择Add new

Profile name随便设置一个。我设置的是：Linux64，点击next.

然后输入ubuntu的ip地址。端口号就是默认的64211，密码由于没设置就不需要填写，填完点击Test Connection如果提示成功就可以了。

（5）安装fmxforlinux

如果不是桌面应用，那么完成前面四个步骤就已经可以了，但是桌面系统还需要安装FMXFORLINUX。

如果你要开发基于FMX框架的桌面应用并且要运行在linux系统的话，那还需要安装一个fmxlinux的插件，因为delphi10.2本身是不支持开发linux的桌面应用的，这个第三方的插件貌似是FMX框架的原开发者离开了Embarcadero公司后，自己做出来的，所以他开发的这个插件在稳定性上应该是没有问题的，感兴趣的同学可以到此网站下载，目前测试版本可以免费下载：

http://www.fmxlinux.com/index.html。下载以后直接安装就可了。

（6）测试程序

创建一个FMX应用程序，在界面上添加一个TMEMO和一个TBUTTON然后点击按钮添加

Memo1.Lines.Add('First linux application');

在project点击右键，选择add linux platform

程序运行成功。

二、DELPHI开发LINUX包

我们知道，有了包的存在，开发插件架构的程序，才成为可能。

DELPHI在WINDOWS里面的包的扩展名是.bpl。

在LINUX里面的包的扩展名是.so。

怎样在LINUX里面加载.so的包？

不论加载WINDOWS的包，还是加载LINUX的包，都是使用LoadPackage()函数加载。

function LoadPackage(const Name: string; AValidatePackage: TValidatePackageProc): HMODULE;
{$IFDEF POSIX}
varDLErrorMsg: string;M: TMarshaller;
{$ENDIF POSIX}
begin
{$IFDEF MSWINDOWS}Result := SafeLoadLibrary(Name);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}Result := HMODULE(dlopen(M.AsAnsi(Name, CP_UTF8).ToPointer, PkgLoadingMode));
{$ENDIF POSIX}if Result = 0 thenbegin
{$IFDEF POSIX}DLErrorMsg := string(dlerror);
{$ENDIF POSIX}raise EPackageError.CreateResFmt(@sErrorLoadingPackage,[Name,{$IFDEF MSWINDOWS}SysErrorMessage(GetLastError){$ENDIF MSWINDOWS}{$IFDEF POSIX}DLErrorMsg{$ENDIF POSIX}]);end;tryInitializePackage(Result, AValidatePackage);except
{$IFDEF MSWINDOWS}FreeLibrary(Result);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}dlclose(Result);
{$ENDIF POSIX}raise;end;
end;

procedure UnloadPackage(Module: HMODULE);
beginFinalizePackage(Module);
{$IFDEF MSWINDOWS}FreeLibrary(Module);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}dlclose(Module);InvalidateModuleCache;
{$ENDIF POSIX}
end;

三、开发linux 上的Daemon

Delphi 10.2 支持linux, 而且官方只是支持命令行编程，目地就是做linux 服务器端的开发。既然是做linux服务器端的开发，那么普通的命令行运行程序，然后等待开一个黑窗口的方式就太low了（目前就有个别语言大咖，经常在Windows 上开个黑窗口，看起来非常恶心），那么如果避免这个尴尬的问题？

其实Linux 下也有类似windows 服务的功能，Linux Daemon 就是其中的一种方式，命令行运行后直接返回，同时在后台建立一个同样的进程。接受客户端的访问。常见的一些linux 服务基本上都是这样工作的。例如著名apache,mysql 等。具体的linux Daemon 的介绍，

今天我们就使用delphi 来开发一个后台的http server, 来说明delphi 如何开发linux 的Daemon.

3.1、新建工程，建一个控制台应用。

3.2、因为这个只能在linux 运行，所以直接加入linux 支持。

3.3、因为我们要做http server, 要放一些控件，因此再加一个datamodule.

3.4、然后在datamodule 上放一个Tidhttpserver 控件

3.5、在oncommandget 里面加入以下事件

procedure Tdmf.IdHTTPServer1CommandGet(AContext: TIdContext;ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
beginAResponseInfo.ContentText:='I am delphi for linux service';
end;

3.6、修改工程文件如下

program Project2;{$APPTYPE CONSOLE}{$R *.res}
usesPosix.Unistd,Posix.SysTypes,System.SysUtils,dmp in 'dmp.pas' {dmf: TDataModule};procedure daemon;begindmf:=Tdmf.Create(nil);dmf.IdHTTPServer1.Active:=True;tryrepeatsleep( * );until False;finallydmf.Free;end;end;varpid: pid_t;beginpid := fork;if pid =  thenbeginwriteln('starting service');daemon;end;end.