24 respuestas en este tema

[felipe]

Que tal foro,
les comento, en estos momentos hago una simple aplicación que genera un archivo XML para ser leída por otra, hasta acá todo bien.

El detalle es que no estoy usando componentes, sino creando una instancia de la clase TXMLDocument.

El problema que me ha generado es al intentar crear los nodos, puesto que para estos estoy usando la interfaz IXMLNode.

He tratado de basarme en algunos ejemplos de internet pero hasta ahora no doy con buenos resultados 

Este es el procedimiento en el que trato de generar dicho archivo

delphi

procedure TFrmPreguntas.crearXML(Participante: String; IdPregunta,
  ValRespuesta: Integer);
var archivoXML: TXMLDocument;
    nNodo, pNodo: IXMLNode;
begin
  archivoXML := TXMLDocument.Create(Nil);
  archivoXML.Active := True;
  nNodo := pNodo.AddChild('pregunta');
  nNodo.Attributes['idpregunta'] := IdPregunta;
  nNodo.Attributes['respuesta'] := ValRespuesta;
  pNodo := nNodo.AddChild('participante');
  pNodo.Attributes['nombre'] := Participante;
  archivoXML.SaveToFile(ExtractFilePath(Application.ExeName) + Participante + '.xml');
  archivoXML := Nil;
end;

De esta forma, siempre me genera un Access Violation al intentar crear el hijo al nodo.

No tengo mucha experiencia en el asunto, espero sus comentarios 



Saludos!

[cadetill]

Buenas,

Yo no tengo experiencia en esto, pero quizás esto te sirva http://delphi.about....ype_txmldoc.htm

Nos leemos

[Héctor Randolph]

Hola felipe

No lo he probado pero creo que se debe crear así

delphi

  archivoXML := TXMLDocument.Create(Nil);
  archivoXML.Active := True;
  nNodo := archivoXML.AddChild('pregunta');  // Así se debería crear el nodo
  nNodo.Attributes['idpregunta'] := IdPregunta;

Saludos

[felipe]

Gracias por el enlace [shadow=black,left]cadetill[/shadow],
[shadow=black,left]Hector[/shadow], había intentado esa propiedad antes pero no la asignaba al nodo, de la forma en que lo expones funciona sin problemas 

Este es el resultado hasta ahora:

delphi

<pregunta idpregunta="10" respuesta="50">
	<participante nombre="felipe"/>
</pregunta>

Seguiré haciendo pruebas y no dudaré en preguntar 



Saludos!

[enecumene]

delphi

procedure crearXML(Participante: String; IdPregunta, ValRespuesta: Integer);
var archivoXML: TXMLDocument;
    nNodo: IXMLNode;
begin
  archivoXML := TXMLDocument.Create(Application);
    try
      archivoXML.Active := True;
      archivoXML.AddChild('pregunta');
      nNodo :=  archivoXML.DocumentElement.AddChild('idpregunta');
      nNodo.Attributes['idpregunta']  :=  IntToStr(IdPregunta);
      nNodo :=  archivoXML.DocumentElement.AddChild('respuesta');
      nNodo.Attributes['respuesta']  :=  IntToStr(ValRespuesta);
      nNodo := archivoXML.DocumentElement.AddChild('participante');
      nNodo.Attributes['participante']  := Participante;
      archivoXML.SaveToFile(ExtractFilePath(Application.ExeName) + Participante + '.xml');
    finally
      archivoXML.Free;
    end;
end;

Lo hice al vuelo asi que puede contener errores

Saludos.

[felipe]

Pues mira lo curioso enecumene, solamente cambié la linea que propone Hector y no tuve que modificar más.
Sin embargo veré la propuesta a ver que resultado obtengo, pienso que la estructura puede cambiar.


Saludos!

[felipe]

Y este fué el resultado:

xml

<pregunta>
	<idpregunta idpregunta="10"/>
	<respuesta respuesta="50"/>
	<participante participante="felipe"/>
</pregunta>

PD: Falta etiquetas para HTML


Saludos!

[enecumene]

PD: Falta etiquetas para HTML

Colega, aqui tenemos hasta de xml

[felipe]

PD: Falta etiquetas para HTML

Colega, aqui tenemos hasta de xml

Ah chanfle... no las había visto


Saludos!

[felipe]

De nuevo al tema  ... vengo con otra duda, en este caso al cargar el archivo.

Pasa lo siguiente, tengo este código:

delphi

  for i := 0 to archivos.Count - 1 do
    begin
      archivoXML := TXMLDocument.Create(Nil);
      archivoXML.LoadFromFile(ExtractFilePath(Application.ExeName) + archivos[i]);
      archivoXML.Active := True;
      nNodo := archivoXML.DocumentElement.ChildNodes.First; // Invalid pointer operation
      gridDatos.Cells[1,i] := archivoXML.DocumentElement.Attributes['nombre']; // No active document
      //... etc, etc

gridDatos es un StringGrid donde voy a mostrar lo contenido en el XML, pero cuando intento cargar un simple texto del atributo nombre que posee el archivo, me sale el error: No active document.

