delphi 如何创建一个完全独立的 Web 应用程序

如何创建一个完全独立的 Web 应用程序

当我们谈论 Web 应用程序时，会想到Apache或IIS。但是如果我们不想依赖任何 Web 服务器来执行任务呢？

在 Delphi，我们可以开发具有完全独立于其余服务器的 Web 服务器功能的 Web 应用程序。

创建 Web 应用程序

要在 Delphi 中创建 Web 应用程序，我们必须转到File -> New -> Other。

Web应用程序

在New Items窗口中，我们转到Delphi -> Web 部分。

我们创建了一个Web 服务器应用程序。

Web应用程序

将打开四步 Web 应用程序创建向导。在第一个中，如上图所示，它询问我们是否要为 Windows 和/或 Linux 创建 Web 应用程序。

然后我们按Next。

在第二步中，向导会询问我们要创建什么类型的 Web 应用程序，我们将在本教程中创建的模型是独立 GUI 应用程序。

我们按Next。

在第三步中，我们必须指定是使用VCL还是FMX来创建我们的 Web 应用程序。

我们按Next。

最后，向导会询问我们要使用的端口号，如果我们要使用HTTPS协议，我们可以按“测试端口”按钮来验证我们是否有此端口可用。

我们按完成。

创建 Web 应用程序后，我们将看到我们在项目中创建了两个单元，FormUnit1和WebModuleUnit1，如下图所示。

接下来，我们将不得不更改WebModule1的Actions属性的一些数据。为此，我们选择 WebModuleUnit1 单元，并在属性中打开Actions属性编辑器。

Actions属性的编辑器。

在 Editor 窗口中，我们按下左侧的第一个图标Add New。这将插入一个新属性，如下图所示。

下一步，在这个新项目的 Psthinfo 属性中，我们放置“/myPost”。

我们切换到事件选项卡并创建OnAction事件。

在已经创建WebModule1WebActionItem1Action的过程中，我们插入以下代码：

Response.Content :=

'<html>' +

'<head>'+

'<meta charset="UTF-8">'+

'<title>Aplicación Web creada con Delphi</title>'+

'</head>' +

'<body>'+

'<h2>Cadena Post</h2>'+

'<p>'+ Request.ContentFields.Values['txt'] +'</p>'+

'<a href="/">Volver</a>'+

'</body>' +

'</html>';

并且在创建项目时已经自动创建的WebModule1DefaultHandlerAction过程中，我们将现有代码替换为以下内容：

Response.Content:=

'<html>' +

'<head>'+

'<meta charset="UTF-8">'+

'<title>Mi primera Aplicación Web</title>'+

'</head>' +

'<body>'+

'<h2>Servidor Web</h2>'+

'<form method="post" action="/mypost">'+

'Ingrese cualquier texto：<input type="text" name="txt">'+

'<input type="submit">'+

'</form>'+

'</body>' +

'</html>';

现在只需要运行项目并按Start让我们的 Web 服务器开始工作。

如果我们按下打开浏览器按钮，我们的默认浏览器将打开，它会显示我们创建的功能表单。

这是基本思想，从这里可以在 Web 服务器上创建一个巨大的世界，只有您的想象力才能设置限制。

推荐分享