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

Я использую 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?


delphi delphi-xe7 datasnap
person Jefferson Rudolf    schedule 25.11.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

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

Необходимо объявить Web.HTTPApp при использовании

var
  oWebModule: TWebModule;
  sHeader: String;
begin
  oWebModule := GetDataSnapWebModule;
  sHeader := oWebModule.Request.Content;
end;
person Jefferson Rudolf    schedule 10.03.2017