ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Ler node filho de XML

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> NFe
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
luctarrago
Novato
Novato


Registrado: Segunda-Feira, 27 de Mai de 2013
Mensagens: 1

MensagemEnviada: Seg Mai 27, 2013 9:25 am    Assunto: Ler node filho de XML Responder com Citação

Tenho o seguinte arquivo XML
<conferencia>
<beneficiario>
<identificacao>
<nome>CLARA SILVA</nome>
<sexo>3</sexo>
</identificacao>
<endereco>
<logradouro>RUA HENRIQUE VI</logradouro>
<codigoMunicipio>430700</codigoMunicipio>
<cep>99700000</cep>
</endereco>
</beneficiario>
<beneficiario>
<identificacao>
<nome>CARMEN BOMBA</nome>
<sexo>3</sexo>
</identificacao>
<endereco>
<logradouro>AV. PRESIDENTE KENEDDI</logradouro>
<codigoMunicipio>431410</codigoMunicipio>
<cep>99070000</cep>
</endereco>
</conferencia>

Preciso ler os dados de vários beneficiários e estou lendo a dataAtualizacao e situacao de todos porém não consigo ler o nome sexo logradouro que estão em um sub nó do beneficiario. Estou fazendo isto:

SIBNode:=XMLDoc1.DocumentElement.ChildNodes.FindNode('conferencia');
for i:=0 to SIBNode.ChildNodes.Count-1 do
begin
SIBAux:=SIBNode.ChildNodes[i];
SIBList:=SIBAux.AttributeNodes;
aux:=SIBList.FindNode('dataAtualizacao').Text;
MessageDlg(aux+#13+copy(aux,1,4)+#13+copy(aux,6,2)+#13+copy(aux,9,2), mtInformation, [mbOK],0);
a:=StrtoInt(copy(aux,1,4)); m:=StrtoInt(copy(aux,6,2)); d:=StrtoInt(copy(aux,9,2));
aux:=SIBList.FindNode('situacao').Text;
MessageDlg(aux, mtInformation, [mbOK],0);

Daí em diante só dá erro de violação de memória, como faço?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Seg Mai 27, 2013 12:00 pm    Assunto: Responder com Citação

Bom dia,

Confira um exemplo de código no tópico abaixo:
http://www.activedelphi.com.br/forum/viewtopic.php?p=396517&sid=0b2b21603e7b9db87760477303301779

Espero que ajude.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> NFe Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB