Lendo uma NFE - Nota Fiscal Eletrônica (XML) no Delphi 2006.

Este é um artigo que gostei muito de fazer. O Delphi 2006 tem algumas facilidades para mexer com arquivos XML que tornam o trabalho muito fácil, e porque não dizer, divertido. Coloquei no título NFE, mas serve para qualquer XML que você queira importar.
Agora com a demanda de arquivos XML rodando por aí, seja na área fiscal, contábil, e até na área de saúde, ter uma opção para abrir e mapear arquivos XML é imprescindível.
Eu vou mostrar como mapear e abrir um XML no Delphi como se fosse um DataSet. Ou seja, você poderá navegar no arquivo, ver ele em DBEdit e em DBGrid. Depois disso a importação é brincadeira de criança.
O Delphi 2006, e posteriores (não sei exatamente em que versão saiu) possui uma ferramenta chamada XML Mapper, que fica em Tools / XML Mapper.Veja na imagem:

Clique na opção File / Open e abra um arquivo XML, no meu caso abri uma nota fiscal eletrônica. A estrutura do XML vai aparecer no lado esquerdo, clique com o botão direito em algum elemento do XML e use a opção Select All. No grid do meio vão aparecer os elementos do XML. Depois no menu, vá na opção Create / Datapacket from XML. Isso irá preencher o lado direito com as tags do XML e seus respectivos tipos.

Clique no botão “Create and Test Transformation”. O programa abrirá uma DBGrid, com os dados do arquivo XML, tendo como campos as Tags. Isso dá uma prévia do que teremos como resultado final. Feche a tela de teste e clique com o botão direito na tela do meio, e use a opção “Save Transformation”. Isso vai gerar um arquivo XTR, que funciona como um “mapa” para o Delphi abrir um XML como dados.

Para finalizar, vamos fazer isso funcionar. Crie um novo projeto no Delphi, e adicione ao Form1, um TDataSource, um TClientDataSet, um TXMLTransformProvider e um TDBGrid para vermos os dados. Na propriedade DataSet do DataSource1, coloque o ClientDataSet1. Na propriedade ProviderName do ClientDataSet1, coloque XMLTransformProvider1. Na propriedade DataSource do DBGrid1, coloque DataSource1. Clique no + da propriedade TransformRead, do XMLTransformProvider1, e depois em TransformationFile, escolha o arquivo XTR que você criou anteriormente. E em XMLDataFile escolha um arquivo XML, que no casso desse exemplo é uma nota eletrônica. No ClientDataSet mude Active para True e os dados devem aparecer no grid, conforme a figura.

Concluindo, existe uma facilidade muito grande em se trabalhar com arquivos XML no Delphi. E isso vai se tornando cada vez mais útil visto o aumento de uso desse tipo de comunicação.

Delphi e Lazarus

Venho acompanhando o Lazarus desde que o projeto surgiu, há muitos anos atrás. Sempre fui entusiasta do software livre, e como programador Clipper, que depois migrou pro Delphi, não podia deixar de procurar algo "livre" para fazer meus projetos.
O Lazarus surgiu como uma esperança para isso, porém lá no começo, onde não tinha quase nada de componentes, a IDE completamente instável, era totalmente impossível fazer qualquer programa no Lazarus, a não ser que fosse muito simples. De tempos em tempos me lembro do Lazarus e baixo ele para ver como está e vejo que está em constante evolução.
Ontem baixei o Lazarus e vi que está bem mais estável, a IDE entra rápido e tem uma gama de componentes considerável. A comparação com o Delphi é inevitável. Eu uso o Delphi 2006, mas eu teria que comparar o Lazarus com o Delphi 5 ou 6, pelo número de recursos. Uma coisa que ainda me chateia no Lazarus desde o começo é o fato dos executáveis ficarem gigantes. Um form mais um grid e conexão com firebird fizeram um executável de 21MB. Enquanto isso no Delphi, mesmo sendo 2006, normalmente não chega a 1MB.
Um ponto muito importante me chamou a atenção no Lazarus, que não tinha antes: herança visual. Isso era uma das coisas mais importantes que me impedia de migrar para o Lazarus. Apesar de tudo, me decepcionei quando vi que a herança não chega a ser igual a do Delphi, um form herdado, até fica com o mesmo visual e componentes do seu antecessor, mas se você muda algo na IDE, não altera direto no form filho. Depois que fechei o projeto e abri novamente aí sim foi efetivada a alteração.
Concluindo, achei o Lazarus muito mais maduro do que um dia já foi, mas ainda vou ter que continuar com o meu Delphi, um dia espero que possa pegar todos os meus projetos Delphi e compilá-los no Lazarus sem complicações. Mas esse é o meu caso em específico, pra quem vai começar um projeto do zero, acredito que seja uma ótima idéia avaliar com carinho essa ótima ferramenta de desenvolvimento que é o Lazarus!