XML Delphi 7

Delphi

16/02/2014

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.
Julio Santiago

Julio Santiago

Curtidas 0

Respostas

Luiz

Luiz

16/02/2014

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;
GOSTEI 0
POSTAR