Dudas con el funcionamiento del RegisterClasses en Delphi 6.0

[glp1]

Hola, tengo una unidad de inicializacion por cada paquete donde hago el RegisterClasses de todas las clases de las unidades que contiene ese paquete, por ahi pasa y aparentemente las registra, pero cuando hago el getClass de la unidad que quiero utilizar entonces me devuelve un nil (vamos como si no la hubiera registrado).
En la unidad de inicializacion , tengo en las uses todas las unidades de las clases que registro.
gracias

[roman]

Empezado por glp1

Hola, tengo una unidad de inicializacion por cada paquete donde hago el RegisterClasses de todas las clases de las unidades que contiene ese paquete, por ahi pasa y aparentemente las registra, pero cuando hago el getClass de la unidad que quiero utilizar entonces me devuelve un nil (vamos como si no la hubiera registrado).
En la unidad de inicializacion , tengo en las uses todas las unidades de las clases que registro.

Pero la pregunta no es si tus unidades de inicialización incluyen las unidades de las clases. Esto se da por sentado ya que de lo contrario no compilaría tu aplicación. La pregunta es si éstas unidadas están en el uses de alguna otra unidad en tu proyecto.

Por otro lado, dices que el flujo de la aplicación sí pasa por el RegisterClasses pero el GetClass posterior falla. ¿Qué pasa si, para probar, usas un GetClass inmediatamente después del RegisterClasses:

RegisterClasses(...);
Assert(GetClass(una de tus clases) <> nil, '¡Es nil!');

// Saludos

[[Al González]]

¡Buen día a todos!

Complementando lo que nos dice Román.

Es decir, ¿estás seguro de que cuando se ejecuta tu programa, éste ejecuta las sentencias RegisterClasses que nos mencionas?

Una cosa es que los paquetes llamen a RegisterClasses, cuando son cargados por el entorno de Delphi. Y otra muy distinta, que la aplicación también llame a RegisterClasses cuando comienza a ejecutarse. Quizás ésto último no sucede.

De todas formas, me gustaría saber más sobre este caso.

Espero esto sea de utilidad. Seguimos en contacto.

Al González .

[glp1]

Empezado por Al González

¡Buen día a todos!

Complementando lo que nos dice Román.

Es decir, ¿estás seguro de que cuando se ejecuta tu programa, éste ejecuta las sentencias RegisterClasses que nos mencionas?

Una cosa es que los paquetes llamen a RegisterClasses, cuando son cargados por el entorno de Delphi. Y otra muy distinta, que la aplicación también llame a RegisterClasses cuando comienza a ejecutarse. Quizás ésto último no sucede.

De todas formas, me gustaría saber más sobre este caso.

Espero esto sea de utilidad. Seguimos en contacto.

Al González .

La aplicacion llama al RegisterClasses cuando comienza a ejecutarse

[jachguate]

Creo que a lo que van roman y delphi.com.ar es a la posibilidad que el optimizador haya eliminado la llamada a registerclass en tu ejecutable, o bien que la unidad no esté incluida en el uses de ninguna otra, por lo que la clase no existirá en el proyecto...

Cómo estas seguro que eso no ha ocurrido?

Creo que facilmente podes hacer algo como lo indicado en el código sigiuente para tener un test completo:

Procedure TForm1.Button1Click(Sender : TObject);

Var
  Instancia : TClase;  
  {si esto compila estoy seguro que la unidad ha sido incluida en el uses }
  PunteroClase : TObjectClass;

Begin
  Instancia := TClass.Create(Parametros);
  Instancia.Free;  // para que el optimizador no quite la variable Instancia del camino...
  PunteroClase := GetClass('TClass')
  Assert(PunteroClase <> nil, '¡Es nil!');
  if PunteroClase = nil Then
  Begin
    // intentamos de nuevo registrar la clase, a ver que ocurre...
    RegisterClass(TClass);
    Assert(GetClass('TClass') <> nil, '¡Sigue siendo nil, RegisterClass ya no sirve!');
  End;
end;

Creo que podria ayudar a entender que ocurre...

[roman]

jachguate:

Te darás cuenta de que el código

  if PunteroClase = nil Then
  Begin
    // intentamos de nuevo registrar la clase, a ver que ocurre...
    RegisterClass(TClass);
    Assert(GetClass('TClass') <> nil, '¡Sigue siendo nil, RegisterClass ya no sirve!');
  End;

jamás se va a ejecutar. No hay manera que se salte el Assert. A menos claro que tenga deshabilitado el uso de Assert.

Realmente este problema es muy extraño. La pregunta que le hice era tan sólo por no dejar pero si realmente GetClass devuelve nil inmediatamente después de RegisterClass pues creo que tu segundo Assert (el que jamás se ejecuta) realmente es cierto: '¡Sigue siendo nil, RegisterClass ya no sirve!'.

// Saludos

[jachguate]

ups... es cierto...

es la rápidez con la que respondi...

Basta con hacer entonces:

Procedure TForm1.Button1Click(Sender : TObject);

Var
  Instancia : TClase;  
  {si esto compila estoy seguro que la unidad ha sido incluida en el uses }
  PunteroClase : TObjectClass;

Begin
  Instancia := TClass.Create(Parametros);
  Instancia.Free;  // para que el optimizador no quite la variable Instancia del camino...
  PunteroClase := GetClass('TClass')
  if PunteroClase = nil Then 
    ShowMessage('¡Es nil!');
  if PunteroClase = nil Then
  Begin
    // intentamos de nuevo registrar la clase, a ver que ocurre...
    RegisterClass(TClass);
    Assert(GetClass('TClass') <> nil, '¡Sigue siendo nil, RegisterClass ya no sirve!');
  End;

end;

lo siento de nuevo y mil gracias roman por la corrección...

[glp1]

Empezado por roman

Pero la pregunta no es si tus unidades de inicialización incluyen las unidades de las clases. Esto se da por sentado ya que de lo contrario no compilaría tu aplicación. La pregunta es si éstas unidadas están en el uses de alguna otra unidad en tu proyecto.

Por otro lado, dices que el flujo de la aplicación sí pasa por el RegisterClasses pero el GetClass posterior falla. ¿Qué pasa si, para probar, usas un GetClass inmediatamente después del RegisterClasses:

RegisterClasses(...);
Assert(GetClass(una de tus clases) <> nil, '¡Es nil!');

// Saludos

Que sigue valiendo nil