XML Copiar parte de un XML en otro

[delphijm]

Hola a todos,


Tengo un XML con varios nodos que, a su vez contienen otros nodos "hijos".


Estando situado en uno de los nodos que contienen "hijos" quiero copiar ese arbol hacia un nuevo documento XML.


Ejemplo:

<documento>
  <albaranes>
     <albaran>
         .....

     </albaran>
     <albaran>
         .....

     </albaran>
  </albaranes>
  <clientes>
      <cliente>
           .......

      </cliente>
      <cliente>
           .......

      </cliente>
      <cliente>
           .......

      </cliente>


  </clientes>

</documento>

Estando situado en el tag <clientes> quisiera copiarlo (Incluido sus "hijos") hacia otro documento XML.


Uso el objecto TXMLDocument.


Alguien conoce un metodo para hacer esta copia sin tener que escribir el codigo de copiar elemento a elemento?


Grácias

[Neftali [Germán.Estévez]]

Si has "parseado" el contenido original hasta llegar a obtener el TAG clientes:

Código Delphi [-]
var
  Doc, Newdoc: IXMLDocument;
  clientes:IXMLNode;
begin
  ...
  clientes := ....ChildNodes['clientes'];

Puedes generar el nuevo contenido utilizando lo siguiente:

Código Delphi [-]

  // Create
  NewDoc := NewXMLDocument;
  NewDoc.DocumentElement := clientes;
  Memo3.Lines.Text := NewDoc.XML.Text;