Ler arquivo XML no delphi

[marcosesser 0]

Bom dia, estou com um problema e gostaria de saber se podem me ajudar,

sou iniciante em Delphi e estou tentando desenvolver uma aplicação que leia determinadas tags de um arquivo xml, a tag é a <chNFe> e o arquivo que eu quero ler é o seguinte:

 

<retConsNFeDest xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01">
	<tpAmb>1</tpAmb>
	<verAplic>1.1.1</verAplic>
	<cStat>138</cStat>
	<xMotivo>Documento localizado para o destinatario</xMotivo>
	<dhResp>2017-03-20T17:40:12</dhResp>
	<indCont>1</indCont>
	<ultNSU>20691137709</ultNSU>
		<ret>
			<resNFe NSU="20690776764">
				<chNFe>41170376125244000162550070010199011009987875</chNFe>
				<CNPJ>76125244000162</CNPJ>
				<xNome>MOINHO ARAPONGAS S/A</xNome>
				<IE>6280220629</IE>
				<dEmi>2017-03-06</dEmi>
				<tpNF>1</tpNF>
				<vNF>89.60</vNF>
				<digVal>2RshQue3OqwQa3w66e7L7VMip/o=</digVal>
				<dhRecbto>2017-03-06T14:46:15</dhRecbto>
				<cSitNFe>1</cSitNFe>
				<cSitConf>4</cSitConf>
			</resNFe>
		</ret>
		<ret>
			<resNFe NSU="20690776808">
				<chNFe>41170376125244000162550070010199021007131377</chNFe>
				<CNPJ>76125244000162</CNPJ>
				<xNome>MOINHO ARAPONGAS S/A</xNome>
				<IE>6280220629</IE>
				<dEmi>2017-03-06</dEmi>
				<tpNF>1</tpNF>
				<vNF>110.85</vNF>
				<digVal>bYOSFXKE79okxtepvod/qG4saZE=</digVal>
				<dhRecbto>2017-03-06T14:46:15</dhRecbto>
				<cSitNFe>1</cSitNFe>
				<cSitConf>4</cSitConf>
			</resNFe>
		</ret>
		<ret>
			<resNFe NSU="20690776826">
				<chNFe>41170376125244000162550070010199031006464116</chNFe>
				<CNPJ>76125244000162</CNPJ>
				<xNome>MOINHO ARAPONGAS S/A</xNome>
				<IE>6280220629</IE>
				<dEmi>2017-03-06</dEmi>
				<tpNF>1</tpNF>
				<vNF>1366.38</vNF>
				<digVal>A6gHWT8RCSMVJXcWV9G0w0eTzZw=</digVal>
				<dhRecbto>2017-03-06T14:46:15</dhRecbto>
				<cSitNFe>1</cSitNFe>
				<cSitConf>4</cSitConf>
			</resNFe>
		</ret>
</retConsNFeDest>

já li algumas coisas sobre o TXMLDocument no delphi, mas não sei bem como utilizar, eu utilizei um modelo que encontrei mas ele pega apenas a primeira ocorrência da tag.

 

Desde já obrigado.

 

 

[eduardofaneli 0]

Olá marcosesser boa tarde,

 

Bom existem várias formas de obter o valor das tag's de um XML, mas ai vai uma:

 

Bom não sei se é exatamente oque você precisa, mas fiz o seguinte código onde você informa o XML em um memo e a tag que deseja buscar em um edit ou variável e a clica no botão que irá extrair em outro memo os valores da tag procurada.

 

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    edtTag: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Memo1.Lines.Count -1 do
    if pos(Trim(edtTag.Text), memo1.Lines[I]) > 0 then
      memo2.Lines.Add(StringReplace(copy(memo1.Lines[I], pos(Trim(edtTag.Text), memo1.Lines[I]), pos('</', memo1.Lines[I]) -1), Trim(edtTag.Text), EmptyStr, [rfReplaceAll]))

end;

end.

 

Espero ter ajudado, abraços.