{*********************************************************} { } { XML Data Binding } { } { Generated on: 2022-03-25 08:36:25 } { Generated from: C:\Users\Norbi\Desktop\soap.xml } { Settings stored in: C:\Users\Norbi\Desktop\soap.xdb } { } {*********************************************************} unit soap; interface uses Xml.xmldom, Xml.XMLDoc, Xml.XMLIntf; type { Forward Decls } IXMLEnvelopeType = interface; IXMLBodyType = interface; IXMLFaultType = interface; IXMLDetailType = interface; IXMLTransportOrderFaultListType = interface; IXMLTransportOrderFaultRowType = interface; { IXMLEnvelopeType } IXMLEnvelopeType = interface(IXMLNode) ['{1FB728E8-C582-4193-B6F9-AF6A79ADFA61}'] { Property Accessors } function Get_Body: IXMLBodyType; { Methods & Properties } property Body: IXMLBodyType read Get_Body; end; { IXMLBodyType } IXMLBodyType = interface(IXMLNode) ['{8D120C55-F50E-438F-A5B9-0A2001D509AF}'] { Property Accessors } function Get_Fault: IXMLFaultType; { Methods & Properties } property Fault: IXMLFaultType read Get_Fault; end; { IXMLFaultType } IXMLFaultType = interface(IXMLNode) ['{8197DC66-DD7C-405F-9B9C-385404642E36}'] { Property Accessors } function Get_Faultcode: UnicodeString; function Get_Faultstring: UnicodeString; function Get_Detail: IXMLDetailType; procedure Set_Faultcode(Value: UnicodeString); procedure Set_Faultstring(Value: UnicodeString); { Methods & Properties } property Faultcode: UnicodeString read Get_Faultcode write Set_Faultcode; property Faultstring: UnicodeString read Get_Faultstring write Set_Faultstring; property Detail: IXMLDetailType read Get_Detail; end; { IXMLDetailType } IXMLDetailType = interface(IXMLNode) ['{44569C79-AF4A-4860-8295-86E29140818A}'] { Property Accessors } function Get_TransportOrderFaultList: IXMLTransportOrderFaultListType; { Methods & Properties } property TransportOrderFaultList: IXMLTransportOrderFaultListType read Get_TransportOrderFaultList; end; { IXMLTransportOrderFaultListType } IXMLTransportOrderFaultListType = interface(IXMLNodeCollection) ['{9FE5D6E6-9980-4815-A9B1-0EE1063E6ADD}'] { Property Accessors } function Get_TransportOrderFaultRow(Index: Integer): IXMLTransportOrderFaultRowType; { Methods & Properties } function Add: IXMLTransportOrderFaultRowType; function Insert(const Index: Integer): IXMLTransportOrderFaultRowType; property TransportOrderFaultRow[Index: Integer]: IXMLTransportOrderFaultRowType read Get_TransportOrderFaultRow; default; end; { IXMLTransportOrderFaultRowType } IXMLTransportOrderFaultRowType = interface(IXMLNode) ['{D35FAB27-3417-485D-BE86-8B4A41EF74A5}'] { Property Accessors } function Get_ErrorCode: Integer; function Get_ErrorMessage: UnicodeString; procedure Set_ErrorCode(Value: Integer); procedure Set_ErrorMessage(Value: UnicodeString); { Methods & Properties } property ErrorCode: Integer read Get_ErrorCode write Set_ErrorCode; property ErrorMessage: UnicodeString read Get_ErrorMessage write Set_ErrorMessage; end; { Forward Decls } TXMLEnvelopeType = class; TXMLBodyType = class; TXMLFaultType = class; TXMLDetailType = class; TXMLTransportOrderFaultListType = class; TXMLTransportOrderFaultRowType = class; { TXMLEnvelopeType } TXMLEnvelopeType = class(TXMLNode, IXMLEnvelopeType) protected { IXMLEnvelopeType } function Get_Body: IXMLBodyType; public procedure AfterConstruction; override; end; { TXMLBodyType } TXMLBodyType = class(TXMLNode, IXMLBodyType) protected { IXMLBodyType } function Get_Fault: IXMLFaultType; public procedure AfterConstruction; override; end; { TXMLFaultType } TXMLFaultType = class(TXMLNode, IXMLFaultType) protected { IXMLFaultType } function Get_Faultcode: UnicodeString; function Get_Faultstring: UnicodeString; function Get_Detail: IXMLDetailType; procedure Set_Faultcode(Value: UnicodeString); procedure Set_Faultstring(Value: UnicodeString); public procedure AfterConstruction; override; end; { TXMLDetailType } TXMLDetailType = class(TXMLNode, IXMLDetailType) protected { IXMLDetailType } function Get_TransportOrderFaultList: IXMLTransportOrderFaultListType; public procedure AfterConstruction; override; end; { TXMLTransportOrderFaultListType } TXMLTransportOrderFaultListType = class(TXMLNodeCollection, IXMLTransportOrderFaultListType) protected { IXMLTransportOrderFaultListType } function Get_TransportOrderFaultRow(Index: Integer): IXMLTransportOrderFaultRowType; function Add: IXMLTransportOrderFaultRowType; function Insert(const Index: Integer): IXMLTransportOrderFaultRowType; public procedure AfterConstruction; override; end; { TXMLTransportOrderFaultRowType } TXMLTransportOrderFaultRowType = class(TXMLNode, IXMLTransportOrderFaultRowType) protected { IXMLTransportOrderFaultRowType } function Get_ErrorCode: Integer; function Get_ErrorMessage: UnicodeString; procedure Set_ErrorCode(Value: Integer); procedure Set_ErrorMessage(Value: UnicodeString); end; { Global Functions } function GetEnvelope(Doc: IXMLDocument): IXMLEnvelopeType; function LoadEnvelope(const FileName: string): IXMLEnvelopeType; function NewEnvelope: IXMLEnvelopeType; const TargetNamespace = 'http://schemas.xmlsoap.org/soap/envelope/'; implementation uses Xml.xmlutil; { Global Functions } function GetEnvelope(Doc: IXMLDocument): IXMLEnvelopeType; begin Result := Doc.GetDocBinding('Envelope', TXMLEnvelopeType, TargetNamespace) as IXMLEnvelopeType; end; function LoadEnvelope(const FileName: string): IXMLEnvelopeType; begin Result := LoadXMLDocument(FileName).GetDocBinding('Envelope', TXMLEnvelopeType, TargetNamespace) as IXMLEnvelopeType; end; function NewEnvelope: IXMLEnvelopeType; begin Result := NewXMLDocument.GetDocBinding('Envelope', TXMLEnvelopeType, TargetNamespace) as IXMLEnvelopeType; end; { TXMLEnvelopeType } procedure TXMLEnvelopeType.AfterConstruction; begin RegisterChildNode('Body', TXMLBodyType); inherited; end; function TXMLEnvelopeType.Get_Body: IXMLBodyType; begin Result := ChildNodes['Body'] as IXMLBodyType; end; { TXMLBodyType } procedure TXMLBodyType.AfterConstruction; begin RegisterChildNode('Fault', TXMLFaultType); inherited; end; function TXMLBodyType.Get_Fault: IXMLFaultType; begin Result := ChildNodes['Fault'] as IXMLFaultType; end; { TXMLFaultType } procedure TXMLFaultType.AfterConstruction; begin RegisterChildNode('detail', TXMLDetailType); inherited; end; function TXMLFaultType.Get_Faultcode: UnicodeString; begin Result := ChildNodes['faultcode'].Text; end; procedure TXMLFaultType.Set_Faultcode(Value: UnicodeString); begin ChildNodes['faultcode'].NodeValue := Value; end; function TXMLFaultType.Get_Faultstring: UnicodeString; begin Result := ChildNodes['faultstring'].Text; end; procedure TXMLFaultType.Set_Faultstring(Value: UnicodeString); begin ChildNodes['faultstring'].NodeValue := Value; end; function TXMLFaultType.Get_Detail: IXMLDetailType; begin Result := ChildNodes['detail'] as IXMLDetailType; end; { TXMLDetailType } procedure TXMLDetailType.AfterConstruction; begin RegisterChildNode('transportOrderFaultList', TXMLTransportOrderFaultListType); inherited; end; function TXMLDetailType.Get_TransportOrderFaultList: IXMLTransportOrderFaultListType; begin Result := ChildNodes['transportOrderFaultList'] as IXMLTransportOrderFaultListType; end; { TXMLTransportOrderFaultListType } procedure TXMLTransportOrderFaultListType.AfterConstruction; begin RegisterChildNode('transportOrderFaultRow', TXMLTransportOrderFaultRowType); ItemTag := 'transportOrderFaultRow'; ItemInterface := IXMLTransportOrderFaultRowType; inherited; end; function TXMLTransportOrderFaultListType.Get_TransportOrderFaultRow(Index: Integer): IXMLTransportOrderFaultRowType; begin Result := List[Index] as IXMLTransportOrderFaultRowType; end; function TXMLTransportOrderFaultListType.Add: IXMLTransportOrderFaultRowType; begin Result := AddItem(-1) as IXMLTransportOrderFaultRowType; end; function TXMLTransportOrderFaultListType.Insert(const Index: Integer): IXMLTransportOrderFaultRowType; begin Result := AddItem(Index) as IXMLTransportOrderFaultRowType; end; { TXMLTransportOrderFaultRowType } function TXMLTransportOrderFaultRowType.Get_ErrorCode: Integer; begin Result := ChildNodes['errorCode'].NodeValue; end; procedure TXMLTransportOrderFaultRowType.Set_ErrorCode(Value: Integer); begin ChildNodes['errorCode'].NodeValue := Value; end; function TXMLTransportOrderFaultRowType.Get_ErrorMessage: UnicodeString; begin Result := ChildNodes['errorMessage'].Text; end; procedure TXMLTransportOrderFaultRowType.Set_ErrorMessage(Value: UnicodeString); begin ChildNodes['errorMessage'].NodeValue := Value; end; end.