XML Delphi 7

Question

Boa tarde,

Gostaria de saber como podemos criar xml no delphi 7. A empresa em que trabalho precisa gerar o xml de acordo com o layout do E-social. Minha d�vida � como gerar esse layout de forma r�pida.Obrigado.

Atenciosamente,
J�lio C�sar.

Luiz · Answer

Da uma olhada no componente XMLDocument dentro da paleta Internet!

Fa�o minhas exporta��es em XML com ele, segue uma parte de um c�digo que uso (esta incompleto - apenas para ter uma ideia):

  xml.FileName := '';
  xml.XML.Text := '';
  xml.Active := True;
  xml.Version := '1.0';
  xml.Encoding := 'UTF-8';

  // RAIZ
  Raiz := xml.AddChild('root');

  // POWER BY
  PowerBy := xml.CreateNode('POWER_BY', ntAttribute);
  PowerBy.Text := 'Exporta��o Regional';
  Raiz.AttributeNodes.Add(PowerBy);

  // VERS�O
  Ver     := xml.CreateNode('VERSION', ntAttribute);
  Ver.Text := '1.0';
  Raiz.AttributeNodes.Add(ver);

  // Client
  Nome := xml.CreateNode('Client', ntElement);
  Raiz.ChildNodes.Add(Nome);

  LNodeElement := xml.DocumentElement.AddChild('Email', -1);
  LNodeElement.Text := qEmpresa.FieldByName('EM_BKLOGIN').AsString;
  Nome.ChildNodes.Add(LNodeElement);

  LNodeElement := xml.DocumentElement.AddChild('XmlPassword', -1);
  LNodeElement.Text := qEmpresa.FieldByName('EM_BKSENHA').AsString;
  Nome.ChildNodes.Add(LNodeElement);

  // header
  Header := xmlBuscakasa.CreateNode('Header', ntElement);
  Raiz.ChildNodes.Add(Header);


  LNodeElement := xml.DocumentElement.AddChild('Action', -1);
  if   qImovel.FieldByName('IMO_STATUS').AsString = 'I' then
       LNodeElement.Text := 'Deletar'
  else LNodeElement.Text := 'Atualizar';

  Header.ChildNodes.Add(LNodeElement);

  xmlBuscakasa.SaveToFile(qEmpresa.FieldByName('EM_BKCONTAINER').AsString+txtCOD_IMOVEL.Text+'.xml');
  xmlBuscakasa.Active := False;

F�rum XML Delphi 7 #470200