nilegor Postado Dezembro 14, 2015 Denunciar Share Postado Dezembro 14, 2015 Código usado:#Código 1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Button1Click(Sender: TObject); var vXMLDoc: TXMLDocument; no_Principal,no_pai,no_cabecalho: IXMLNode; begin vXMLDoc := TXMLDocument.Create(self); vXMLDoc.LoadFromFile('nfe.xml'); no_Principal := vXMLDoc.DocumentElement.ChildNodes.FindNode('Nfe'); no_pai := no_Principal.ChildNodes.FindNode('infNFe'); no_cabecalho := no_pai.ChildNodes['ide']; Edit1.Text := no_cabecalho.ChildNodes['serie'].Text; end; xml que esta lendo:-<Nfe>-<infNFe>-<ide><serie>2</serie></ide></infNFe></Nfe> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Dezembro 14, 2015 Denunciar Share Postado Dezembro 14, 2015 esse erro ocorre quando a estrutura do seu XML esta incorreta. Access violation at address 00000000 abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
nilegor
Código usado:
#Código
procedure TForm1.Button1Click(Sender: TObject);varvXMLDoc: TXMLDocument;no_Principal,no_pai,no_cabecalho: IXMLNode;beginvXMLDoc := TXMLDocument.Create(self);vXMLDoc.LoadFromFile('nfe.xml');no_Principal := vXMLDoc.DocumentElement.ChildNodes.FindNode('Nfe');no_pai := no_Principal.ChildNodes.FindNode('infNFe');no_cabecalho := no_pai.ChildNodes['ide'];Edit1.Text := no_cabecalho.ChildNodes['serie'].Text;end;xml que esta lendo:
-<Nfe>
-<infNFe>
-<ide>
<serie>2</serie>
</ide>
</infNFe>
</Nfe>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.