Problemas FreeAndNil

[OscarG]

Hola!

Tengo un problema q me mosquea.
Resulta q ponco un punto de control en un objeto tipo TXMLDocument en el q lo creo en un método y lo libero en el mismo. Al liberarlo le pongo un FreeAndNil(objetoxml) y bueno, ahi a veces me casca y otras no. Supongo q tengo un error en algún sitio y ahi le duele....

Entonces se me ocurrió poner un punto de control dentro de FreeAndNil y mirar lo q me hace.
En vez de meterse dentro de ese método se metió en otro totalmente diferente... TCustomDXImageList.Notification(AComponent: TComponent) , este método es un método interno de un componente(DelphiX) q maneja las imagenes.

Lo q me gustaría saber es xq no pasa por en método FreeAndNil...y xq me pasa por ese método...si es normal al hacer FreeAndNil...o sino..

Código Delphi [-]
  //Creo el TXMLDocument
  Documento:=  TXMLDocument.Create(TComponent(elcomponente));
  Documento.Options:= [doNodeAutoCreate, doAttrNull, doAutoPrefix];
  Documento.DOMVendor:= GetDOMVendor( 'MSXML' );
  Documento.Active:= true;
  Documento.LoadFromFile(fichero);
  NodoRaiz:=  Documento.DocumentElement;
 
  ...//Trato el document.
 
  //Libero el Document.
  Documento.Active:= false;
  FreeAndNil(Documento);

Gracias a todos por las molestias

[Neftali [Germán.Estévez]]

Empezado por OscarG

Documento:= TXMLDocument.Create(TComponent(elcomponente));
...
FreeAndNil(Documento);
[/delphi]

Si tú vas a realizar el FreeAndNil, deberías crearlo con el parámetro nil, para indicar que tú mismo lo vas a liberar.

Código Delphi [-]
 Documento:=  TXMLDocument.Create(nil);

Empezado por OscarG

...Entonces se me ocurrió poner un punto de control dentro de FreeAndNil y mirar lo q me hace. En vez de meterse dentro de ese método se metió en otro totalmente diferente...

Seguramente es porque el FreeAndNil llama al método donde has ido a parar.

[OscarG]

Gracias Neftali.

He probado a meter

Código Delphi [-]
DocumentoAux:= TXMLDocument.Create(nil);

pero cuando llamo al siguiente método

Código Delphi [-]
//Este es un método simple q lee el xml y mete datos en pparam q es un 
//puntero mio, anteriormente funcionaba.
LeerXML.recogerParametrosMochila(DocumentoAux.DocumentElement, pparam);

me salta un raised exception (hasta una vez...raised multipled exception jejeje)

Por otro lado, el FreeAndNil q pongo no tiene ninguna relación con el método en el q se mete cuando debugas.
Lo único q sé, es q antes de pasar por estos métodos, cambio de imagenes. Pero bueno, supongo q tengo un fallo en algún sitio y el compilador empieza a hacer cosas raras...(igual al cambiar las imagenes?).


Lo de TXMLDocument.Create(nil) me gustaría saber si no es mucha molestia xq falla, lo otro estoy casi seguro q es por algún error ocurrido antes.
Yo creo q algunos objetos necesitan derivarse de un componente para poder funcionar...pero en ese caso q le pase como paramentro un TComponent podría hacer un FreeAndNil o habría q hacerlo de otra forma...


Gracias por ayudarme, por ayudar y por todo.

[roman]

Normalmente yo estaría de acuerdo con Neftali cuando dice

Empezado por Neftali

Si tú vas a realizar el FreeAndNil, deberías crearlo con el parámetro nil, para indicar que tú mismo lo vas a liberar.

y es, de hecho, lo que yo hubiera contestado. Pero al ver que falla de esta manera me puse a buscar en la ayuda de Delphi y dice esto:

TXMLDocument implements the IXMLDocument interface. Applications obtain this interface from TXMLDocument or from the nodes in the document.

When TXMLDocument is created without an Owner, it behaves like an interfaced object. That is, when all references to its interface are released, the TXMLDocument instance is automatically freed. When TXMLDocument is created with an Owner, however, it behaves like any other component, and is freed by its Owner. When you add a TXMLDocument component from the component palette to a form or data module, it is automatically created with an Owner.

Luego entonces, suponiendo que TXMLDocument se comporta como otras interfaces, lo adecuado sería:

1. Usar una variable de tipo IXMLDocument en lugar de TXMLDocument
2. No intentar liberar dicha variable.

Código Delphi [-]
var
  XMLDocument: IXMLDocument;

begin
  XMLDocument := TXMLDocument.Create(nil);
end;

La instancia se destruirá automáticamente en cuanto se pierda la última referencia a ella. En el ejemplo, cuando la variable XMLDocument salga de alcance.

// Saludos

[OscarG]

Muchas gracias por la ayuda...lo voy a aplicar ahora mismo.