XMLDocument ajuda

Delphi

08/11/2013

Bom dia pessoal, estou tentando importar um xml no D7 e não estou conseguindo encontrar o erro, se alguém puder dar uma luz agradeço desde já

XML.Active := false;
diretorio := 'c:\arquivo.xml';
XML.LoadFromFile(diretorio);
XML.Active := true;

for i := 0 to XML.DocumentElement.ChildNodes.Count - 1 do
begin
inc(pedido);

Memo1.Lines.Add(XML.DocumentElement.ChildNodes[I].ChildNodes['fantasia'].Text); <== não apresenta nada no memo
end;

vlw

Ricardo
Ricardo Matarazzo

Ricardo Matarazzo

Curtidas 0

Respostas

Ignacio Castro

Ignacio Castro

08/11/2013

Amigo, acho que aqui ninguem responde nao...
GOSTEI 0
Ronaldo Barros

Ronaldo Barros

08/11/2013

Você teria que, ao menos, mostrar o documento XML.
Se não assim é impossível de dizer algo concreto.
GOSTEI 0
Ignacio Castro

Ignacio Castro

08/11/2013

Desculpa amigo, não quis ofender ninguem, e que ja tentei tambem esta informação e não consigo respostas:
<?xml version="1.0" encoding="ISO-8859-1">
<MOVIMENTACAO>
<LANCAMENTO>
<CODEMP>1</CODEMP>
<DTALAN>01/11/2-13</DTALAN>
<DOCLAN></DOCLAN>
<CODHIS></CODHIS>
<NATLAN></NATLAN>
<VLRLAN></VLRLAN>
<CODLOT></CODLOT>
<CONLAN></CONLAN>
<COMLAN></COMLAN>
<LANCAMENTO>
<MOVIMENTACAO>
GOSTEI 0
Ignacio Castro

Ignacio Castro

08/11/2013

Desculpa amigo, não quis ofender ninguem, e que ja tentei tambem esta informação e não consigo respostas:
<?xml version="1.0" encoding="ISO-8859-1">
<MOVIMENTACAO>
<LANCAMENTO>
<CODEMP>1</CODEMP>
<DTALAN>01/11/2-13</DTALAN>
<DOCLAN></DOCLAN>
<CODHIS></CODHIS>
<NATLAN></NATLAN>
<VLRLAN></VLRLAN>
<CODLOT></CODLOT>
<CONLAN></CONLAN>
<COMLAN></COMLAN>
<LANCAMENTO>
<MOVIMENTACAO>
GOSTEI 0
Ignacio Castro

Ignacio Castro

08/11/2013

Desculpa amigo, não quis ofender ninguem, e que ja tentei tambem esta informação e não consigo respostas:
<?xml version="1.0" encoding="ISO-8859-1">
<MOVIMENTACAO>
<LANCAMENTO>
<CODEMP>1</CODEMP>
<DTALAN>01/11/2-13</DTALAN>
<DOCLAN></DOCLAN>
<CODHIS></CODHIS>
<NATLAN></NATLAN>
<VLRLAN></VLRLAN>
<CODLOT></CODLOT>
<CONLAN></CONLAN>
<COMLAN></COMLAN>
<LANCAMENTO>
<MOVIMENTACAO>
GOSTEI 0
Ignacio Castro

Ignacio Castro

08/11/2013

Desculpa amigo, não quis ofender ninguem, e que ja tentei tambem esta informação e não consigo respostas:
<?xml version="1.0" encoding="ISO-8859-1">
<MOVIMENTACAO>
<LANCAMENTO>
<CODEMP>1</CODEMP>
<DTALAN>01/11/2-13</DTALAN>
<DOCLAN></DOCLAN>
<CODHIS></CODHIS>
<NATLAN></NATLAN>
<VLRLAN></VLRLAN>
<CODLOT></CODLOT>
<CONLAN></CONLAN>
<COMLAN></COMLAN>
<LANCAMENTO>
<MOVIMENTACAO>
GOSTEI 0
Ignacio Castro

Ignacio Castro

08/11/2013

Desculpa amigo, não quis ofender ninguem, e que ja tentei tambem esta informação e não consigo respostas:
<?xml version="1.0" encoding="ISO-8859-1">
<MOVIMENTACAO>
<LANCAMENTO>
<CODEMP>1</CODEMP>
<DTALAN>01/11/2-13</DTALAN>
<DOCLAN></DOCLAN>
<CODHIS></CODHIS>
<NATLAN></NATLAN>
<VLRLAN></VLRLAN>
<CODLOT></CODLOT>
<CONLAN></CONLAN>
<COMLAN></COMLAN>
<LANCAMENTO>
<MOVIMENTACAO>
GOSTEI 0
Ricardo Matarazzo

Ricardo Matarazzo

08/11/2013

opa pessoal bom dia

seguinte eu resolvi meu problema da seguinte forma segue um pedaço da unit
.....
orctos := vXMLDoc.DocumentElement.ChildNodes.FindNode('orcamentos');
if orctos = nil then
exit;

pedido_capa := orctos.ChildNodes.FindNode('orcamento');
if Not (pedido_capa = nil) then
begin
pedido_capa.ChildNodes.First;
repeat
inc(i);
inc(pedido);
// Lendo conteudo agora embutido no node No_dadosgerais; <<<=========================
Memo1.Lines.Add( pedido_capa.ChildNodes['cliente'].ChildNodes['nome'].text);

......
GOSTEI 0
POSTAR