Fazer loop no clientdataset xml

Question

Pessoal estou com uma d�vida tremenda.Como fa�o para carregar ao mesmo tempo v�rios xml no clientdataset e se isso tbm � poss�vel.O que quero fazer: Meu cliente tem 50 arquivos xml correspondente a ...

Marco Salles · Answer

Um Xml por vez ... Para utilizar o mesmo clientdataSet , utilize loadfromfile com ele fechado e deposde um open...

Gustavo Bretas · Answer

E ae DavidRealmente, s� um XML por vez, maaassss... rs!Pq vc � cria outro ClientDataSet para comportar os dados que vc precisa?Da� vc faz um looping na pasta, carregando os xml, e transferindo os dados para o segundo DataSet!Abra�o!...

Otavio Pimenta · Answer

adicione um componente txmldocument no form.

VAR
VXMLDOC_P1{,VXMLDOC_P2}: txmldocument;
NodeIdentificacao,nodemensagem:ixmlNode;
BEGIN

VXMLDOC_P1.LOADFromfile(FilenameEdit1.FileName);
OU
VXMLDOC_P1.LoadFromFile(C:\PASTA1\pASTA2\teste.xml);

VXMLDOC_P1.Active:=true;
....
....
nodemensagem:= VXMLDOC_P1.DocumentElement.ChildNodes[n�1].ChildNodes[n�2].ChildNodes[n�3].ChildNodes.FindNode(no4);
if (nodemensagem = nil )then
begin
//FAZ SUAS VALIDA�OES
END
...
...
if not(nodemensagem = nil) then
begin
//FAZ SUAS VALIDA�OES
END;
REPEAT
if not(NodeIdentificacao = nil) then
begin
CAMPO1:= NodeIdentificacao.ChildNodes[CAMPO].Text;
CAMPO2:= NodeIdentificacao.ChildNodes[CAMPO].Text;
END;
....E POR AI VAI
until nodemensagem = nil;

� ISSO, ESPERO QUE AJUDE

Otavio Pimenta · Answer

adicione um componente txmldocument no form.

VAR
VXMLDOC_P1{,VXMLDOC_P2}: txmldocument;
NodeIdentificacao,nodemensagem:ixmlNode;
BEGIN

VXMLDOC_P1.LOADFromfile(FilenameEdit1.FileName);
OU
VXMLDOC_P1.LoadFromFile(C:\PASTA1\pASTA2\teste.xml);

VXMLDOC_P1.Active:=true;
....
....
nodemensagem:= VXMLDOC_P1.DocumentElement.ChildNodes[n�1].ChildNodes[n�2].ChildNodes[n�3].ChildNodes.FindNode(no4);
if (nodemensagem = nil )then
begin
//FAZ SUAS VALIDA�OES
END
...
...
if not(nodemensagem = nil) then
begin
//FAZ SUAS VALIDA�OES
END;
REPEAT
if not(NodeIdentificacao = nil) then
begin
CAMPO1:= NodeIdentificacao.ChildNodes[CAMPO].Text;
CAMPO2:= NodeIdentificacao.ChildNodes[CAMPO].Text;
END;
....E POR AI VAI
until nodemensagem = nil;

� ISSO, ESPERO QUE AJUDE

David Sobral · Answer

Obrigado pela pela dica, em breve retorno para informar o resultado....

David Sobral · Answer

Consegui fazer o que estava o loop...

F�rum Fazer loop no clientdataset xml #407743