Delphi에서 전체 URL 얻기 TWebmodule

TWebModule 기반 웹 응용 프로그램의 브라우저 주소 입력란에 표시된 것과 같은 전체 경로를 가져올 수 있습니까? 사용자가 관리 웹 프론트 엔드에서 서비스 포트를 변경하면 사용자를 자동으로 리디렉션합니다. 예 :Delphi에서 전체 URL 얻기 TWebmodule

https://someserver:3333/changesettings

은 현재 URL입니다. Request.pathinfo는 "changesettings"만을 제공합니다. 하지만 리디렉션하는 데 더 많은 것이 필요합니다.

https://someserver:1234/changesettings

도움이 매우 감사합니다. 미리 감사드립니다!

출처

2014-11-21 MichaSchumann

죄송합니다.이 질문을 한 직후에 바로 내 눈앞에 필요한 정보를 찾았습니다. Request.host입니다. 지금은 쉽게 리디렉션을 만들 수 있습니다

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

나는 다음과 같은 코드

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

작품으로 PageProducer와 다시 태그에 있음을 공급!

출처

2014-11-21 15:31:12 MichaSchumann

Delphi에서 전체 URL 얻기 TWebmodule

답변

관련 문제