Ver Mensaje Individual
  #2  
Antiguo 15-02-2016
Avatar de Osorio
Osorio Osorio is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 251
Reputación: 21
Osorio Va por buen camino
Algo parecido

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.

Última edición por Casimiro Notevi fecha: 15-02-2016 a las 19:28:09.
Responder Con Cita