delphi android shell命令 delphi xe linux

转载

mob64ca13fbd761 2023-12-14 20:58:14

文章标签 linux ubuntu 运维 Powered by 金山文档 Delphi 文章分类 Android 移动开发

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

delphi android shell命令 delphi xe linux_运维

然后再输入：sudo apt install Ubuntu-sdk 安装sdk

delphi android shell命令 delphi xe linux_linux_02

3）运行paserver

将10.2安装目录下的Embarcadero\Studio\19.0\PAServer\LinuxPAServer19.0.tar.gz文件复制到ubuntu系统中，并解压，然后进入这个解压目录点击右键开启一个terminal终端。

并运行paserver.

delphi android shell命令 delphi xe linux_Powered by 金山文档_03

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

delphi android shell命令 delphi xe linux_ubuntu_04

然后开始安装SDK了...

delphi android shell命令 delphi xe linux_Powered by 金山文档_05

（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 android shell命令 delphi xe linux_Powered by 金山文档_06

delphi android shell命令 delphi xe linux_Powered by 金山文档_07

delphi android shell命令 delphi xe linux_Delphi_08

程序运行成功。

二、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、新建工程，建一个控制台应用。

delphi android shell命令 delphi xe linux_linux_09

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

delphi android shell命令 delphi xe linux_Powered by 金山文档_10

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

delphi android shell命令 delphi xe linux_运维_11

3.4、然后在datamodule 上放一个Tidhttpserver 控件

delphi android shell命令 delphi xe linux_linux_12

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.