如何在 DataSnap Server 中访问请求 headers?

How to access request headers in DataSnap Server?

我正在使用 Delphi XE7。我需要访问DataSnap Server 中的请求headers,但它似乎没有这个选项。在 DataSnap REST 中,这是可能的,因为 TWebModule 可用。

此代码无法正常工作,就像在 REST 中一样:

function TServerMethods1.EchoString(Value: string): string;
var
   Module: TWebModule;
begin
  Module := GetDataSnapWebModule;
  Result := Module.Request.RemoteIP + ': ' + Value;
end;

有人知道 DataSnap Server 吗?

我为 REST 更新了我的项目,并解决了我在访问 Header 时遇到的问题。使用以下代码:

需要在使用时声明Web.HTTPApp

var
  oWebModule: TWebModule;
  sHeader: String;
begin
  oWebModule := GetDataSnapWebModule;
  sHeader := oWebModule.Request.Content;
end;