在 Delphi TWebmodule 中获取完整的 URL答案

【问题标题】：Get complete URL in Delphi TWebmodule在 Delphi TWebmodule 中获取完整的 URL
【发布时间】：2015-01-19 19:03:19
【问题描述】：

是否可以获得完整路径，如基于 TWebModule 的 Web 应用程序中的浏览器地址输入字段中所示？如果用户从管理 Web 前端更改服务端口，我想做的是自动重定向用户。示例：

https://someserver:3333/changesettings

是当前网址。 Request.pathinfo 只给我“changesettings”。但我需要更多重定向到

https://someserver:1234/changesettings

非常感谢任何帮助。提前致谢！

【问题讨论】：

【解决方案1】：

抱歉，在提出这个问题后，我立即在我眼前找到了所需的信息，它是 Request.host。我现在可以轻松创建重定向：

 redirecturl:='https://'+request.Host+':'+intToStr(port)+'/settings';

我使用以下代码将其反馈到 pageproducer 中的标签中

<html>
<head>
<meta http-equiv="Refresh" content="0; url=<#redirecturl>" />
</head>
<body>

有效！

【讨论】：