Delphi webserver将HTTP重定向到HTTPS

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
if Request.QueryFields.Values['proto'] = 'http' then
if Request.QueryFields.Values['target'] <> '' then
Response.SendRedirect('https://' + Request.QueryFields.Values['target'])
else
Response.Content := '<HTML><BODY>Invalid URI</BODY></HTML>';
Response.Content :=
'<html>' +
'<head><title>DataSnap Server</title></head>' +
'<body>DataSnap Server</body>' +
'</html>';
end;

推荐分享