Sería de gran utilidad, muchas gracias.. aquí está una parte del mío (la de los nodos principales, todo no me deja por excesivamente largo) tal como salen del Data Binding por si queda más claro lo que quería decir
Código Delphi
[-]const
TargetNamespace = 'http:....Facturae';
implementation
function GetFacturae(Doc: IXMLDocument): IXMLFacturae;
begin
Result := Doc.GetDocBinding('Facturae', TXMLFacturae, TargetNamespace) as IXMLFacturae;
end;
function LoadFacturae(const FileName: string): IXMLFacturae;
begin
Result:= LoadXMLDocument(FileName).GetDocBinding('Facturae', TXMLFacturae, TargetNamespace) as IXMLFacturae;
end;
function NewFacturae: IXMLFacturae;
begin
Result := NewXMLDocument.GetDocBinding('Facturae', TXMLFacturae, TargetNamespace) as IXMLFacturae;
end;
procedure TXMLFacturae.AfterConstruction;
begin
RegisterChildNode('FileHeader', TXMLFileHeaderType);
RegisterChildNode('Parties', TXMLPartiesType);
RegisterChildNode('Invoices', TXMLInvoicesType);
RegisterChildNode('Extensions', TXMLExtensionsType);
RegisterChildNode('Signature', TXMLSignatureType_ds);
inherited;
end;