Ayuda Sobre OpenPictureDialog - Delphi. Porfavor.

NeySmall
22 de Junio del 2008
Hola, tengo un problema con Delphi, estoy muy confundida.

Lo que pasa es que tengo un código en el que deseo agregar registros a XML, el cual me funcionaba perfectamente, pero se me ocurrio agregarle un nodo <imagen> al archivo XML, y desde entonces tengo problemas, porque lo que guardo en el nodo <imagen> es el nombre la imagen. Utilizo un OpenPictureDialog para buscar la imagen y que el nombre de la imagen se guarde en una caja de texto, pero me he dado cuenta que el problema es cuando ejecuto el OpenPictureDialog, pues cuando no lo ejecuto y escribo el nombre en la caja de texto si funciona. Es decir, que cuando ejecuto el OpenPictureDialog, si me almacena los datos, pero me borra todos los datos que ya existen en el archivo XML. Y cuando no lo ejecuto, almacena los datos y no se borra ningun otro dato, y funciona perfectamente. No se a que se deba, pero creo que el error es en el OpenPictureDialog.

¿Que me recomiendan.?

Este es mi código.

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XMLdoc, XMLIntf, xmldom, ComCtrls, ExtCtrls, ExtDlgs,
DBCtrls, JPEG;

///---- Boton Buscar Imagen (creo que aquí está el error)
procedure TFrmRegistrarNuevaLaptop.CmdBuscarClick(Sender: TObject);
begin
If self.AbrirImagenLaptop.Execute then
self.TxtImagenLaptop.Text := ExtractFileName(AbrirImagenLaptop.FileName);
else
self.TxtImagenLaptop.Text := "";
end;



///---- Boton Guardar Datos en archivo XML (aqui no creo tener error.)

XMLOwner := TDataModule.Create(nil);
mXML := TXMLDocument.Create(XMLOwner);
mxml.Active:=true;

//Verificar si existe el archivo
if FileExists("RegistroLaptops.xml") then
begin
//Recuperar los datos ya guardados
mxml.LoadFromFile("RegistroLaptops.xml");
NodoDirectorio:=mxml.DocumentElement;
end
else
Begin
//si no existe, crea el arbol XML
NodoDirectorio:=mxml.CreateElement("directorio","MiXml");
End;


//Añadir una Laptop en el arbol al inicio de la lista
NodoDirectorio.AddChild("laptop",0);

//Añadir los componentes de laptop ( imagen, clave, ... etc.)
NodoLaptop:=NodoDirectorio.ChildNodes.First;
NodoLaptop.AddChild("imagen",0);
NodoLaptop.ChildNodes[0].Text:=self.TxtImagenLaptop.Text;
NodoLaptop.AddChild("clave",1);
NodoLaptop.ChildNodes[1].Text:=Self.TxtClaveLaptop.Text;
NodoLaptop.AddChild("marca",2);
NodoLaptop.ChildNodes[2].Text:=Self.TxtMarca.Text;
NodoLaptop.AddChild("windows",3);
NodoLaptop.ChildNodes[3].Text:=Self.TxtWindows.Text;
NodoLaptop.AddChild("capacidadhdd",4);
NodoLaptop.ChildNodes[4].Text:=Self.TxtCapacidadHDD.Text;
NodoLaptop.AddChild("capacidadram",5);
NodoLaptop.ChildNodes[5].Text:=Self.TxtCapacidadRAM.Text;
NodoLaptop.AddChild("redinalambrica",6);
NodoLaptop.ChildNodes[6].Text:=Self.TxtRedInalambrica.Text;
NodoLaptop.AddChild("precio",7);
NodoLaptop.ChildNodes[7].Text:=Self.TxtPrecioLaptop.Text;

//Guarda el arbol XML (directorio) en un archivo (RegistroLaptops.XML)
mxml.DocumentElement:=NodoDirectorio;
mXML.SaveToFile("RegistroLaptops.xml");

self.close;

________________________

¿Tal vez me falte más codigo en en el boton de "buscar imagen"?, o ¿que es lo que me ocaciona ese error.?

Gracias de antemano.


coso
22 de Junio del 2008
Yo he usado muchas veces el OpenPictureDialog y nunca me ha dado este tipo de errores. El OpenPictureDialog solo sirve para conseguir un string con el nombre de fichero seleccionado, asi q en principio no debe afectar al resto de tu programa. Creo q el bug lo debes tener por algun otro lado.

Edwin
22 de Junio del 2008
yo paso el opendialog a un string y funciona