Разбираемся с авторизацией DataSnap в Delphi 10.1 Berlin: проблемы и решения

Delphi , Синтаксис , Ошибки и Исключения

В данной статье мы рассмотрим проблему, с которой сталкиваются разработчики, использующие фреймворк DataSnap в среде Delphi 10.1 Berlin Update 2 Enterprise для создания клиент-серверных REST-приложений. Приложение работает корректно, когда выполняется без отладки, но при интерактивной отладке возникают исключения, связанные с неавторизованным доступом. Эти исключения не достигают кода пользователя, что вызывает затруднения в отладке и понимании поведения приложения.

Проблема с авторизацией в DataSnap

Пользователь столкнулся с проблемой, когда при вызове метода, к которому у пользователя нет доступа, код выполняется без вызова исключения, и метод возвращает пустой ответ. В процессе интерактивной отладки появляются исключения, связанные с неавторизацией, которые затем "поглощаются" и соединение закрывается. Это происходит в определенной части кода, близкой к концу метода ExecuteRequest в модуле Datasnap.DSClientRest.

Контекст и решение проблемы

В контексте использования DataSnap REST-фреймворка в Delphi 10.1 Berlin Update 2, проблема связана с обработкой исключений, которые не достигают кода пользователя. В частности, обработка исключений TDSRestProtocolException в конце метода ExecuteRequest не ведет к их дальнейшему распространению.

В качестве альтернативного ответа было предложено проверить настройки компонента DSAuthenticationManager, который используется как на стороне клиента, так и на стороне сервера. Ошибка может быть связана с неправильной настройкой аутентификации, что приводит к тому, что исключения не достигают пользовательского интерфейса.

Также было предложено попробовать установить имя пользователя и пароль для компонента DSRestConnection1 перед созданием экземпляра серверных методов. Это может быть связано с изменением в новой реализации System.Net.HttpClient, где клиент не отправляет учетные данные до тех пор, пока сервер не потребует их, отправив ответ 401.

Пример кода на Object Pascal

Для демонстрации, вот пример кода, который можно использовать для установки учетных данных перед вызовом серверных методов:

procedure TClientModule1.TestCon(aUsername, aPassword: string);
var
  lServerMethodsClient: TServerMethodsClient;
begin
  DSRestConnection1.UserName := aUsername;
  DSRestConnection1.Password := aPassword;
  lServerMethodsClient := TServerMethodsClient.Create(DSRestConnection1);
  // Дальнейшие действия с серверными методами
end;

Вызов этой функции из клиентской формы может выглядеть так:

procedure TF_ClientForm.Button1Click(Sender: TObject);
begin
  ClientModule1.TestCon(EdtUsername.Text, EdtPassword.Text);
  // Обработка результата
end;

Подтвержденный ответ и дополнительные рекомендации

Исходя из предоставленных комментариев, проблема может быть решена путем переключения на использование "DataSnap Server" и "DataSnap Client Module" через TCP/IP, что работает надежно. Однако, если требуется использовать REST, то на стороне сервера можно добавить обработчик событий WebModuleBeforeDispatch для проверки авторизации:

procedure TwbmMain.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  LAuthorization: string;
begin
  inherited;
  if Request.PathInfo.StartsWith('/datasnap/') then
  begin
    LAuthorization := TNetEncoding.Base64.Decode(Request.Authorization.Replace('Basic ', ''));
    if LAuthorization.IsEmpty then
    begin
      Response.StatusCode := 401;
      Response.WWWAuthenticate := 'Basic';
      Handled := True;
    end;
  end;
end;

Этот код проверяет, предоставлены ли учетные данные для запросов, связанных с DataSnap, и возвращает код 401, если учетные данные отсутствуют.

Заключение

В данной статье мы рассмотрели проблему, связанную с обработкой исключений авторизации в DataSnap после обновления до Delphi 10.1 Berlin Update 2. Проблема может быть связана с неправильной настройкой компонентов аутентификации или с новым поведением клиентской библиотеки. Предложенные решения включают в себя настройку учетных данных, использование TCP/IP вместо REST и добавление обработчика событий на стороне сервера для проверки авторизации. Следуя этим рекомендациям, разработчики смогут избежать подобных проблем и обеспечить корректную работу своих приложений.

Создано по материалам из источника по ссылке.

Разработчики сталкиваются с проблемами авторизации при использовании фреймворка DataSnap в Delphi 10.1 Berlin, когда исключения не достигают кода пользователя, что затрудняет отладку.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ошибки и Исключения ::