在Delphi中获取完整的URL TWebmodule

是否有可能像Web应用程序中基于TWebModule的浏览器地址输入字段中显示的完整路径？我想要做的是，如果用户从管理Web前端更改服务的端口，则自动重定向用户。例如：在Delphi中获取完整的URL TWebmodule

https://someserver:3333/changesettings

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

https://someserver:1234/changesettings

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

对不起，在问这个问题之后，我马上就发现了需要的信息，它是Request.host。我现在可以轻松地创建重定向：

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

我喂的是回到一个标签在pageproducer用下面的代码

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

作品！

2014-11-21 15:31:12 MichaSchumann

回答