德尔福TWebModule(IIS-ISAPI): get the current request

Question

在TWebModule过程/函数中如何获取当前请求？

我已经尝试过:

procedure TWebModule1.DoSomething;
var 
  aRequest : TWebRequest;
begin
  aRequest := Request;
end;

但这似乎是在 TWebModule 创建时生成的第一个请求。

我知道我能够将请求从每个 TWebActionItem 传递到后续过程/函数，但我希望避免在任何地方传递请求。有什么建议吗？

更新

深入研究代码后，我找到了 WebContext，它似乎是解决方案，例如:

uses Web.WebCntxt;

procedure TWebModule1.DoSomething;
var
  aRequest : TWebRequest;
begin
  if WebContext <> nil then
    aRequest := WebContext.Request;
end;

这是正确的方法吗？ WebContext 似乎总是nil。

我正在使用 Delphi Berlin 更新 2。

Answer 1

每个请求都会经过 TWebModule.Actions 中定义的 TWebActionItem。 TWebActionItem 有一个事件OnAction。在那里您将获得当前请求的 TWebRequest 对象。

然后您可以将其传递给后续过程/函数。