GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-11-14 19:13:50 +00:00
Code Issues Projects Releases Wiki Activity

Due to testing on the e-Exact schema:

Browse Source 
Fixed: global attributes and references
Fixed: List references
Fixed: naming conflicts due to case sensitivity
Still bugged: repeating enumerations
This commit is contained in:
Mark van Renswoude 2014-11-15 11:29:35 +00:00
parent 66dbd1738a
commit bebb08153e
2 changed files with 132 additions and 121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/DelphiXMLDataBindingGenerator.pas
View File

@ -77,7 +77,9 @@ implementation
uses uses
SysUtils, SysUtils,
X2UtNamedFormat; X2UtNamedFormat,
X2Log.Global;
@ -919,6 +921,8 @@ var
member: TDelphiXMLMember; member: TDelphiXMLMember;
begin begin
TX2GlobalLog.Verbose('WriteSchemaInterfaceProperties: ' + AItem.Name);
if ASection = dxsForward then if ASection = dxsForward then
Exit; Exit;

247
Units/XMLDataBindingGenerator.pas
View File

@ -6,9 +6,13 @@ interface
uses uses
System.Classes, System.Classes,
System.Generics.Collections, System.Generics.Collections,
System.SysUtils,
Xml.XMLSchema; Xml.XMLSchema;
type type
EXMLDataBindingError = class(Exception);
EXMLDataBindingUnresolvedItem = class(EXMLDataBindingError);
TXMLDataBindingSchema = class; TXMLDataBindingSchema = class;
TXMLDataBindingGeneratorItem = class; TXMLDataBindingGeneratorItem = class;
TXMLDataBindingItem = class; TXMLDataBindingItem = class;
@ -24,12 +28,12 @@ type
TXMLDataBindingItemType = (itInterface, itEnumeration, itEnumerationMember, TXMLDataBindingItemType = (itInterface, itEnumeration, itEnumerationMember,
itProperty, itUnresolved, itProperty, itUnresolved,
itComplexTypeAlias, itSimpleTypeAlias); itComplexTypeAlias, itSimpleTypeAlias);
TXMLDataBindingInterfaceType = (ifElement, ifComplexType, ifEnumeration); TXMLDataBindingInterfaceType = (ifElement, ifComplexType, ifEnumeration, ifAttribute);
TXMLDataBindingPropertyType = (ptSimple, ptItem); TXMLDataBindingPropertyType = (ptSimple, ptItem);
TXMLDataBindingOccurance = (boMinOccurs, boMaxOccurs); TXMLDataBindingOccurance = (boMinOccurs, boMaxOccurs);
TXMLDataBindingIterateItemsProc = procedure(AItem: TXMLDataBindingItem; AData: Pointer; var AAbort: Boolean) of object; TXMLDataBindingIterateItemsProc = reference to procedure(AItem: TXMLDataBindingItem; var AAbort: Boolean);
TXMLDataBindingPostProcessItemEvent = procedure(Sender: TObject; Item: TXMLDataBindingItem) of object; TXMLDataBindingPostProcessItemEvent = procedure(Sender: TObject; Item: TXMLDataBindingItem) of object;
@ -55,6 +59,7 @@ type
procedure GenerateElementObjects(ASchema: TXMLDataBindingSchema; ARootDocument: Boolean); procedure GenerateElementObjects(ASchema: TXMLDataBindingSchema; ARootDocument: Boolean);
procedure GenerateComplexTypeObjects(ASchema: TXMLDataBindingSchema); procedure GenerateComplexTypeObjects(ASchema: TXMLDataBindingSchema);
procedure GenerateSimpleTypeObjects(ASchema: TXMLDataBindingSchema); procedure GenerateSimpleTypeObjects(ASchema: TXMLDataBindingSchema);
procedure GenerateAttributeObjects(ASchema: TXMLDataBindingSchema);
function CheckElementOccurance(AElement: IXMLElementDef; AOccurance: TXMLDataBindingOccurance): Boolean; function CheckElementOccurance(AElement: IXMLElementDef; AOccurance: TXMLDataBindingOccurance): Boolean;
function IsElementOptional(AElement: IXMLElementDef): Boolean; function IsElementOptional(AElement: IXMLElementDef): Boolean;
@ -67,13 +72,10 @@ type
procedure ProcessAttribute(ASchema: TXMLDataBindingSchema; AAttribute: IXMLAttributeDef; AInterface: TXMLDataBindingInterface); procedure ProcessAttribute(ASchema: TXMLDataBindingSchema; AAttribute: IXMLAttributeDef; AInterface: TXMLDataBindingInterface);
function ProcessSimpleTypeReference(ASchema: TXMLDataBindingSchema; AItem: IXMLSchemaItem; ADataType: IXMLTypeDef): TXMLDataBindingItem; function ProcessSimpleTypeReference(ASchema: TXMLDataBindingSchema; AItem: IXMLSchemaItem; ADataType: IXMLTypeDef): TXMLDataBindingItem;
function IterateSchemaItems(ASchema: TXMLDataBindingSchema; AIterateProc: TXMLDataBindingIterateItemsProc; AData: Pointer): TXMLDataBindingItem; function IterateSchemaItems(ASchema: TXMLDataBindingSchema; AIterateProc: TXMLDataBindingIterateItemsProc): TXMLDataBindingItem;
procedure FindInterfaceProc(AItem: TXMLDataBindingItem; AData: Pointer; var AAbort: Boolean);
function FindInterface(ASchema: TXMLDataBindingSchema; const AName: String; AType: TXMLDataBindingInterfaceType): TXMLDataBindingInterface; function FindInterface(ASchema: TXMLDataBindingSchema; const AName: String; AType: TXMLDataBindingInterfaceType): TXMLDataBindingInterface;
function FindEnumeration(ASchema: TXMLDataBindingSchema; const AName: String): TXMLDataBindingEnumeration;
procedure FindEnumerationProc(AItem: TXMLDataBindingItem; AData: Pointer; var AAbort: Boolean);
function FindEnumeration(ASchema: TXMLDataBindingSchema; const AName: String; AAttribute: Boolean): TXMLDataBindingEnumeration;
procedure ReplaceItem(const AOldItem, ANewItem: TXMLDataBindingItem); procedure ReplaceItem(const AOldItem, ANewItem: TXMLDataBindingItem);
@ -243,19 +245,17 @@ type
TXMLDataBindingEnumeration = class(TXMLDataBindingItem) TXMLDataBindingEnumeration = class(TXMLDataBindingItem)
private private
FMembers: TObjectList<TXMLDataBindingEnumerationMember>; FMembers: TObjectList<TXMLDataBindingEnumerationMember>;
FIsAttribute: Boolean;
function GetMemberCount: Integer; function GetMemberCount: Integer;
function GetMembers(Index: Integer): TXMLDataBindingEnumerationMember; function GetMembers(Index: Integer): TXMLDataBindingEnumerationMember;
protected protected
function GetItemType: TXMLDataBindingItemType; override; function GetItemType: TXMLDataBindingItemType; override;
public public
constructor Create(AOwner: TXMLDataBindingGenerator; ASchemaItem: IXMLSchemaItem; AEnumerations: IXMLEnumerationCollection; const AName: String; AIsAttribute: Boolean); constructor Create(AOwner: TXMLDataBindingGenerator; ASchemaItem: IXMLSchemaItem; AEnumerations: IXMLEnumerationCollection; const AName: String);
destructor Destroy; override; destructor Destroy; override;
property MemberCount: Integer read GetMemberCount; property MemberCount: Integer read GetMemberCount;
property Members[Index: Integer]: TXMLDataBindingEnumerationMember read GetMembers; property Members[Index: Integer]: TXMLDataBindingEnumerationMember read GetMembers;
property IsAttribute: Boolean read FIsAttribute;
end; end;
@ -320,14 +320,12 @@ type
TXMLDataBindingUnresolvedItem = class(TXMLDataBindingItem) TXMLDataBindingUnresolvedItem = class(TXMLDataBindingItem)
private private
FInterfaceType: TXMLDataBindingInterfaceType; FInterfaceType: TXMLDataBindingInterfaceType;
FIsAttribute: Boolean;
protected protected
function GetItemType: TXMLDataBindingItemType; override; function GetItemType: TXMLDataBindingItemType; override;
public public
constructor Create(AOwner: TXMLDataBindingGenerator; ASchemaItem: IXMLSchemaItem; const AName: String; AInterfaceType: TXMLDataBindingInterfaceType; AIsAttribute: Boolean); constructor Create(AOwner: TXMLDataBindingGenerator; ASchemaItem: IXMLSchemaItem; const AName: String; AInterfaceType: TXMLDataBindingInterfaceType; AIsAttribute: Boolean);
property InterfaceType: TXMLDataBindingInterfaceType read FInterfaceType; property InterfaceType: TXMLDataBindingInterfaceType read FInterfaceType;
property IsAttribute: Boolean read FIsAttribute;
end; end;
@ -351,11 +349,11 @@ type
public public
property DataType: IXMLTypeDef read FDataType write FDataType; property DataType: IXMLTypeDef read FDataType write FDataType;
end; end;
implementation implementation
uses uses
System.SysUtils, System.TypInfo,
System.Variants, System.Variants,
Winapi.Windows, Winapi.Windows,
Xml.XMLDoc, Xml.XMLDoc,
@ -593,6 +591,7 @@ begin
GenerateElementObjects(ASchema, ARootDocument); GenerateElementObjects(ASchema, ARootDocument);
GenerateComplexTypeObjects(ASchema); GenerateComplexTypeObjects(ASchema);
GenerateSimpleTypeObjects(ASchema); GenerateSimpleTypeObjects(ASchema);
GenerateAttributeObjects(ASchema);
end; end;
@ -668,35 +667,56 @@ begin
begin begin
simpleType := schemaDef.SimpleTypes[simpleTypeIndex]; simpleType := schemaDef.SimpleTypes[simpleTypeIndex];
if simpleType.Enumerations.Count > 0 then if simpleType.DerivationMethod <> sdmList then
begin begin
enumerationObject := TXMLDataBindingEnumeration.Create(Self, simpleType, simpleType.Enumerations, simpleType.Name, False); if simpleType.Enumerations.Count > 0 then
ASchema.AddItem(enumerationObject);
end else if simpleType.DerivationMethod = sdmRestriction then
begin
baseType := simpleType.BaseType;
while Assigned(baseType.BaseType) do
baseType := baseType.BaseType;
if not baseType.IsComplex then
begin begin
if not VarIsNull(simpleType.SchemaDef.TargetNamespace) then enumerationObject := TXMLDataBindingEnumeration.Create(Self, simpleType, simpleType.Enumerations, simpleType.Name);
begin ASchema.AddItem(enumerationObject);
namespace := simpleType.SchemaDef.TargetNamespace; end else if simpleType.DerivationMethod = sdmRestriction then
if namespace = Schemas[0].TargetNamespace then begin
namespace := ''; baseType := simpleType.BaseType;
end;
simpleTypeAlias := TXMLDataBindingSimpleTypeAliasItem.Create(Self, baseType, simpleType.Name); while Assigned(baseType.BaseType) do
simpleTypeAlias.TargetNamespace := namespace; baseType := baseType.BaseType;
ASchema.AddItem(simpleTypeAlias);
if not baseType.IsComplex then
begin
if not VarIsNull(simpleType.SchemaDef.TargetNamespace) then
begin
namespace := simpleType.SchemaDef.TargetNamespace;
if namespace = Schemas[0].TargetNamespace then
namespace := '';
end;
simpleTypeAlias := TXMLDataBindingSimpleTypeAliasItem.Create(Self, baseType, simpleType.Name);
simpleTypeAlias.TargetNamespace := namespace;
ASchema.AddItem(simpleTypeAlias);
end;
end; end;
end; end;
end; end;
end; end;
procedure TXMLDataBindingGenerator.GenerateAttributeObjects(ASchema: TXMLDataBindingSchema);
var
schemaDef: IXMLSchemaDef;
attributeIndex: Integer;
attribute: IXMLAttributeDef;
item: TXMLDataBindingItem;
begin
schemaDef := ASchema.SchemaDef;
for attributeIndex := 0 to Pred(schemaDef.AttributeDefs.Count) do
begin
attribute := schemaDef.AttributeDefs[attributeIndex];
ProcessElement(ASchema, attribute);
end;
end;
function TXMLDataBindingGenerator.CheckElementOccurance(AElement: IXMLElementDef; AOccurance: TXMLDataBindingOccurance): Boolean; function TXMLDataBindingGenerator.CheckElementOccurance(AElement: IXMLElementDef; AOccurance: TXMLDataBindingOccurance): Boolean;
function CheckParent(const ANode: IXMLNode): Boolean; function CheckParent(const ANode: IXMLNode): Boolean;
@ -768,6 +788,7 @@ var
simpleAliasItem: TXMLDataBindingSimpleTypeAliasItem; simpleAliasItem: TXMLDataBindingSimpleTypeAliasItem;
elementIndex: Integer; elementIndex: Integer;
simpleTypeDef: IXMLSimpleTypeDef; simpleTypeDef: IXMLSimpleTypeDef;
dataTypeName: string;
begin begin
Result := nil; Result := nil;
@ -794,7 +815,7 @@ begin
if not Assigned(Result) then if not Assigned(Result) then
begin begin
Result := TXMLDataBindingUnresolvedItem.Create(Self, AElement, AElement.DataTypeName, ifComplexType, True); Result := TXMLDataBindingUnresolvedItem.Create(Self, AElement, AElement.DataTypeName, ifComplexType, False);
ASchema.AddItem(Result); ASchema.AddItem(Result);
end; end;
@ -808,14 +829,19 @@ begin
end; end;
end else if Supports(AElement.DataType, IXMLSimpleTypeDef, simpleTypeDef) then end else if Supports(AElement.DataType, IXMLSimpleTypeDef, simpleTypeDef) then
begin begin
if simpleTypeDef.Enumerations.Count > 0 then if (simpleTypeDef.DerivationMethod = sdmList) or (simpleTypeDef.Enumerations.Count > 0) then
begin begin
if simpleTypeDef.DerivationMethod = sdmList then
dataTypeName := (simpleTypeDef.ContentNode as IXMLSimpleTypeList).ItemType
else
dataTypeName := AElement.DataTypeName;
{ References enumeration. } { References enumeration. }
Result := FindEnumeration(ASchema, AElement.DataTypeName, False); Result := FindEnumeration(ASchema, dataTypeName);
if not Assigned(Result) then if not Assigned(Result) then
begin begin
Result := TXMLDataBindingUnresolvedItem.Create(Self, AElement, AElement.DataTypeName, ifEnumeration, False); Result := TXMLDataBindingUnresolvedItem.Create(Self, AElement, dataTypeName, ifEnumeration, False);
ASchema.AddItem(Result); ASchema.AddItem(Result);
end; end;
end else if simpleTypeDef.IsBuiltInType and AElement.IsGlobal then end else if simpleTypeDef.IsBuiltInType and AElement.IsGlobal then
@ -836,7 +862,7 @@ begin
if AElement.DataType.Enumerations.Count > 0 then if AElement.DataType.Enumerations.Count > 0 then
begin begin
{ Enumeration } { Enumeration }
enumerationObject := TXMLDataBindingEnumeration.Create(Self, AElement, AElement.DataType.Enumerations, AElement.Name, False); enumerationObject := TXMLDataBindingEnumeration.Create(Self, AElement, AElement.DataType.Enumerations, AElement.Name);
ASchema.AddItem(enumerationObject); ASchema.AddItem(enumerationObject);
Result := enumerationObject; Result := enumerationObject;
end else end else
@ -878,6 +904,7 @@ var
complexAliasItem: TXMLDataBindingComplexTypeAliasItem; complexAliasItem: TXMLDataBindingComplexTypeAliasItem;
simpleAliasItem: TXMLDataBindingSimpleTypeAliasItem; simpleAliasItem: TXMLDataBindingSimpleTypeAliasItem;
simpleTypeDef: IXMLSimpleTypeDef; simpleTypeDef: IXMLSimpleTypeDef;
dataTypeName: string;
begin begin
Result := nil; Result := nil;
@ -885,11 +912,11 @@ begin
if Assigned(AAttribute.Ref) then if Assigned(AAttribute.Ref) then
begin begin
{ Find reference. If not found, mark as "resolve later". } { Find reference. If not found, mark as "resolve later". }
Result := FindInterface(ASchema, AAttribute.Ref.Name, ifElement); Result := FindInterface(ASchema, AAttribute.Ref.Name, ifAttribute);
if not Assigned(Result) then if not Assigned(Result) then
begin begin
Result := TXMLDataBindingUnresolvedItem.Create(Self, AAttribute, AAttribute.Ref.Name, ifElement, True); Result := TXMLDataBindingUnresolvedItem.Create(Self, AAttribute, AAttribute.Ref.Name, ifAttribute, True);
ASchema.AddItem(Result); ASchema.AddItem(Result);
end; end;
end else end else
@ -915,16 +942,22 @@ begin
complexAliasItem.Item := Result; complexAliasItem.Item := Result;
ASchema.AddItem(complexAliasItem); ASchema.AddItem(complexAliasItem);
end; end;
end else if Supports(AAttribute.DataType, IXMLSimpleTypeDef, simpleTypeDef) then end else if Supports(AAttribute.DataType, IXMLSimpleTypeDef, simpleTypeDef) then
begin begin
if simpleTypeDef.Enumerations.Count > 0 then if (simpleTypeDef.DerivationMethod = sdmList) or (simpleTypeDef.Enumerations.Count > 0) then
begin begin
if simpleTypeDef.DerivationMethod = sdmList then
dataTypeName := (simpleTypeDef.ContentNode as IXMLSimpleTypeList).ItemType
else
dataTypeName := AAttribute.DataTypeName;
{ References enumeration. } { References enumeration. }
Result := FindEnumeration(ASchema, AAttribute.DataTypeName, True); Result := FindEnumeration(ASchema, dataTypeName);
if not Assigned(Result) then if not Assigned(Result) then
begin begin
Result := TXMLDataBindingUnresolvedItem.Create(Self, AAttribute, AAttribute.DataTypeName, ifEnumeration, True); Result := TXMLDataBindingUnresolvedItem.Create(Self, AAttribute, dataTypeName, ifEnumeration, True);
ASchema.AddItem(Result); ASchema.AddItem(Result);
end; end;
end else if simpleTypeDef.IsBuiltInType and AAttribute.IsGlobal then end else if simpleTypeDef.IsBuiltInType and AAttribute.IsGlobal then
@ -945,7 +978,7 @@ begin
if AAttribute.DataType.Enumerations.Count > 0 then if AAttribute.DataType.Enumerations.Count > 0 then
begin begin
{ Enumeration } { Enumeration }
enumerationObject := TXMLDataBindingEnumeration.Create(Self, AAttribute, AAttribute.DataType.Enumerations, AAttribute.Name, True); enumerationObject := TXMLDataBindingEnumeration.Create(Self, AAttribute, AAttribute.DataType.Enumerations, AAttribute.Name);
ASchema.AddItem(enumerationObject); ASchema.AddItem(enumerationObject);
Result := enumerationObject; Result := enumerationObject;
end else if AAttribute.DataType.IsComplex then end else if AAttribute.DataType.IsComplex then
@ -1113,7 +1146,7 @@ begin
end; end;
function TXMLDataBindingGenerator.IterateSchemaItems(ASchema: TXMLDataBindingSchema; AIterateProc: TXMLDataBindingIterateItemsProc; AData: Pointer): TXMLDataBindingItem; function TXMLDataBindingGenerator.IterateSchemaItems(ASchema: TXMLDataBindingSchema; AIterateProc: TXMLDataBindingIterateItemsProc): TXMLDataBindingItem;
var var
abort: Boolean; abort: Boolean;
itemIndex: Integer; itemIndex: Integer;
@ -1128,7 +1161,7 @@ begin
begin begin
schemaItem := ASchema.Items[itemIndex]; schemaItem := ASchema.Items[itemIndex];
AIterateProc(schemaItem, AData, abort); AIterateProc(schemaItem, abort);
if abort then if abort then
begin begin
Result := schemaItem; Result := schemaItem;
@ -1140,7 +1173,7 @@ begin
begin begin
for includeIndex := 0 to Pred(ASchema.IncludeCount) do for includeIndex := 0 to Pred(ASchema.IncludeCount) do
begin begin
Result := IterateSchemaItems(ASchema.Includes[includeIndex], AIterateProc, AData); Result := IterateSchemaItems(ASchema.Includes[includeIndex], AIterateProc);
if Assigned(Result) then if Assigned(Result) then
break; break;
end; end;
@ -1148,75 +1181,36 @@ begin
end; end;
type
PFindInterfaceInfo = ^TFindInterfaceInfo;
TFindInterfaceInfo = record
InterfaceType: TXMLDataBindingInterfaceType;
Name: String;
end;
PFindEnumerationInfo = ^TFindEnumerationInfo;
TFindEnumerationInfo = record
Attribute: Boolean;
Name: String;
end;
procedure TXMLDataBindingGenerator.FindInterfaceProc(AItem: TXMLDataBindingItem; AData: Pointer; var AAbort: Boolean);
var
findInfo: PFindInterfaceInfo;
begin
AAbort := False;
findInfo := PFindInterfaceInfo(AData);
if AItem.Name = findInfo^.Name then
begin
case AItem.ItemType of
itInterface:
AAbort := (TXMLDataBindingInterface(AItem).InterfaceType = findInfo^.InterfaceType);
itComplexTypeAlias,
itSimpleTypeAlias:
AAbort := (findInfo^.InterfaceType = ifElement);
end;
end;
end;
function TXMLDataBindingGenerator.FindInterface(ASchema: TXMLDataBindingSchema; const AName: String; AType: TXMLDataBindingInterfaceType): TXMLDataBindingInterface; function TXMLDataBindingGenerator.FindInterface(ASchema: TXMLDataBindingSchema; const AName: String; AType: TXMLDataBindingInterfaceType): TXMLDataBindingInterface;
var
findInfo: TFindInterfaceInfo;
begin begin
findInfo.InterfaceType := AType; Result := TXMLDataBindingInterface(IterateSchemaItems(ASchema,
findInfo.Name := AName; procedure(AItem: TXMLDataBindingItem; var AAbort: Boolean)
Result := TXMLDataBindingInterface(IterateSchemaItems(ASchema, FindInterfaceProc, @findInfo)); begin
AAbort := False;
if AItem.Name = AName then
begin
case AItem.ItemType of
itInterface:
AAbort := (TXMLDataBindingInterface(AItem).InterfaceType = AType);
itComplexTypeAlias,
itSimpleTypeAlias:
AAbort := (AType = ifElement);
end;
end;
end));
end; end;
procedure TXMLDataBindingGenerator.FindEnumerationProc(AItem: TXMLDataBindingItem; AData: Pointer; var AAbort: Boolean); function TXMLDataBindingGenerator.FindEnumeration(ASchema: TXMLDataBindingSchema; const AName: String): TXMLDataBindingEnumeration;
var
findInfo: PFindEnumerationInfo;
begin begin
findInfo := PFindEnumerationInfo(AData); Result := TXMLDataBindingEnumeration(IterateSchemaItems(ASchema,
AAbort := (AItem.ItemType = itEnumeration) and procedure(AItem: TXMLDataBindingItem; var AAbort: Boolean)
(AItem.Name = findInfo^.Name) and begin
(TXMLDataBindingEnumeration(AItem).IsAttribute = findInfo^.Attribute); AAbort := (AItem.ItemType = itEnumeration) and
end; (AItem.Name = AName);
end));
function TXMLDataBindingGenerator.FindEnumeration(ASchema: TXMLDataBindingSchema; const AName: String; AAttribute: Boolean): TXMLDataBindingEnumeration;
var
findInfo: TFindEnumerationInfo;
begin
findInfo.Attribute := AAttribute;
findInfo.Name := AName;
Result := TXMLDataBindingEnumeration(IterateSchemaItems(ASchema, FindEnumerationProc, @findInfo));
end; end;
@ -1317,19 +1311,34 @@ begin
if not Assigned(AItem) then if not Assigned(AItem) then
Exit; Exit;
if AItem.InterfaceType = ifEnumeration then case AItem.InterfaceType of
referenceItem := FindEnumeration(ASchema, AItem.Name, AItem.IsAttribute) ifEnumeration:
referenceItem := FindEnumeration(ASchema, AItem.Name);
ifAttribute:
begin
referenceItem := FindInterface(ASchema, AItem.Name, ifAttribute);
if not Assigned(referenceItem) then
referenceItem := FindEnumeration(ASchema, AItem.Name);
if not Assigned(referenceItem) then
referenceItem := FindInterface(ASchema, AItem.Name, ifElement);
end;
else else
begin
referenceItem := FindInterface(ASchema, AItem.Name, AItem.InterfaceType); referenceItem := FindInterface(ASchema, AItem.Name, AItem.InterfaceType);
if (not Assigned(referenceItem)) and if (not Assigned(referenceItem)) and
(AItem.InterfaceType = ifElement) then (AItem.InterfaceType = ifElement) then
referenceItem := FindEnumeration(ASchema, AItem.Name, AItem.IsAttribute); referenceItem := FindEnumeration(ASchema, AItem.Name);
end; end;
if Assigned(referenceItem) then if Assigned(referenceItem) then
ReplaceItem(AItem, referenceItem); ReplaceItem(AItem, referenceItem)
else
raise EXMLDataBindingUnresolvedItem.CreateFmt('Unresolved %s: %s',
[GetEnumName(TypeInfo(TXMLDataBindingInterfaceType), Ord(AItem.InterfaceType)),
AItem.Name]);
end; end;
@ -1437,7 +1446,7 @@ begin
while ResolveItemNameConflict(item, depth, newName) do while ResolveItemNameConflict(item, depth, newName) do
begin begin
if not itemNames.ContainsKey(newName) then if not itemNames.ContainsKey(LowerCase(newName)) then
begin begin
resolved := True; resolved := True;
break; break;
@ -1924,7 +1933,7 @@ end;
{ TXMLDataBindingEnumeration } { TXMLDataBindingEnumeration }
constructor TXMLDataBindingEnumeration.Create(AOwner: TXMLDataBindingGenerator; ASchemaItem: IXMLSchemaItem; AEnumerations: IXMLEnumerationCollection; const AName: String; AIsAttribute: Boolean); constructor TXMLDataBindingEnumeration.Create(AOwner: TXMLDataBindingGenerator; ASchemaItem: IXMLSchemaItem; AEnumerations: IXMLEnumerationCollection; const AName: String);
var var
memberIndex: Integer; memberIndex: Integer;
@ -1932,7 +1941,6 @@ begin
inherited Create(AOwner, ASchemaItem, AName); inherited Create(AOwner, ASchemaItem, AName);
FMembers := TObjectList<TXMLDataBindingEnumerationMember>.Create; FMembers := TObjectList<TXMLDataBindingEnumerationMember>.Create;
FIsAttribute := AIsAttribute;
for memberIndex := 0 to Pred(AEnumerations.Count) do for memberIndex := 0 to Pred(AEnumerations.Count) do
FMembers.Add(TXMLDataBindingEnumerationMember.Create(Owner, Self, AEnumerations.Items[memberIndex].Value)); FMembers.Add(TXMLDataBindingEnumerationMember.Create(Owner, Self, AEnumerations.Items[memberIndex].Value));
@ -2048,7 +2056,6 @@ begin
inherited Create(AOwner, ASchemaItem, AName); inherited Create(AOwner, ASchemaItem, AName);
FInterfaceType := AInterfaceType; FInterfaceType := AInterfaceType;
FIsAttribute := AIsAttribute;
end; end;