SOAP и полиморфизм

[AnTe]

Здравствуйте.

сервер на JAVA (WebLogic 10.3.6)

пишу клиента на Embarcadero XE5

Столкнулся со следующей проблемой. Серверная логика запрограммирована с мыслью о полиморфизме, то есть процедура объявлена как принимающая абстрактный объект-прародитель, а передают в неё конкретные объекты и внутри процедуры, в зависимости от типа переданной переменной, с нею совершаются определённые действия

На практике при передаче объекта-наследника на сервер приходит в реальности объект-прародитель

На всякий случай, попробую привести пример:

Имеется структура классов, унаследованная, пусть для определённости от TAbstractObject и у сервера есть процедура RegisteredAnyObject, принимающая на вход объект любого типа

Родительский класс:

TAbstractObject = class
end;

объявление серверной процедуры:

RegisteredAnyObject(Obj: TAbstractObject);

Пример использования

TConcreteObject = class(TAbstractObject)
  NewField1: integer;
  NewField2: integer;
end;

UsingObject := TConcreteObject.Create;

RegisteredAnyObject(UsingObject);

При таком использовании на сервере в процедуру RegisteredAnyObject приходит объект типа TAbstractObject, соответственно, помимо потери информации о типе при передаче потеряны и поля NewField1, NewField2

Фишка в том, что сервер приложений тестировался на Java, то есть для тестирования сервера приложений был написан клиент, содержащий пакет тестов сервисов, и написан он на Java. Всё превосходно передавалось и принималось. Когда клиент написан на Embarcadero с использованием HTTPRIO - в функцию приходит урезанный объект-родитель

предполагаю, что не указаны какие-то настройки формирования XML-пакета, так же предполагаю, что поддержка полиморфизма - базовый функционал и не может быть такого, чтобы в HTTPRIO это не было реализовано.

Но куда копать?

[Stilet]

Наверное мне повезло, что у меня нет такой задачи.
Я бы долго голову ломал с этими соапами.

[AnTe]

Это ещё не всё.

Если один из объектов имеет в качестве поля другой объект, а ему вместо него подсовывается предок этого объекта - на сервер точно так же приходится экземпляр родителя....


то есть, на примерах в продолжении предыдущей задачи, составной объект:

TComplexObject = class
obj: TAbstractObject
end;

сервис

ServiceForComplexObject(obj: TComplexObject);

использование:

ComplexObject := TComplexObject.Create;
ComplexObject.obj := TConcreteObject.Create

ServiceForComplexObject(ComplexObject);

на сервер приходит объект типа TComplexObject, в поле obj которого содержится переменная типа TAbstractObject

[Stilet]

Я могу только пособолезновать твоей проблеме.
Увы ответов у меня нет.

[AnTe]

Спасибо. Мне стало легче