delphi – 枚举TWebRequest HTTP头字段

我使用了一点trink来访问原始标题.
但是,这真的很脏！使用风险自负！

实际的类请求类是TIdHTTPAppRequest(警告：对于不同类型的webbroker应用程序可能有所不同.我没有使用不同类型的datasnap应用程序测试此代码).

所以诀窍是：

声明类似于以下的类助手：

TIdHTTPAppRequestHelper = class helper for TIdHTTPAppRequest
  public
    function GetRequestInfo: TIdEntityHeaderInfo;
  end;

  implementation

  function TIdHTTPAppRequestHelper.GetRequestInfo: TIdEntityHeaderInfo;
  begin
    Result := FRequestInfo;
  end;

通过这种方式,您可以使用此帮助程序来访问受保护的FRequestInfo字段.

在OnAction事件处理程序中,您可以使用以下代码来获取所有标头名称：

procedure Twm.wmWebActionItem1Action(Sender: TObject; Request: TWebRequest;
                 Response: TWebResponse; var Handled: Boolean);
var
  HeadersCount: Integer;
  I: Integer;
  sw: TStreamWriter;
begin
  Response.ContentType := 'text/plain';
  Response.ContentStream := TMemoryStream.Create;
  sw := TStreamWriter.Create(Response.ContentStream);
  try
    HeadersCount := TIdHTTPAppRequest(Request).GetRequestInfo.RawHeaders.Count;
    for I := 0 to HeadersCount - 1 do
      sw.WriteLine(TIdHTTPAppRequest(Request).GetRequestInfo.RawHeaders.Names[I]);
  finally
    sw.Free;
  end;
  Handled := True;
end;

但是,TWebRequest不允许读取原始标头是很糟糕的.那应该改变！