Как добавить дополнительные пары JSON в RAD Studio / Delphi в сочетании с FDBatchMoveJsonWriter? - PullRequest
Новая
       16

Как добавить дополнительные пары JSON в RAD Studio / Delphi в сочетании с FDBatchMoveJsonWriter?

0 голосов
/ 25 апреля 2018

Я использую HTML-клиент и имею следующую ситуацию: Используя встроенный метод Embarcadero RAD Server для аутентификации, я успешно вошел в систему пользователя и теперь хочу передавать токен сеанса назад и вперед таким образом, чтобы соединение было RESTful. Проблема заключается в том, что по какой-то причине я понятия не имею, как отслеживать указанный токен сеанса в RAD Server. Сами Embarcadero были скрытны, говоря нашей компании, что мы можем сделать это с Sencha / ExtJS, но мы бы предпочли не покупать еще больше программного обеспечения. Общая структура выглядит следующим образом:

Login POST вводит имя пользователя и пароль (работает) на RAD Server (все еще работает) и получает ответ с маркером сеанса. На этом этапе я хочу открыть другой HTML-файл и сохранить этот токен сеанса, поскольку я показываю данные, чтобы при каждом запросе JSON я отправлял этот токен сеанса. Но в RAD Studio, насколько я могу судить, я не могу вручную добавить данные JSON в уже созданный объект JSON для подачи в компонент FDBatchMoveJsonWriter. Любые предложения / примеры, которые кто-нибудь сделал по этому поводу, если это вообще возможно?

1 Ответ

0 голосов
/ 25 апреля 2018

Я еще не использовал RAD Server, но отправляю сообщения во многие службы REST. Может ли RAD Server поддерживать аутентификацию дополнений в шапке? Я подключаю THTTPBasicAuthenticator к своему TRESTClient и в событие OnAuthenticate добавляем данные токена. 

procedure TCLTSProcessor.RESTAuthenticatorAuthenticate(ARequest: TCustomRESTRequest; var ADone: Boolean);
begin
  ARequest.AddAuthParameter('token', userToken, pkHTTPHEADER);
end;

Другой метод, который я использую, - это подключение TOAuth2Authenticator к клиенту REST, для TokenType должно быть установлено значение ttBEARER и свойство AccessToken.

...