Мы недавно создали собственный веб-сервис с использованием SOAP, и все это работает как шарм.
Поскольку служба используется только из наших собственных приложений, я обычно не разрешаю генерировать WSDL.
Сегодня я начал некоторые тесты с SoapUI и мне понадобился WSDL нашего собственного сервиса. Поэтому я включил действие Default компонента TWSDLHTMLPublish и попытался экспортировать WSDL. Все, что я получил, это нарушение доступа в WebServExp.GenerateXMLSchema, строка 1636:
if (ParentInfo = nil) and ((GetTypeData(ATypeInfo).ParentInfo)^ <> nil) then
Отладка этого, обнаружила, что GetTypeData(ATypeInfo).ParentInfo
вернул ноль, поэтому, конечно, использование ^ на ноль вызывает нарушение прав доступа.
После удаления каретки у меня не возникло проблем с генерацией WSDL.
Так я здесь обнаружил ошибку или что-то упустил?
Кстати: мы создали наш собственный SOAP.bpl, содержащий все оригинальные источники мыла Delphi, чтобы исправить его для известной проблемы с исключением из TRemotableException