Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Leer XML (https://www.clubdelphi.com/foros/showthread.php?t=66099)

cmm07 02-02-2010 01:42:07

Leer XML
 
1 Archivos Adjunto(s)
Hola, pues he buscado en los foros y no he logrado mucho, la verdad es que nunca e trabajado con archivos XML, necesito leer este archivo:

- <Sample.xml>
- <sprites>
- <SuperMarioAllStarSheet31>
- <animations>
- <Animation1>
<transparentColour />
- <layer1>
- <frame1>
<sourceRect>rect(117, 5, 131, 35)</sourceRect>
<duration>50</duration>
<offset>point(0, 0)</offset>
</frame1>
- <frame2>
<sourceRect>rect(137, 5, 153, 35)</sourceRect>
<duration>50</duration>
<offset>point(0, 0)</offset>
</frame2>
</layer1>
</Animation1>
</animations>
<bitmapPath>C:\Bajados\Sprites\SuperMarioAllStarSheet3.gif</bitmapPath>
</SuperMarioAllStarSheet31>
</sprites>
</Sample.xml>

Contiene datos que necesito saber, se supone que pueden haber más frames, necesito obtener los datos "SourceRect" de cada frame que se encuentre en el archivo XML, ojala me entienda y me puedan ayudar.

Gracias.!

Ñuño Martínez 02-02-2010 08:43:59

Usando un buscador he encontrado esta clase que seguramente te ayudará.

identsoft 02-02-2010 10:52:46

Tenía el mismo problema que tu. Necesitaba leer fichero XML para imprimir unas facturas a través de Rave Reports.
No se si es la forma correcta, pero yo lo hice así:
1.- Primero creamos el fichero .xtr .En esta página www.pepelolo.com/pageID_6742915.html te dice como hacerlo.
2.- En un form insertas un XMLTRANSFORMPROVIDER y en la propiedad TRANSFORMREAD le pones el fichero .xtr
3.- Insertas un CLIENTDATASET y en la propiedad PROVIDERNAME le pones en XMLTRANSFORMPROVIDER anterior.
A partir de aquí, ya tratas el clientdataset como lo necesites.

Espero que te sirva

cmm07 02-02-2010 14:15:41

Muchas gracias a ambos, me ha servido muuxoo, luego comento si lo logré hacer...

saludos!

cmm07 02-02-2010 14:36:05

Lo logré, pude sacar esta información:

Código Delphi [-]
rect(117, 5, 131, 35)
              50
              point(0, 0)
            
            
              rect(137, 5, 153, 35)
              50
              point(0, 0)
            
          
        
      
      C:\Bajados\Sprites\SuperMarioAllStarSheet3.gif

Ahora necesito Dejar solo lo que dice Rect, y eliminar los 50 y los point y la ruta del final..

Gracias. si me podeis echar una mano te lo agradeceria muuxo.!


La franja horaria es GMT +2. Ahora son las 06:47:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi