Как исправить проблему с неправильной регистрацией классов при импорте WCF сервиса в Delphi XE

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

Статья: Решение проблемы с неправильной регистрацией классов при импорте WCF сервиса в Delphi XE

Введение

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

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

Проблема заключается в том, что при импорте WCF сервиса в Delphi XE с использованием мастера импорта WSDL, сгенерированные классы исключений не регистрируются должным образом. В результате, вместо конкретного потомка ERemotableException, который должен быть сгенерирован для обработки ошибок, Delphi перехватывает ERemotableException без конкретного типа ошибки.

Пример кода

В процессе импорта для каждого типа ошибки сгенерированы два класса: один, наследующийся от ERemotableException, и один - от TRemotable. Пример кода для одного из таких классов:

UnknownEntityFault2 = class(TRemotable)
  // ... содержимое класса ...
end;

UnknownEntityFault = class(ERemotableException)
  // ... содержимое класса ...
end;

Классы регистрируются в инициализационном разделе:

RemClassRegistry.RegisterXSClass(UnknownEntityFault2, ..., 'UnknownEntityFault2', 'UnknownEntityFault');
RemClassRegistry.RegisterXSClass(UnknownEntityFault, ..., 'UnknownEntityFault');

При вызове сервиса без изменений перехватывается ERemotableException. Однако, если класс UnknownEntityFault2 регистрируется после класса UnknownEntityFault, или не регистрируется вовсе, то перехватывается UnknownEntityFault.

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

Для решения проблемы можно воспользоваться следующим подходом:

1. Отменить регистрацию класса UnknownEntityFault2 после инициализации сгенерированного модуля:

RemClassRegistry.UnRegisterXSClass(UnknownEntityFault2);

1. Изменить конфигурацию WCF сервиса, указав имя в FaultContract, что позволит корректно назвать ERemotableException и TRemotable:

[OperationContract]
[FaultContract(typeof(UnknownEntityFault), Name = "NamedFault")]

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

Также было предложено проверить настройку Import Fault Types во время импорта WSDL, однако в данном случае это не помогло. Важно отметить, что проблема не в самом WSDL, а в порядке регистрации классов в Delphi.

Заключение

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

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

Статья описывает проблему неправильной регистрации классов исключений при импорте WCF сервиса в Delphi XE и предлагает решения для корректной обработки ошибок SOAP.

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

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

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