Lendo um arquivo XML no Delphi

XML de forma pr�tica no Delphi

Nesse artigo explico como ler um arquivo XML de forma direta, sem OpenDialog com a finalidade de j� ter o nome do XML, evitando que o usu�rio perca tempo em procurar este arquivo em uma pasta lotada de arquivos. usaremos nesse exemplo arquivos INI, com a finalidade de conter o endereço da pasta a qual est�o gravados os XMLs. Um exemplo onde poderia ser usado este exemplo seria para leitura de arquivo XML do Danfe, mas o c�digo l� qualquer arquivo XML.

Vamos ent�o ao trabalho: vamos criar um arquivo INI para colocar o endereço de onde ficar�o os arquivos XMLs.

Relacionado: Guia de Carreira do pre_delphi

Crie uma pasta na raiz do C:\ chamada XMLs e nela crie uma pasta para salvar o sistema.

Agora abra o Bloco de notas e coloque o caminho como abaixo:

[ler_xml]
    path=C:\XMLs\

Salve o arquivo do Bloco de notas como conf.ini , na pasta onde ser� salvo o sistema.

Crie um novo projeto (File/New/VCL Forms Application � Delphi) e coloque no Formul�rio um Label , um Edit e um BitBtn , e configure como a Figura 1.

Figura 1. Novo projeto

Declare IniFiles na sess�o Uses e iniConf : TiniFile; na sess�o private e Caminho :string; em public como abaixo:


  unit UfrmPrincipal;
   interface
    uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls, Buttons, IniFiles;
     type
      TFrmLeitorXMLs = class(TForm)
      Edit1: TEdit;
      Label1: TLabel;
      BtnAbrirXML: TBitBtn;
      private
       { Private declarations }
       iniconf:TIniFile;
      public
       { Public declarations }
      Caminho :string;
  end;

No evento OnCreate, coloque o seguinte c�digo:


  procedure TFrmLeitorXMLs.FormCreate(Sender: TObject);
    begin
       iniconf := TIniFile.Create(ExtractFilePath(Application.ExeName)+'conf.ini');
  end;

Todo o conte�do do arquivo .INI ser� armazenado na vari�vel iniconf que � do tipo TIniFile, colocamos um �nico endereço, mas poderiam ser v�rios, como caminho de banco de dados, nomes, etc.

Salve o projeto na pasta como uFrmPrincipal com nome do projeto ProjetoXML.

Agora vamos criar um novo formul�rio para exibir o arquivo XML. Crie um novo projeto (File/New/ Form � Delphi) e salve como UfrmExibeXml.

Coloque nesse novo Form os seguintes componentes: Um TreeView, um XMLDocument, um Memo, um Label e um BitBtn e configure como mostra a Figura 2.

Figura 2. Novo Form

Declare a seguinte Procedure em Private:


  private
    { Private declarations }
     procedure GenereteTree(XMLNode: IXMLNode; TreeNode: TTreeNode);  // *****
      public
       { Public declarations }
      end;

Agora vamos implementar uma procedure em Private:


  private
   { Private declarations }
    procedure GenereteTree(XMLNode: IXMLNode; TreeNode: TTreeNode);  // *****
    public
     { Public declarations }
    end;

Onde est�o os cinco asteriscos( *****), posicione o cursor e execute a junç�o de teclas Ctrl + Shift + C, com este comando ser� criado a procedure. Implemente o seguinte c�digo na Procedure:


  procedure TFrmExibeXml.GenereteTree(XMLNode: IXMLNode; TreeNode: TTreeNode);
   var
    NodeText : string;
    NewTreeNode: TTreeNode;
    I : Integer;
   begin
    if XMLNode.NodeType <> ntElement then
    Exit;
    NodeText := XMLNode.NodeName;
    if XMLNode.IsTextElement then
     NodeText := NodeText + '=' + XMLNode.NodeValue;
     NewTreeNode := TreeView1.Items.AddChild(TreeNode, NodeText);
     if XMLNode.HasChildNodes then
      for I := 0 to XMLNode.ChildNodes.Count - 1 do
        GenereteTree(XMLNode.ChildNodes[I], NewTreeNode);
      end;

