使用 Docker 在 Linux 上运行 Delphi 应用程序

发布时间 2023-10-14 11:06:22作者: 大宋666

 

从 Rad Studio 10.2 Tokyo 开始,可以编译和运行 Linux 服务器应用程序(无用户界面)。我们将使用 Ubuntu 准备一个 docker 映像,

以及通过 PAServer 在 Linux 上运行 Delphi 应用程序所需的一切。使用 Docker,我们可以将这些应用程序在 Linux 容器中部署到我们的生产系统中。

从建立一系列互连的微服务以实现高可用性和容错到单体应用程序,可能性是巨大的。使用 Docker 的优点之一是我们可以准备一个基础镜像(比使用虚拟机轻得多)并根据需要进行部署。

更新!:如果您使用的是 10.3.3 (Rio),请阅读 如何使用 RadStudio 10.3.3 在 Docker Linux 上运行 Delphi 应用程序

 我们开始做吧

快速路径

打开安装了 Docker 的控制台。在我的例子中,我使用 Docker Toolbox for Windows 并启动 Docker Quickstart Terminal。

docker pull jaruzafa/ubuntupaserverdocker run -p 64211:64211 -t -i jaruzafa/ubuntupaserver

繁荣!你已经完成了,现在去阅读下面的 RadStudio 部分。

缓慢的路径

我们的镜像将基于 Ubuntu 16.04。创建一个名为 Dockerfile的文本文件,其中包含以下内容:

 #Imagen base

FROM ubuntu

# Everything you need for RadStudio plus some utilities that may come in handy
RUN \
apt-get -y update && \
apt-get -y upgrade && \
apt-get -y dist-upgrade && \
apt-get -y install joe wget p7zip-full curl unzip build-essential zlib1g-dev libcurl4-gnutls-dev && \
apt-get -y install mysecureshell && \
apt-get -y autoremove && \
apt-get -y autoclean

# Copy PAServer to container and unzip it
COPY LinuxPAServer19.0.tar.gz /root/LinuxPAServer19.0.tar.gz
RUN \
cd /root && \
tar xzvf LinuxPAServer19.0.tar.gz && \
cd PAServer-19.0 && \
mkdir scratch-dir

# Working directory
WORKDIR /root/PAServer-19.0

# Start PAServer
CMD ["/root/PAServer-19.0/paserver","-password=1234"]

# Publish PAServer default port
EXPOSE 64211

 

请记住将  C:\Program Files\Embarcadero\RADStudio\19.0\PAServer\LinuxPAServer19.0.tar.gz 复制到您拥有 Dockerfile 的同一文件夹中。

运行 Docker 快速入门终端并输入:

docker build -t mirepo/mimagen 。

现在您已经创建了图像。只需启动容器:

docker run -p 64211:64211 -t -i mirepo/miimagen

现在 RADStudio 方面

Hello world….

在 Rad Studio 中单击新建项目->控制台应用程序

2017-04-29-13_29_12-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

完成代码:

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}

uses
System.SysUtils;

begin
try
  Writeln('Hello world Docker/Linux ');
except
on E: Exception do
  Writeln(E.ClassName, ': ', E.Message);
end;
end.

在项目管理器中,右键添加Linux平台:

2017-04-29-13_31_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

选择 Linux-64 位:

2017-04-29-13_31_18-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

它将询问配置文件名称:

2017-04-29-13_32_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

我写了“paserverxubuntu”,但你可以写你想要的名字。

2017-04-29-13_32_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

现在到了棘手的部分,您将被要求提供 PAServer 正在侦听的 IP。您必须输入Docker 主机的 IP,而不是容器的 IP!

就我而言,我使用 Docker Toolbox for Windows,IP 为 192.168.99.100。

2017-04-29-13_32_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

默认端口为 64211,密码为“1234”:

2017-04-29-13_32_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

点击“运行”(第一次会复制SDK,这可能需要几分钟)

2017-04-29-13_32_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

在 Docker 容器中,您将看到:

2017-04-29-13_32_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png

就是这样!

注意:此示例中的 Docker 映像适用于部署应用程序,但您将无法调试(断点和其他东西,您知道……),因为它不包含 RadStudio 调试器工作所需的一切。

2017-04-29-13_32_02-IE11-Win7-Configurada-antes-de-arrancar-Corriendo-Oracle-VM-VirtualBox.png