Problema al generar fichero XML usando TXMLDocument

[Osorio]

A mi me paso algo parecido y finalmente me quedó de esta manera:

Código Delphi [-]
procedure TFCamion.Button1Click(Sender: TObject);
const
  DestPath = 'ExampleDelphitoxml.xml';
var
  Document: IXMLDocument;
  NodeElement, NodoBody, NodoDatos: IXMLNode;
begin
  Document := TXMLDocument.Create(nil);
  Document.Options := [doNodeAutoIndent];
  Document.Active := True;
  Document.Version := '1.0';
  Document.Encoding:= 'UTF-8';

  Document.DocumentElement := Document.CreateNode('soapenv:Envelope', ntElement, '');
  Document.DocumentElement.Attributes['xmlns:soapenv'] := 'http://schemas.xmlsoap.org/soap/envelope/';
  Document.DocumentElement.Attributes['xmlns:rem'] := 'http://remote.ipaserver.puerta.gpc.com/';


  NodeElement := Document.DocumentElement.AddChild('soapenv:Header');

  NodoBody := Document.DocumentElement.AddChild('soapenv:Body');
  NodeElement := NodoBody.AddChild('rem:getTakeWeightTask');

          nododatos:= NodeElement.AddChild ('placa','',false,-1 );
          nododatos.Text:= 'R29' ;


          nododatos:= NodeElement.AddChild('Terminal','',false, -1);//Notese aqui que el addchild lleva otros parametros (false por ejemplo para que omita el prefijo

          nododatos.Text:= 'SPC';
  Document.SaveToFile(DestPath);
  memo1.Lines.Clear;
  memo1.Lines.LoadFromFile(DestPath);
  DeleteFile(DestPath);
end;

Disculpen que mi pc extrañamente no me permitió colocar en codigo delphi. Si alguien colabora gracias desde ya.

Saludos.

[orodriguezca]

Para evitar está situación cada nodo hijo que se agregue al XML debe tener exactamente el mismo namspace de el documento o al menos así me funciona a mi. Por ejemplo:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  Document: IXMLDocument;
  iNode: IXMLNode;
  Myxmlns: string;
begin
  Document := TXMLDocument.Create(nil);
  Document.Options := [doNodeAutoIndent] ;
  Document.Active := True;
  Document.Version := '1.0';
  Document.Encoding:= 'UTF-8';
  Myxmlns := 'urn:iso:std:iso:20022:tech:xsdain.008.001.02';

  Document.DocumentElement := Document.CreateNode('Document');
  Document.DocumentElement.Attributes['xmlns'] := Myxmlns;
  Document.DocumentElement.Attributes['xmlns:xsi'] := 'http://www.w3.org/2001/XMLSchema-instance';
  iNode := Document.DocumentElement.AddChild('CstmrDrctDbtInitn',  Myxmlns);
end;

[[newtron]]

Gracias a los dos. Haré pruebas y ya comento.

Saludos