Esta procedure � respons�vel por montar a estrutura em �rvore dentro do TreeView.

Volte ao FrmPrincipale de Uses em UfrmExibeXml e coloque o seguinte c�digo no bot�o Abrir XML:


  procedure TFrmLeitorXMLs.BtnAbrirXMLClick(Sender: TObject);
    begin
      Caminho := iniconf.ReadString('ler_xml','path','')+ Edit1.Text +'.xml';
      try
       Application.CreateForm(TFrmExibeXml, FrmExibeXml);
       FrmExibeXml.ShowModal;
      finally
       FrmExibeXml.Release;
     end;
   end;

Quando o usu�rio clicar sobre o bot�o Abrir XML, a vari�vel Caminho ir� receber o caminho do arquivo conf.ini + o conte�do do Edit + a extens�o .xml.

Volte ao formul�rio ExibeXml,de Uses em FrmPrincipal, pois l� est� a vari�vel com o caminho + o nome do XML. Em seguida v� ao evento OnShow e coloque o seguinte c�digo:


  procedure TFrmExibeXml.FormShow(Sender: TObject);
    begin
      XMLDocument1.LoadFromFile (FrmLeitorXMLs.Caminho); // pegando o conte�do da vari�vel Caminho.
      TreeView1.Items.Clear; //limpa o conte�do que estiver na TreeView
      XMLDocument1.Active:= True; // ativa o XMLDocument
      GenereteTree(XMLDocument1.DocumentElement, nil); //Monta a TreeView
      with Memo1.Lines do
       begin
        Clear; //limpa o memo para receber as informaç�es do arquivo XML
        Add('Vers�o : ' + XMLDocument1.Version);
        Add('Encoding : ' + XMLDocument1.Encoding);
        Add('FileName : ' + XMLDocument1.FileName);
      end;
    end;

E no bot�o fechar o seguinte c�digo:


  procedure TFrmExibeXml.BitBtn1Click(Sender: TObject);
   begin
     Close;
  end;

Compile o projeto , digite o nome de um XML e abra. Deve ficar como mostra a Figura 3.

Figura 3. Compilaç�o do projeto

Nesse exemplo tudo est� em mem�ria, mas poderia estar em um banco de dados. Para isso, o que teria que fazer seria concatenar o arquivo endereço do INI com o ClientDataSet, + - assim:

Caminho := DM_1.iniconf2.ReadString('ler_xml','path','')+ DM_1.CDSNotaDespEND_DANFE.Value +'.xml';

At� a pr�xima

Links �teis

Oracle e Delphi
Veja neste artigo de Fabio e Fernando Prass, como utilizar o Oracle (umdos melhores BD do mundo) com Delphi.
DevCast: Um bate-papo sobre o Delphi:
O Delphi est� em constante evoluç�o e com ele podemos criar aplicaç�es desktop, servidores de aplicaç�es, aplicativos m�veis, entre outros. Neste DevCast temos um bate-papo sobre essa poderosa ferramenta de desenvolvimento.
Todos os Cursos de Delphi
Confira os cursos que a DevMedia preparou para voc� se tornar um programador Delphi completo. Aprenda a desenvolver aplicaç�es desktop, web e mobile utilizando o VCL, FireMonkey, FireDac e mais.

Saiba mais sobre Delphi ;)

Princ�pios SOLID com Delphi:
Conheça nesse artigo os fundamentos de toda boa pr�tica em desenvolvimento orientado a objetos, saiba como melhorar sua codificaç�o ao entender e utilizar os princ�pios SOLID.
Performance no SQL Server: eliminando o operador Sort:
Nesse pocket video veremos como o Delphi trabalha na orientaç�o a objetos com os conceitos de projeto, units e escopo.
TransactionDesc: Delphi:
Veja nesta quick como podemos trabalhar com transaç�es no Delphi usando a classe TTransactionDesc.

Como ler XML em Delphi

Veja neste artigo como ler um XML em Delphi

XML de forma pr�tica no Delphi

Links �teis

Saiba mais sobre Delphi ;)

Artigos relacionados