第一个kbmmw for Linux 服务器-阿里云开发者社区

第一个kbmmw for Linux 服务器

2017-05-29 1139

版权

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

简介： 从kbmmw 5.01 开始，就正式支持delphi 10.2 和Linux 了。今天我们就建一个 kbmmw for linux 服务器简单说一下。本例子基于上次的linux Daemon例子。

从kbmmw 5.01 开始，就正式支持delphi 10.2 和Linux 了。

今天我们就建一个 kbmmw for linux 服务器简单说一下。

本例子基于上次的linux Daemon例子。

如果大家不熟悉，请先阅读上面的文章。

首先在datamodule 里面放上 kbmmwserver 和 kbmMWTCPIPIndyServerTransport

两个控件。

如图，并设置好对应的值。

然后建立一个标准的服务，可以参照本例子。

生成对应的服务及函数。

在DataModule 里面加入建立服务的代码。

procedure Tdmf.DataModuleCreate(Sender: TObject);
var
  sd:TkbmMWCustomServiceDefinition;

begin
   sd:=kbmMWServer1.RegisterService(TkbmMWInventoryService,false);
   sd:=kbmMWServer1.RegisterService(Txalionsrv,false);

end;

主程序代码如下：

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}
uses
  Posix.Unistd,
  Posix.SysTypes,
  System.SysUtils,
  dmp in 'dmp.pas' {dmf: TDataModule},
  srv_yw in 'srv_yw.pas' {xalionsrv: TkbmMWSimpleService};

procedure daemon;

begin

   dmf:=Tdmf.Create(nil);
   dmf.kbmmwserver1.Active:=True;
  writeln('service started');
  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.