Решение проблемы доступа к WCF-сервису через Delphi с аутентификацией Windows

Delphi , ОС и Железо , Windows

Пользователь столкнулся с проблемой доступа к WCF-сервису через клиент на Delphi, используя аутентификацию Windows. Проблема заключается в том, что аутентификация работает только в том случае, если клиент запущен на той же машине, что и WCF-сервис. В противном случае возникает исключение ESOAPHTTPException с кодом ошибки 401 (Unauthorized).

Описание проблемы

Для доступа к WCF-сервису через клиент на Delphi с использованием Windows аутентификации необходимо настроить клиент на автоматическое использование учетных данных Windows. В клиенте на C# такая настройка осуществляется через конфигурацию:

<transport clientCredentialType="Windows" />

Однако в Delphi такой настройки не было выполнено, и пользователь не знает, как это сделать.

Решение проблемы

Для решения проблемы доступа к WCF-сервису с аутентификацией Windows в клиенте на Delphi, можно использовать следующий подход:

1. В составе компонента THTTPRio есть подкомпонент WebNode, в свойство Username которого можно передать учетные данные в формате domain\user.
2. Необходимо убедиться, что клиент использует учетные данные доменного аккаунта, если сервер и клиент находятся на разных компьютерах.
3. Для тестирования и логирования запросов и ответов веб-службы можно использовать инструменты типа SoapUI или Fiddler2.

Пример кода на Object Pascal (Delphi), который демонстрирует, как можно указать учетные данные для аутентификации:

procedure TForm1.Button1Click(Sender: TObject);
var
  trans: IService;
begin
  // Установка учетных данных для аутентификации
  THTTPRIO(WebNode).Username := 'domain\user';
  // Получение интерфейса сервиса
  trans := Service_Transfer.GetIService();
  // Выполнение операции
  Label1.Caption := trans.GetPath;
end;

Подтвержденный ответ

Пользователь @whosrdaddy использует версию Delphi XE2 и интересуется, как автоматически передать учетные данные Windows через THTTPRIO.Webnode. В комментариях упоминается, что некоторые разработчики, столкнувшись с подобной проблемой, решили создать .NET COM DLL для выполнения вызовов WCF, которые затем вызывались из Delphi. Однако, это можно обойти, используя вышеуказанный метод с THTTPRIO.Webnode.

Альтернативный ответ

Если клиент и сервер находятся на разных машинах, клиенту необходимо использовать действительный доменный аккаунт для аутентификации. В ответе на StackOverflow, приведенном в контексте, описывается, как в свойство Username компонента WebNode передать учетные данные в нужном формате.

Заключение

Для успешного доступа к WCF-сервису с использованием Windows аутентификации в клиенте на Delphi, необходимо правильно настроить учетные данные в компоненте THTTPRio. Приведенный пример кода демонстрирует, как это можно сделать, и является эффективным решением описанной проблемы.

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

Пользователь столкнулся с проблемой аутентификации Windows при доступе к WCF-сервису через клиент на Delphi, когда сервис и клиент находятся на разных машинах, что приводит к исключению `ESOAPHTTPException` с кодом 401.

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

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

:: Главная :: Windows ::