Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-07-2011
noob noob is offline
Miembro
 
Registrado: sep 2008
Posts: 212
Poder: 16
noob Va por buen camino
He encontrado un componente llamado XML Parser y lo he instalado:

http://www.destructor.de/xmlparser/index.htm

A ver qué tal va.
Responder Con Cita
  #2  
Antiguo 03-07-2011
noob noob is offline
Miembro
 
Registrado: sep 2008
Posts: 212
Poder: 16
noob Va por buen camino
Os pongo un ejemplillo:

El el .h declaráis este atributo privado:
Código:
    TXmlParser* XmlParser;
En el .cpp:
Código:
    XmlParser->LoadFromFile("C:\\Archivos de programa\\Borland\\CBuilder6\\Projects\\xmlfiles\\test.xml");
    XmlParser->Normalize = true;
    XmlParser->StartScan();

    while (XmlParser->Scan())
    {
      switch(XmlParser->CurPartType)
      {
      case ptXmlProlog:
        {
        ShowMessage("case ptXmlProlog:");
        }
        break;
      case ptDtdc:
        {
         ShowMessage("case ptDtdc:");
        }
        break;
      case ptStartTag:
        {
        ShowMessage("case ptStartTag: " + XmlParser->CurName);
        }
      case ptEmptyTag  :
        {
        TAttrList* list = XmlParser->CurAttr;
        for (int i(0); i < list->Count; i++)
                ShowMessage("case ptEmptyTag: list->Name(i): " + list->Name(i) + ": " + list->Value(i));
        }
        break;
      case ptEndTag:
        {
        ShowMessage("case ptEndTag: " + XmlParser->CurName);
        }
        break;
      case ptContent:
        {
        ShowMessage("case ptContent: " + XmlParser->CurContent);
        }
        break;
      case ptCData:
        {
        ShowMessage("case ptContent :");
        }
        break;
      case ptComment:
        {
        ShowMessage("case ptComment :");
        }
        break;
      case ptPI:
        {
        ShowMessage("case ptPI :");
        }
        break;
     }
    }
Le podéis pasar este documento XML para probar:

Código:
<?xml encoding="XXX" standalone="yes"?>
	<cuadrado id="cuadradoUNO" lado="5">
	        <posicion x="5" y="7" />
	</cuadrado>
	< cuadrado id="cuadradoDOS" lado="19"> <!--Error de escritura-->
	        <posicion x="10" y="33" / >
	</cuadrado >
	<circulo id="circuloUNO" radio="2" >
	        <posicion x="5" y="7"/>
	</circulo>	
	<cuadrado id= "cuadrado TRES" lado="2"> <!--Se ingresa un error de escritura-->	       
	        <posicion x="010" y="66" />
	</cuadrado>	
	<rectangulo id="rectanguloUNO" base="5" altura="8">
	        <posicion x="5" y=" " /> <!--Se ingresa un caracter vacio-->
	</rectangulo>
	<segmento id="segmentoUNO" >
	        <inicio x="50" y="12" /> <!--No se ingresa un subatributo  obligatorio-->
	        <fin>esto es el fin</fin>
	</segmento>
Responder Con Cita
  #3  
Antiguo 03-07-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.072
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Gracias por comentarlo
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
en verdad existen¡¡¡¡¡¡¡¡¡¡¡ voldemmor Humor 4 08-12-2009 19:12:18
Los ayudantes de clases (o clases ayudantes), ¿ya se gestaban en Delphi 7? Al González OOP 5 12-12-2007 09:03:52
Parseo de XML - Pregunta tonta. zequi Internet 1 27-08-2007 21:54:44
Parseo de clases a XML y SOAP chete Varios 0 23-01-2006 09:30:13
Saber si existen propiedades Roger OOP 6 05-04-2004 10:17:24


La franja horaria es GMT +2. Ahora son las 01:52:51.


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
Copyright 1996-2007 Club Delphi