| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > Delphi:неправильная генерация клиента для Веб Серв |
| Автор: Вангоп 27.12.2003, 16:56 |
| Привет! У меня есть проблема: при попытке генерациии клиента для Веб Сервиса по WSDL генератор дельфийский работает неверно! В схеме елемент FlightAvailabilitySegment имеет поделемент FlAvOriginDestinationOB(Тоже сложный тип) с maxOccurs="unbounded". Что делает генератор: для <FlightAvailabilitySegment > генерит тип со свойством для <FlAvOriginDestinationOB>. Пока все верно. Идем в декларейшн типа этого свойства и что: вместо того, чтобы описать его как массив, для него просто создается класс.(т. е. выходит этот елемент может появиться только раз, а не много). Кто-то знает, может надо какую-то галочку в свойствах поставить или еще чего? Схема(из WSDL): код: -------------------------------------------------------------------------------- <xsd:complexType name="FlightAvailabilitySegment"> <xsd:sequence> <xsd:element name="OperatorCode" type="xsd:string"/> <xsd:element name="Route" type="xsd:string" minOccurs="0"/> <xsd:element name="FlAvOriginDestinationOB" type="tns:FlightAvailabilityOriginDestination" maxOccurs="unbounded"/> <xsd:element name="FlAvOriginDestinationIB" type="tns:FlightAvailabilityOriginDestination" maxOccurs="unbounded"/> <xsd:element name="FareData" type="tns:FlightFareData"/> </xsd:sequence> -------------------------------------------------------------------------------- Код дельфы: код: -------------------------------------------------------------------------------- FlightAvailabilitySegment = class(TRemotable) private FOperatorCode: WideString; FRoute: WideString; FFlAvOriginDestinationOB: FlightAvailabilityOriginDestination; FFlAvOriginDestinationIB: FlightAvailabilityOriginDestination; FFareData: FlightFareData; public destructor Destroy; override; published property OperatorCode: WideString read FOperatorCode write FOperatorCode; property Route: WideString read FRoute write FRoute; property FlAvOriginDestinationOB: FlightAvailabilityOriginDestination read FFlAvOriginDestinationOB write FFlAvOriginDestinationOB; property FlAvOriginDestinationIB: FlightAvailabilityOriginDestination read FFlAvOriginDestinationIB write FFlAvOriginDestinationIB; property FareData: FlightFareData read FFareData write FFareData; end; -------------------------------------------------------------------------------- (пока все верно, теперь смотрим код для типа FlightAvailabilityOriginDestination) код: -------------------------------------------------------------------------------- FlightAvailabilityOriginDestination = class(TRemotable) private FFlightDetails: FlightResponseDetails; FSmokingInd: Boolean; FRsDepartureAirport: ResponseAirport; FRsArrivalAirport: ResponseAirport; FDepartureDateTime: WideString; FArrivalDateTime: WideString; FFlAvCabin: FlightAvailabilityCabin; FEquipment: FlightEquipment; FEnRouteStops: Integer; public destructor Destroy; override; published property FlightDetails: FlightResponseDetails read FFlightDetails write FFlightDetails; property SmokingInd: Boolean read FSmokingInd write FSmokingInd; property RsDepartureAirport: ResponseAirport read FRsDepartureAirport write FRsDepartureAirport; property RsArrivalAirport: ResponseAirport read FRsArrivalAirport write FRsArrivalAirport; property DepartureDateTime: WideString read FDepartureDateTime write FDepartureDateTime; property ArrivalDateTime: WideString read FArrivalDateTime write FArrivalDateTime; property FlAvCabin: FlightAvailabilityCabin read FFlAvCabin write FFlAvCabin; property Equipment: FlightEquipment read FEquipment write FEquipment; property EnRouteStops: Integer read FEnRouteStops write FEnRouteStops; end; -------------------------------------------------------------------------------- (Какого черта это просто класс, а не что-то типа FlightAvailabilityOriginDestination= array of FlightAvailabilityOriginDestinationOBJ, где FlightAvailabilityOriginDestinationOBJ=-> код: -------------------------------------------------------------------------------- FlightAvailabilityOriginDestinationOBJ = class(TRemotable) private FFlightDetails: FlightResponseDetails; FSmokingInd: Boolean; FRsDepartureAirport: ResponseAirport; FRsArrivalAirport: ResponseAirport; FDepartureDateTime: WideString; FArrivalDateTime: WideString; FFlAvCabin: FlightAvailabilityCabin; FEquipment: FlightEquipment; FEnRouteStops: Integer; public destructor Destroy; override; published property FlightDetails: FlightResponseDetails read FFlightDetails write FFlightDetails; property SmokingInd: Boolean read FSmokingInd write FSmokingInd; property RsDepartureAirport: ResponseAirport read FRsDepartureAirport write FRsDepartureAirport; property RsArrivalAirport: ResponseAirport read FRsArrivalAirport write FRsArrivalAirport; property DepartureDateTime: WideString read FDepartureDateTime write FDepartureDateTime; property ArrivalDateTime: WideString read FArrivalDateTime write FArrivalDateTime; property FlAvCabin: FlightAvailabilityCabin read FFlAvCabin write FFlAvCabin; property Equipment: FlightEquipment read FEquipment write FEquipment; property EnRouteStops: Integer read FEnRouteStops write FEnRouteStops; end; -------------------------------------------------------------------------------- тогда бы все было верно?) |