Обработка Ошибок Аутентификации в SOAP-Коммуникациях Delphi XE

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

При работе с SOAP-коммуникациями в приложениях Delphi XE, использующих THTTPRIO и WinInet.dll по умолчанию, может возникнуть проблема, связанная с обработкой ошибок аутентификации. Если введенные учетные данные неверны, вместо ожидаемой ошибки пользователь видит диалоговое окно, предлагающее ввести данные для аутентификации. В данной статье мы рассмотрим, как избавиться от этого окна и настроить SOAP-коммуникации таким образом, чтобы в случае ошибки аутентификации происходил возврат ошибки без вывода диалогового окна.

Понимание проблемы

Когда SOAP-клиент пытается аутентифицироваться на защищенном сервере с использованием неверных учетных данных, WinInet.dll, который используется по умолчанию в Delphi XE, выдает диалоговое окно, запрашивающее данные для аутентификации. Это поведение нежелательно, так как клиент должен обрабатывать ошибку самостоятельно, без вмешательства пользователя.

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

Существует несколько подходов к решению данной проблемы. Рассмотрим наиболее эффективный из них:

1. Переключение на WinHTTP: WinHTTP — это компонент, предоставляющий функционал, аналогичный WinInet, но без встроенной поддержки диалоговых окон. Это позволяет избежать нежелательного взаимодействия с пользователем. Для использования WinHTTP в вашем приложении необходимо будет немного изменить код, так как WinHTTP и WinInet имеют разные классы и интерфейсы.

Пример кода для использования WinHTTP вместо WinInet:

```pascal uses WinHTTP;

var hSession: THandle; hRequest: THandle; sResult: string; begin hSession := WinHttpOpen('User-Agent name', WINHTTP_ACCESS_TYPE_NAMED_PROXY, 'Proxy-Server-Name', 'Proxy-Bypass-List', 0); if hSession = 0 then begin // Обработка ошибки Exit; end;

 hRequest := WinHttpConnect(hSession,
   'www.example.com',
   80,
   0);
 if hRequest = 0 then
 begin
   // Обработка ошибки
   WinHttpCloseHandle(hSession);
   Exit;
 end;

 if WinHttpOpenRequest(hRequest,
   'GET',
   '/',
   NULL,
   NULL,
   NULL,
   0) = 0 then
 begin
   // Обработка ошибки
   WinHttpCloseHandle(hRequest);
   WinHttpCloseHandle(hSession);
   Exit;
 end;

 if WinHttpSendRequest(hRequest, NULL, 0, NULL, 0, 0, NULL) <> FALSE then
 begin
   // Обработка ошибки, если это была пре-эмпломпа.
   if WinHttpReceiveResponse(hRequest, NULL) = FALSE then
   begin
     // Обработка ошибки
   end;
   // Чтение ответа
   repeat
     var
       iDataLen: DWORD;
     begin
       if WinHttpQueryDataAvailable(hRequest, Pointer(iDataLen)) then
       begin
         if iDataLen = 0 then
           Break;
         SetLength(sResult, iDataLen);
         if WinHttpReadData(hRequest, PChar(sResult), Length(sResult), Pointer(iDataLen)) then
           // Преобразование ответа в строку
           ...
         end;
       end;
     end;
   until FALSE;

   WinHttpCloseHandle(hRequest);
 end;
 WinHttpCloseHandle(hSession);

end; ```

Важно отметить, что при использовании WinHTTP вам будет необходимо самостоятельно устанавливать учетные данные для аутентификации, управляя HTTP-заголовками.

Заключение

Переход на использование WinHTTP вместо WinInet позволяет избежать появления диалогового окна при ошибке аутентификации, что решает описанную проблему. Это изменение требует некоторых модификаций в коде, но обеспечивает более тонкую и контролируемую обработку ошибок в SOAP-коммуникациях.

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

по обработке ошибок аутентификации в SOAP-коммуникациях Delphi XE.

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

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

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