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

开发者社区> xalion> 正文

第一个kbmmw for Linux 服务器

简介: 从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.

编译并在linux 下运行这个程序。

程序退出后,自动在后台建立一个服务。

 

 好了,我们在客户端访问这个程序。

客户端例子参照这个文章 http://www.cnblogs.com/xalion/archive/2012/01/31/2332417.html

看来没有任何问题,用kbmmw 写linux 服务器就这么简单。

你喜欢吗?

 

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

相关文章
微服务消息队列(MQTT For IoT)Android Demo使用介绍
目前阿里云官方对于微消息队列 MQTT提供了很多语言的参考示例,但是在实际的使用中发现很多用户在使用Android Sample的时候总是会遇到问题,无法正常调试使用。本文主要介绍Android Sample的使用。
2559 0
阿里云服务器怎么设置密码?怎么停机?怎么重启服务器?
如果在创建实例时没有设置密码,或者密码丢失,您可以在控制台上重新设置实例的登录密码。本文仅描述如何在 ECS 管理控制台上修改实例登录密码。
10081 0
阿里云服务器端口号设置
阿里云服务器初级使用者可能面临的问题之一. 使用tomcat或者其他服务器软件设置端口号后,比如 一些不是默认的, mysql的 3306, mssql的1433,有时候打不开网页, 原因是没有在ecs安全组去设置这个端口号. 解决: 点击ecs下网络和安全下的安全组 在弹出的安全组中,如果没有就新建安全组,然后点击配置规则 最后如上图点击添加...或快速创建.   have fun!  将编程看作是一门艺术,而不单单是个技术。
10883 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,阿里云优惠总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系.
13886 0
+关注
xalion
delphi 专家,熟悉Delphi,Oracle,Sqlserver Web,Android,IOS,Javascript。企业信息化建设。
171
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载