Delphi Datasnap REST 读取请求头 TWebrequest

【问题标题】：Delphi Datasnap REST Read Request Header TWebrequestDelphi Datasnap REST 读取请求头 TWebrequest
【发布时间】：2021-03-14 21:50:39
【问题描述】：

我有一个从 webhook 或客户端接收流量的 datasnap REST 服务器。传入的请求包含标头字段，带有令牌，我需要访问以验证用户请求。

我用下面的方法做一些处理。

过程 TWebModule1.WebModuleBeforeDispatch(Sender: TObject; 请求：TWebRequest；响应：TWebResponse； var 处理：布尔值）；开始

如何访问传入的标头令牌

例如传递的令牌 enter image description here

【问题讨论】：

标签： rest delphi header

【解决方案1】：

我修改了以下内容：Delphi 10.4 Enumerate TWebRequest HTTP header fields

用途 IdHTTPWebBrokerBridge,IdCustomHTTPServer;

类型 TIdHTTPAppRequestHelper = TIdHTTPAppRequest 的类助手民众函数 GetRequestInfo : TIdHTTPRequestInfo; 结束；

实现

函数 TIdHTTPAppRequestHelper.GetRequestInfo: TIdHTTPRequestInfo; 开始结果：= FRequestInfo；结束；

过程 TWebModule1.WebModuleBeforeDispatch(Sender: TObject; 请求：TWebRequest；响应：TWebResponse； var 处理：布尔值）；变量 lString : 字符串；开始 //code是header，lstring是value
lString := TIdHTTPAppRequest(Request).GetRequestInfo.RawHeaders.Values['code']; 结束；

【讨论】：