Ler xml Delphi 7 (SQL sever)

25/09/2004

Precisso ler um arquvo xml exportado do SQL sever e nao estou consequindo. Ja tentei o XML Mapper para fazer as tranformacao para datapecket e nao da certo. Qualquer dica sera muito bem recebida.
Seque o xml
<xml xmlns:s=´uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882´
xmlns:dt=´uuid:C2F41010-65B3-11d1-A29F-00AA00C14882´
xmlns:rs=´urn:schemas-microsoft-com:rowset´
xmlns:z=´#RowsetSchema´>
<s:Schema id=´RowsetSchema´>
<s:ElementType name=´row´ content=´eltOnly´ rs:updatable=´true´>
<s:AttributeType name=´PEDIDO´ rs:number=´1´ rs:writeunknown=´true´ rs:basecatalog=´fabria´ rs:basetable=´PEDIDOAT´
 rs:basecolumn=´PEDIDO´ rs:keycolumn=´true´>
<s:datatype dt:type=´number´ rs:dbtype=´numeric´ dt:maxLength=´19´ rs:scale=´0´ rs:precision=´18´ rs:fixedlength=´true´
 rs:maybenull=´false´/>
</s:AttributeType>
<s:AttributeType name=´DATAUPDATE´ rs:number=´2´ rs:nullable=´true´ rs:writeunknown=´true´ rs:basecatalog=´fabria´
 rs:basetable=´PEDIDOAT´ rs:basecolumn=´DATAUPDATE´>
<s:datatype dt:type=´dateTime´ rs:dbtype=´timestamp´ dt:maxLength=´16´ rs:scale=´3´ rs:precision=´23´ rs:fixedlength=´true´/>
</s:AttributeType>
<s:extends type=´rs:rowbase´/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row PEDIDO=´428´ DATAUPDATE=´2004-09-04T14:08:52.023000000´/>
<z:row PEDIDO=´429´ DATAUPDATE=´2004-09-04T14:08:51.873000000´/>
<z:row PEDIDO=´4115´ DATAUPDATE=´2004-09-04T14:08:51.903000000´/>
<z:row PEDIDO=´4117´ DATAUPDATE=´2004-09-04T14:08:51.833000000´/>
<z:row PEDIDO=´4118´ DATAUPDATE=´2004-09-04T14:08:52.003000000´/>
<z:row PEDIDO=´5752´ DATAUPDATE=´2004-09-04T14:08:51.803000000´/>
</rs:data>
</xml>


Obrigado a todos.
Hedio Negrao


Hnegrao

Respostas

27/09/2004

Hnegrao

sobe


Responder Citar

27/09/2004

Rômulo Barros

Vc poderá optar por trabalhar com o TClientDataSet, q está na paleta DataAccess.

Código:
 ClientDataSet.LoadFromFile(´C:\Teste\Arquivo.xml´);


Daí então... pode trabalhar feito vc trabalha com Tables e Querys. Suporta Insert, Edit, Post, Cancel...

Para salvar, faça:

ClientDataSet.SaveToFile(´C:\Teste\Arquivo.xml´,dfXML);



Responder Citar