ActiveDelphi

[jedi_pereira]

ola a todos,

primeiramente, eu consegui ler um XML e criar toda uma treeview.

o que quero agora é dada um treeview parcialmente preenchida, ler arquivos XML e coloca-los como nós na treeview. Cada XML será um nó.

exemplo:
na treeview tem os nós X e Y (irmãos entre si). X e Y são tipos de <categoria> no XML.

quero ler o valor de <categoria> no XML e de acordo com o valor (X ou Y) inserir o XML no seu respectivo lugar na treeview.

eu abro o XML assim e essa parte funciona:
//------------------Abre arquivos XML na pasta--------------------
procedure TfrmLocaisDispositivos.AbreXML(dir: string);
var
SearchRec : TSearchRec;
Separator : string;
FileHandle: string;
Begin
if Copy(Dir,Length(Dir),1)='\' then
begin
Separator := '';
end
else
begin
Separator := '\';
end;

//procura o primeiro arquivo da pasta indicada em Dir que seja da extensão
//XML e grava o resultado da busca em SearchRec
if FindFirst(Dir + Separator + '*.xml', faAnyFile, SearchRec) = 0 then
begin
//se o arquivo existe
if FileExists(Dir + Separator + SearchRec.Name) then
begin
FileHandle := SearchRec.Name; //Identificador do arquivo
//criar estrutura para armazenar os dados
xmldcmntDispGeral.FileName := FileHandle;
AdicionaXMLArvore(tvDispositivosDesign,xmldcmntDispGeral);
end
else
begin
ShowMessage('Arquivo XML não encontrado.');
end;

//procura outros arquivos .XML na pasta
while FindNext(SearchRec) = 0 do
begin
if FileExists(Dir + Separator + SearchRec.Name) then
begin
FileHandle := SearchRec.Name; //Identificador do arquivo
//criar estrutura para armazenar os dados
xmldcmntDispGeral.FileName := FileHandle;
AdicionaXMLArvore(tvDispositivosDesign,xmldcmntDispGeral);
end
else
begin
ShowMessage('Arquivo XML não encontrado.');
end;
end;
end;

//fecha o recurso SearchRec, pois não será mais usado.
FindClose(SearchRec);
end;
//--------------FIM do Abre arquivos XML na pasta----------------


o AdicionaXMLArvore é esse (até o momento):
//-------------------Adiciona nó XML na árvore-------------------
procedure TfrmLocaisDispositivos.AdicionaXMLArvore(tree: TTreeView;
XMLDoc: TXMLDocument);
var
iNode : IXMLNode;

procedure ProcessNode(Node: IXMLNode; tn: TTreeNode);
begin
if Node = nil then
begin
Exit;
end;
with Node do
begin
tn := tree.Items.AddChild(tn, Attributes['nome']);
end;
end; (*ProcessNode*)
begin
XMLDoc.Active := True;

iNode := XMLDoc.DocumentElement.AttributeNodes.First; //aqui dá uma exceção

if (iNode.Attributes['categoria'] = 'X') then
begin
ProcessNode(iNode,nil); //inserir no nó X, no lugar de nil
end
else //é Y
begin
ProcessNode(iNode,nil); //inserir no nó Y, no lugar de nil
end;

XMLDoc.Active := False;
end;
//-----------------FIM do Adiciona nó XML na árvore-----------------


e um exemplo do XML em questão:
<dispositivo>
<nome>M10</nome>

<versao>01</versao>

<categoria>Teclados</categoria>

...

<saida>Analogica</saida>
</dispositivo>

grato pela atenção

[johnny-walker]

Bem amigo isto fez parte de um estudo de caso que fiz e você pode adaptar às suas necessidades e espero que lhe ajude para solucionar o seu caso....

[johnny-walker]

Amigo desculpe-me parece que não passei o modo de utilizar-se da procedure acima...

[jedi_pereira]

valeu pela ajuda...

desculpa a demora, mas o site não gosta do meu Firefox, sempre perde a sessão.