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

Question

Я нахожусь в процессе создания сервера DataSnap, который функционирует как сервер WebDAV, и пытаюсь прочитать заголовки запросов при использовании DSHTTPService, а затем изменить заголовки ответов.

Кто-нибудь может указать мне правильное направление? Я заметил, что Trace TDSRequest и TDSResponse являются предками TDSRequestIndy и TDSResponseIndy, и эти компоненты имеют доступ к заголовкам, но я не совсем уверен, как получить от TDSRequest до TDSRequestIndy.

Также я не думал, что Трассировка будет самым чистым способом получить доступ к запросу и ответу, но это единственный способ, который я нашел до сих пор.

Причина, по которой я пытаюсь сделать это с помощью DataSnap, а не только прямой Indy, заключается в том, что я собираюсь использовать DataSnap для других удаленных методов.

Answer 1

Возможно, вам следует рассмотреть возможность использования TidHTTPServer и создать независимый сервер, который имеет много событий и методов, а не начинать с DSHTTPService, включая OnBeforeBind, OnAfterBind, OnHeadersAvailable ..., в котором у вас есть доступ к заголовкам