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如果提示成功就可以了。

然后开始安装SDK了...

（5）安装fmxforlinux

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

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

（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}
var
  DLErrorMsg: 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 then
  begin
{$IFDEF POSIX}
    DLErrorMsg := string(dlerror);
{$ENDIF POSIX}
    raise EPackageError.CreateResFmt(@sErrorLoadingPackage,
      [Name,
       {$IFDEF MSWINDOWS}SysErrorMessage(GetLastError){$ENDIF MSWINDOWS}
       {$IFDEF POSIX}DLErrorMsg{$ENDIF POSIX}]);
  end;
  try
    InitializePackage(Result, AValidatePackage);
  except
{$IFDEF MSWINDOWS}
    FreeLibrary(Result);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
    dlclose(Result);
{$ENDIF POSIX}
    raise;
  end;
end;

procedure UnloadPackage(Module: HMODULE);
begin
  FinalizePackage(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);
begin
     AResponseInfo.ContentText:='I am delphi for linux service';
end;

3.6、修改工程文件如下

program Project2;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
uses
  Posix.Unistd,
  Posix.SysTypes,
  System.SysUtils,
  dmp in 'dmp.pas' {dmf: TDataModule};
 
procedure daemon;
 begin
    dmf:=Tdmf.Create(nil);
   dmf.IdHTTPServer1.Active:=True;
   try
     repeat
       sleep( * );
     until False;
   finally
   dmf.Free;
  end;
 end;
 var
   pid: pid_t;
 begin
  pid := fork;
  if pid =  then
   begin
    writeln('starting service');
     daemon;
   end;
 end.

3.7、编译运行

首先我们看一下系统中的运行进程： ps -ef

里面没有Project2 的任何信息。

我们运行这个程序：

运行完后，程序立即就返回了

我们在看看系统进程里面的情况

我们可以看见这个Project2 依然在进程中。

那么这个进程是否可以正常工作呢？

我们打开浏览器，看看情况如何？

可以看见这个这个程序在后面运行的非常正常。

当然了，由于这是一个demo, 我没有做太多的处理，其实由于daemon 进程无法与前台直接交互，我们以后写这种应用时。

应该多用 日志 文件来记录运行情况，一般出问题时，能够快速的找到问题的根源。

那么这个程序一直在后台运行，我们再次编译和发布时，就没办法覆盖了，怎么关掉这个后台进程呢？

办法很简单，也很粗暴（反正我喜欢）。

使用linux 的kill 命令。

找到该应用的pid, 直接干掉

然后使用ps -ef 看看

Project2 已经不在了，整个世界清静了。