在Delphi TWebmodule中获取完整的URL

时间:2014-11-21 15:22:57

标签: delphi http-redirect

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

https://someserver:3333/changesettings

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

https://someserver:1234/changesettings

非常感谢任何帮助。提前谢谢!

1 个答案:

答案 0 :(得分:4)

很抱歉,在我提出这个问题之后,我立刻就找到了所需的信息,这是Request.host。我现在可以轻松创建重定向:

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

我使用以下代码

将其反馈到pageproducer中的标记中
<html>
<head>
<meta http-equiv="Refresh" content="0; url=<#redirecturl>" />
</head>
<body>

作品!