使用delphi 10.2 开发linux 上的Daemon-阿里云开发者社区

使用delphi 10.2 开发linux 上的Daemon

2017-04-16 1709

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： delphi 10.2 支持linux, 而且官方只是支持命令行编程，目地就是做linux 服务器端的开发。既然是做linux服务器端的开发，那么普通的命令行运行程序，然后等待开一个黑窗口的方式就太low了（目前就有个别语言大咖，经常在Windows 上开个黑窗口，看起来非常恶心），那么如果避免这个尴尬的问题？其实Linux 下也有类似windows 服务的功能，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.

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

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

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

然后在datamodule 上放一个Tidhttpserver 控件。

在oncommandget 里面加入以下事件。

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

好了。

我们回到工程文件

输入以下代码

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(10 * 1000);

    until False;

  finally
   dmf.Free;
  end;

end;

var
   pid: pid_t;

begin
  pid := fork;
  if pid = 0 then
   begin
    writeln('starting service');
     daemon;
   end;

end.