Esto por una parte... en otras pruebas (evitando lo anterior, claro) si el ciclo for pasa a una segunda iteración, obtengo un error al asignar el valor a la variable nNodo, el cual dice: Invalid pointer operation

¿Alguna idea y/o sugerencia?


Saludos!

[egostar]

Y porque lo estas creando cada vez que entras al for no seria mejor crearlo y luego entrar al bucle ?

delphi

  archivoXML := TXMLDocument.Create(Nil);
  archivoXML.LoadFromFile(ExtractFilePath(Application.ExeName) + archivos[i]);
  archivoXML.Active := True;
 for i := 0 to archivos.Count - 1 do
    begin
      nNodo := archivoXML.DocumentElement.ChildNodes.First; // Invalid pointer operation
      gridDatos.Cells[1,i] := archivoXML.DocumentElement.Attributes['nombre']; // No active document
      //... etc, etc

Salud OS

[felipe]

Y porque lo estas creando cada vez que entras al for no seria mejor crearlo y luego entrar al bucle ?

delphi

  archivoXML := TXMLDocument.Create(Nil);
  archivoXML.LoadFromFile(ExtractFilePath(Application.ExeName) + archivos[i]);
  archivoXML.Active := True;
 for i := 0 to archivos.Count - 1 do
    begin
      nNodo := archivoXML.DocumentElement.ChildNodes.First; // Invalid pointer operation
      gridDatos.Cells[1,i] := archivoXML.DocumentElement.Attributes['nombre']; // No active document
      //... etc, etc

Salud OS

Que tal amigo,
en un principio lo tenía así, pero dado que por cada ciclo se debe cargar un archivo diferente me daba error luego de hacer:

archivoXML.Active := False;

e intentar cargar nuevamente el archivo siguiente, la solución fue crearlo de nuevo por cada ciclo, ya que según me daba a entender dicha instancia quedaba inservible 


Saludos!

[enecumene]

Hola, Archivos es un OpenDialog??.

Saludos.

[felipe]

Hola, Archivos es un OpenDialog??.

Saludos.

Es un StringList, allí se guardan los nombres de los archivos, ej: archivo1.xml, archivo2.xml...


Saludos!

[enecumene]

delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
    MiXML: TXMLDocument;
    Nodo: IXMLNode;
begin
  MiXML :=  TXMLDocument.Create(self);
    for I := 0 to Archivos.Count - 1 do
      MiXML.LoadFromFile(ExtractFilePath(Application.ExeName)+Archivos.Strings[i]);
        for n := 0 to MiXML.ChildNodes.Count - 1 do
          gridDatos.Cells[1,i] := MiXML.ChildNodes.Nodes[i].Text;
          //etc etc
end;

Por ahi puede andar el asunto.

Saludos

[felipe]

delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
    MiXML: TXMLDocument;
    Nodo: IXMLNode;
begin
  MiXML :=  TXMLDocument.Create(self);
    for I := 0 to Archivos.Count - 1 do
      MiXML.LoadFromFile(ExtractFilePath(Application.ExeName)+Archivos.Strings[i]);
        for n := 0 to MiXML.ChildNodes.Count - 1 do
          gridDatos.Cells[1,i] := MiXML.ChildNodes.Nodes[i].Text;
          //etc etc
end;

Por ahi puede andar el asunto.

Saludos

Pues no necesariamente, si a un ciclo por los nodos te refieres, en mi código hago esto:

delphi

while nNodo <> nil do
  begin
    gridDatos.Cells[j,i+1] := nNodo.Attributes['respuesta'];
    j := j + 1;
    nNodo := nNodo.NextSibling;
  end;

Además el error no sale de allí .



Saludos!

[enecumene]

Pues...

delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
    MiXML: TXMLDocument;
    Nodo: IXMLNode;
begin
  MiXML :=  TXMLDocument.Create(self);
    for I := 0 to Archivos.Count - 1 do begin
      MiXML.LoadFromFile(ExtractFilePath(Application.ExeName)+Archivos.Strings[i]);
      Nodo := MiXML.ChildNodes.First;
        while Nodo <> nil do
          begin
          //etc etc
          end;
     end;
end;

Prueba con eso.

Saludos.

[felipe]

No funciona amigo, al usar esta declaración:

delphi

Nodo := MiXML.ChildNodes.First;

Y luego intentar esto:

delphi

gridDatos.Cells[j,i+1] := nNodo.Attributes['respuesta'];

Da error, porque al parecer no encuentra valor para ese atributo, a lo cual retorna nulo.


Saludos!

[eduarcol]

No funciona amigo, al usar esta declaración:

delphi

Nodo := MiXML.ChildNodes.First;

Y luego intentar esto:

delphi

gridDatos.Cells[j,i+1] := nNodo.Attributes['respuesta'];

Da error, porque al parecer no encuentra valor para ese atributo, a lo cual retorna nulo.


Saludos!

Asumo que cuando declaras Nodo := y luego haces nNodo := es error de escritura

[felipe]

Asumo que cuando declaras Nodo := y luego haces nNodo := es error de escritura

Ah no claro... corrijo , es que ahí solo copié y pegué lo que puso Fernando.

Obviamente el código original no tiene esos problemas de escritura.


Saludos!