咏南中间件随LINUX开机自动启动

咏南中间件随LINUX开机自动启动

LINUX DEAMON,LINUX也有类似WINDOWS的服务。

program ynCrossServer;
{$HINTS OFF}
{$APPTYPE CONSOLE}

{$R *.res}

uses
  {$IFDEF MSWINDOWS}
  MidasLib,
  {$ENDIF }
  {$IFDEF POSIX}
  Posix.Unistd,
  {$ENDIF}
  uPlugHelp,
  uUnidacPool,
  Web.WebReq,
  IdHTTPWebBrokerBridge,
  uLog,
  System.SysUtils,
  WebservicesImpl in 'WebservicesImpl.pas',
  WebservicesIntf in 'WebservicesIntf.pas',
  WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule},
  uWebservices in 'uWebservices.pas' {ynWebServices: TDataModule},
  uIDTcpSvr in 'uIDTcpSvr.pas' {idTcpSvr: TDataModule},
  uIDHttpSvr in 'uIDHttpSvr.pas' {idHttpSvr: TDataModule},
  uCrossHttpSvr in 'uCrossHttpSvr.pas' {crossHttpSvr: TDataModule},
  uCrossTcpSvr in 'uCrossTcpSvr.pas' {crossTcpSvr: TDataModule},
  uCrossWebSckSvr in 'uCrossWebSckSvr.pas' {CrossWebSckSvr: TDataModule};

{$IFDEF POSIX}
procedure daemon;
begin
  try
    if WebRequestHandler <> nil then
      WebRequestHandler.WebModuleClass := WebModuleClass;
    TUnidacPool.SetDBParams;
    Log := TLog.Create;
    uPlugHelp.LoadPlugs;
//  ynWebServices := TynWebServices.Create(nil);
//  crossTcpSvr := TcrossTcpSvr.Create(nil);
    crossHttpSvr := TcrossHttpSvr.Create(nil);
//  CrossWebSckSvr := TCrossWebSckSvr.Create(nil);
    repeat
      sleep(10000);
    until False;
  finally
    if idTcpSvr <> nil then
      FreeAndNil(idTcpSvr);
    if idHttpSvr <> nil then
      FreeAndNil(idHttpSvr);
    if ynWebServices <> nil then
      FreeAndNil(ynWebServices);
    if crossHttpSvr <> nil then
      FreeAndNil(crossHttpSvr);
    if crossTcpSvr <> nil then
      FreeAndNil(crossTcpSvr);
    if CrossWebSckSvr <> nil then
      FreeAndNil(CrossWebSckSvr);
    uplughelp.UnloadPlugs;
    var i: Integer;
    for i := 0 to Length(DBPoolArray) - 1 do
      FreeAndNil(DBPoolArray[i]);
    FreeAndNil(log);
  end;
end;
var pid: Cardinal;
{$ENDIF}

begin
  {$IFDEF MSWINDOWS}
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := WebModuleClass;
  TUnidacPool.SetDBParams;
  Log := TLog.Create;
  uPlugHelp.LoadPlugs;
  //idHttpSvr, crossHttpSvr,要绑定不同的端口,才能同时存在
//  idTcpSvr := TidTcpSvr.Create(nil);
//  idHttpSvr := TidHttpSvr.Create(nil);
//  ynWebServices := TynWebServices.Create(nil);
//  crossTcpSvr := TcrossTcpSvr.Create(nil);
  crossHttpSvr := TcrossHttpSvr.Create(nil);
//  CrossWebSckSvr := TCrossWebSckSvr.Create(nil);
  try
    Writeln('输入exit,按回车链,退出程序');
    var s: string;
    while True do
    begin
      Readln(s);
      if sametext('exit', s) then
      begin
        Break;
      end
      else
        Writeln('无法识别的命令');
    end;
  finally
    if idTcpSvr <> nil then
      FreeAndNil(idTcpSvr);
    if idHttpSvr <> nil then
      FreeAndNil(idHttpSvr);
    if ynWebServices <> nil then
      FreeAndNil(ynWebServices);
    if crossHttpSvr <> nil then
      FreeAndNil(crossHttpSvr);
    if crossTcpSvr <> nil then
      FreeAndNil(crossTcpSvr);
    if CrossWebSckSvr <> nil then
      FreeAndNil(CrossWebSckSvr);
    uplughelp.UnloadPlugs;
    var i: Integer;
    for i := 0 to Length(DBPoolArray) - 1 do
      FreeAndNil(DBPoolArray[i]);
    FreeAndNil(log);
  end;
  {$ENDIF}
  {$IFDEF POSIX}
  pid := fork;
  if pid = 0 then
   begin
    writeln('starting service');
    daemon;
   end;
  {$ENDIF}
end.

  

1)将中间件部署文件复制到 /usr/yn/ 目录

2)创建并编辑/usr/lib/systemd/system/yn.service文件

[UNIT]
#服务描述
Description=ynCrossMiddleWare
#指定了在systemd在执行完那些target之后再启动该服务
After=MiddleWare

[Service]
#定义Service的运行类型,一般是forking(后台运行)   
Type=forking

#定义systemctl start|stop|reload *.service 的执行方法(具体命令需要写绝对路径)
#注:ExecStartPre为启动前执行的命令
ExecStart=/usr/yn/ynCrossServer -start
ExecReload=/usr/yn/ynCrossServer -reload
ExecStop=/usr/yn/ynCrossServer -stop

#创建私有的内存临时空间
PrivateTmp=True

[Install]
#多用户
WantedBy=multi-user.target

  重载系统服务:systemctl daemon-reload

人工启动服务:systemctl start yn.service
人工停止服务:systemctl stop yn.service
人工重启服务:systemctl reload yn.service

设置开机启动:systemctl enable yn.service

 

posted @ 2019-09-04 13:40 delphi中间件 阅读(...) 评论(...) 编辑 收藏