Проблема атрибутов xmlns в SOAP-сообщениях при использовании веб-сервисов в Delphi 2007

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

Разработчики, сталкивающиеся с использованием веб-сервисов в среде Delphi 2007, могут столкнуться с проблемой, связанной с неправильным формированием SOAP-сообщений. В частности, атрибуты xmlns могут быть добавлены в сообщение некорректно, что приводит к ошибкам при взаимодействии с сервисом. В этой статье мы рассмотрим, как возникает эта проблема и предложим несколько способов её решения.

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

При работе с веб-сервисом в Delphi 2007, после использования WSDL импортера для генерации кода, предназначенного для взаимодействия с сервисом, пользователи могут столкнуться с ошибками типа "unexpected subelement (elementname)". Причиной является некорректное добавление атрибута xmlns к элементам массива значений в SOAP-сообщении.

Пример неправильного SOAP-сообщения:

<SOAP-ENV:Envelope xmlns:SOAP-ENV="..." xmlns:xsd="..." xmlns:xsi="...">
  <SOAP-ENV:Body>
    <Request xmlns="http://service.com/theService/">
      <UserName xmlns="">user</UserName>
      <Password xmlns="">pass</Password>
      <List xmlns="">
        <Item xmlns="http://service.com/theService/">123456</Item>
        <Item xmlns="http://service.com/theService/">84547</Item>
      </List>
    </Request>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Если изменить атрибут xmlns для элементов Item на пустую строку с помощью Fiddler, сообщение будет обработано корректно и без ошибок:

<List xmlns="">
  <Item xmlns="">123456</Item>
  <Item xmlns="">84547</Item>
</List>

Подтвержденное решение

Исходный код, сгенерированный WSDL импортером, может быть исправлен путём изменения настроек инициализации класса сервиса. Вместо использования ioLiteral и xoLiteralParam следует использовать xoHolderClass и xoLiteralParam. Это позволит убрать нежелательные атрибуты xmlns:

InvRegistry.RegisterInvokeOptions(TypeInfo(ServicePort), ioDocument);
RemClassRegistry.RegisterSerializeOptions(RequestType, [xoHolderClass, xoLiteralParam]);

Однако, такой подход может привести к изменению имени элемента Request на имя по умолчанию SOAP-действия, что также вызовет ошибку.

Альтернативное решение

Другой подход заключается в использовании обработчика событий OnBeforeExecute объекта THTTPRIO, который отправляет SOAP-сообщение. В этом обработчике можно получить доступ к сериализованному сообщению в виде строки и удалить из него проблемный атрибут xmlns:

procedure TWebServiceForm.HTTPRIO1BeforeExecute(Sender: TObject; Var_Request: TStrings);
var
  i: Integer;
begin
  for i := 0 to Var_Request.Count - 1 do
    if Pos('xmlns:', Var_Request[i]) > 0 then
      Delete(Var_Request[i], Pos('xmlns:', Var_Request[i]), Length(' xmlns="http://service.com/theService/"'));
end;

Этот метод позволяет скорректировать SOAP-сообщение непосредственно перед его отправкой, что может быть более гибким решением, но также является "костылём".

Заключение

Работа с веб-сервисами в Delphi 2007 может быть сложной из-за ограничений, связанных с версией среды разработки. Однако, с помощью правильных настроек и дополнительных манипуляций с SOAP-сообщениями, разработчики могут успешно преодолеть возникающие проблемы и обеспечить корректное взаимодействие с веб-сервисами.

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

Проблема заключается в неправильном формировании атрибутов xmlns в SOAP-сообщениях при использовании веб-сервисов в Delphi 2007, что может приводить к ошибкам при взаимодействии с сервисом.

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

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

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