Como ler XML em 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.

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 aoFrmPrincipale 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