День добрый.
Есть xsd схема, опубликованная на wsdl сервере. Вот она
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
<xs:schema xmlns:tns="http://www.V8ADD.ru" xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="http://www.V8ADD.ru" attributeFormDefault="unqualified" elementFormDefault="qualified">
<xs:element name="Событие" type="tns:ТипСобытие"/>
<xs:simpleType name="SimpleTypes">
<xs:union memberTypes="xs:float xs:dateTime xs:int xs:boolean xs:string"/>
</xs:simpleType>
<xs:complexType name="ТипДанные">
<xs:sequence>
<xs:element name="Ключ" type="xs:string"/>
<xs:element name="Значение" type="tns:SimpleTypes"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ТипСобытие">
<xs:sequence>
<xs:element name="ИмяОбъекта" type="xs:string"/>
<xs:element name="ID" type="xs:string"/>
<xs:element name="PID" type="xs:unsignedLong"/>
<xs:element name="Данные" type="tns:ТипДанные" minOccurs="0" maxOccurs="unbounded"/>
</xs:sequence>
</xs:complexType>
</xs:schema>
При импорте этой схемы в Дельфи, через Component->Import wsdl, получаю текст модуля (привожу часть)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
type
// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Embarcadero types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:string - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:unsignedLong - "http://www.w3.org/2001/XMLSchema"[Gbl]
ТипДанные = class; { "http://www.V8ADD.ru"[GblCplx] }
ТипСобытие = class; { "http://www.V8ADD.ru"[GblCplx] }
Событие = class; { "http://www.V8ADD.ru"[GblElm] }
Array_Of_ТипДанные = array of ТипДанные; { "http://www.V8ADD.ru"[GblUbnd] }
SimpleTypes = type string; { "http://www.V8ADD.ru"[GblSmpl] }
// ************************************************************************ //
// XML : ТипДанные, global, <complexType>
// Namespace : http://www.V8ADD.ru
// ************************************************************************ //
ТипДанные = class(TRemotable)
private
FКлюч: string;
FЗначение: SimpleTypes;
published
property Ключ: string read FКлюч write FКлюч;
property Значение: SimpleTypes read FЗначение write FЗначение;
end;
Из исходника видно, что тэг "Значение" принял тип String (в конечном счете), что меня печалит. Как мне сделать вариантный тип, вместо строкового?
