Как получить доступ к заголовкам запроса на сервере DataSnap?

Question

Я использую Delphi XE7. Мне нужно получить доступ к заголовкам запроса в DataSnap Server, но похоже, что этот параметр отсутствует. В DataSnap REST это возможно, потому что доступно TWebModule.

Этот код не работает, как и в REST:

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

Кто-нибудь есть идея о сервере DataSnap?

Answer 1

Я обновляю свой проект REST, и решить мою проблему доступа Заголовок. С помощью следующего кода:

Нужен объявить Web.HTTPApp в используете

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