## Исправление ошибки обработки XML в Delphi XE для работы с веб-сервисом Cold Fusion

Delphi , Программа и Интерфейс , Процессы и Сервисы

Ошибка обработки XML в Delphi XE при работе с веб-сервисом, написанным на Cold Fusion, может возникать из-за неправильного форматирования ответа сервиса. В частности, проблема может быть связана с тем, что элемент <data> в XML содержит несколько вложенных массивов, что вызывает исключение в Delphi, поскольку ожидается только один текстовый узел.

Пример XML ответа от веб-сервиса

Вот пример XML, который возвращается веб-сервисом и вызывает исключение в Delphi:

<data soapenc:arrayType="xsd:anyType[][1]" xsi:type="soapenc:Array">
  <data soapenc:arrayType="xsd:anyType[2]" xsi:type="soapenc:Array">
    <data xsi:type="soapenc:string">6490</data>
    <data xsi:type="soapenc:string">Other Expense</data>
  </data>
</data>

Если XML содержит более одного вложенного элемента <data>, исключение не возникает:

<data soapenc:arrayType="xsd:anyType[][3]" xsi:type="soapenc:Array">
  <data soapenc:arrayType="xsd:anyType[2]" xsi:type="soapenc:Array">
    <data xsi:type="soapenc:string">2600</data>
    <data xsi:type="soapenc:string">Deferred Revenue</data>
  </data>
  <data soapenc:arrayType="xsd:anyType[2]" xsi:type="soapenc:Array">
    <data xsi:type="soapenc:string">4120</data>
    <data xsi:type="soapenc:string">Non-Credit Income</data>
  </data>
  <data soapenc:arrayType="xsd:anyType[2]" xsi:type="soapenc:Array">
    <data xsi:type="soapenc:string">6490</data>
    <data xsi:type="soapenc:string">Other Expense</data>
  </data>
</data>

Подход к решению проблемы

Для решения проблемы можно использовать обработчик RIO_AfterExecute, который позволяет модифицировать SOAP ответ, изменяя XML для соответствия ожиданиям Delphi. Это не идеальное решение, но оно позволяет обойти проблему без изменения самого веб-сервиса.

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

procedure MyWrapper.RIO_AfterExecute(const MethodName: string; SOAPResponse: TStream);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SOAPResponse.Position := 0;
    SL.LoadFromStream(SOAPResponse);
    // Здесь можно выполнить необходимые изменения в SL.Text, например, используя StringReplace
    SOAPResponse.Position := 0;
    SOAPResponse.Size := Length(SL.Text);
    SL.SaveToStream(SOAPResponse);
  finally
    SL.Free;
  end;
end;

Этот обработчик должен быть подключен к событию OnAfterExecute объекта RIO.

Альтернативные подходы

Также было предложено проверить определения типов в импортированной единице, так как возможна ошибка в их маппинге. Кроме того, рассмотрено предложение о создании клиента на .NET для веб-сервиса Cold Fusion, который бы выступал в роли промежуточного слоя для Delphi приложения.

Заключение

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

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

В Delphi XE при работе с веб-сервисом, созданным на Cold Fusion, возникает ошибка обработки XML из-за некорректного форматирования ответа сервиса, особенно когда XML содержит несколько вложенных массивов, что приводит к исключению в Delphi, ожи

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

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

:: Главная :: Процессы и Сервисы ::