Como usar RegisterClass en Lazarus ?

[rolandoj]

Hola,

Bueno, he seguido probando he investigando. Opté por hacer el ejemplo más sencillo posible; o sea, crea un proyecto de prueba con un único formulario que simplemente desciende de la clase que he definido; sin ningún tipo de código adicional.

Ni siquiera así logro que Lazarus me abra el formulario; aunque si he podido compilar el proyecto. Eso me tiene muy confundido.

Si Lazarus enlaza de manera estática, la única explicación que veo es que la clase en sí está bien. Asumo que lo que falla es su registro con el IDE de Lazarus; pero, como se hace para registrarla en el IDE ?.

No he encontrado ninguna documentación que lo explique claramente. En lo que he leído se dice vagamente que el registro es normalmente automático; pero, no se indica como revisar si una clase está registrada, ni como agregarla manualmente.

Igualmente se menciona una "fábrica de clases"; incluso hay ejemplos de la clase que la implementa; pero, no de como el contenido de esta se enlaza con el IDE.

Así, en la unidad de la clase padre hay un Procedure para efectuar registros que usa ese método de "fábrica". Ese procedimento es incluído automáticamente en la sección de inicialiazación del proyecto de prueba; pero, solo para registrar la última clase creada. Eso igual aplica en los ejemplos que usan el paquete standard y con ellos si funciona.

Dicho así parece algo enredado. Lo voy a poner en perspectiva.

Empecemos con el paquete standard. Ahí tenemos algo así :

TClaseBase ----> TClaseHija1 ----> TClaseHija2 ----> TClaseHija3

Así que la clase que realmente usan los proyectos es TClaseHija3

El procedimiento de registro, que usa la "fábrica" está codificado para TClaseBase y sus descdendientes. Es publicado en la unidad donde se define TClaseBase .

Cuando se genera un proyecto normal el Lazarus crea un formulario en que tenemos algo así :

Código Delphi [-]
TMiClaseProyecto = Class(TClaseHija3)
End;

Y en la sección de inicialización se crea algo así :

Código Delphi [-]
INITIALIZATION
RegisterAlgo('TMiClaseProyecto',TMiClaseProyecto);

Donde, lógicamente, RegisterAlgo es la rutina que mencioné antes para registrar clases.

Esto es lo standard y definitivamente funciona bien. Notese que la llamada a la rutina de registro ocurre solo sobre la última clase de la cadena; o sea, la que se crea solo para el proyecto final. No aparece ni en el proyecto ni en las unidades standard llamadas a RegisterAlgo que apliquen a TClaseHija1, TClaseHija2 o TClaseHija3.

Yo que hice. Escribí un paquete análogo así

TClaseBase ----> TMiClaseHija1 ----> TMiClaseHija2 ----> TMiClaseHija3

En ese enfoque, mis 3 clases descienden de la misma clase base que las clases análogas del paquete standard. Esa clase base y su procedimiento de registro están en unidades suministradas por el paquete standard.

Mi paquete compila y se instala sin errores

Así pués, confiando en eso, yo creo mi proyecto y hago también lo mismo que en la generación autmática que usa el standard; o sea,

Código Delphi [-]
TMiClaseProyecto = Class(TMiClaseHija3)
End;

Y la sección de inicialización es la misma que en el proyecto creado por el ejemplo standard.

Sin embargo, aquí si no funciona. En cambio, cada vez que trato de abrir el formulario me dice que TMiClaseHija3 no está registrada con RegisterClass; pero, como he dicho antes, para las clases análogas del standard (TClaseHija3, etc) no aparecen llamadas que las registren. Bueno, al menos la busqueda de texto que hago en todo el subdirectorio CodeTyphon no encuentra nada (Y lo hago desde CodeTyphon por seguridad, debería ser solo sobre el directorio fuente del paquete standard)

Alguna idea ?

[rolandoj]

Hola a todos,

Mis prioridades cambiaron en las últimas semanas y he tenido abandonado este tema.

Estoy retomándolo y veo que aún no hay ninguna idea de como solucionarlo.

Por mi parte, estuve intentándo un rato; pero, aún nada.

Agradezco cualquier sugerencia, ya que sin resolver esto, no puedo avanzar en absolutamente más nada con Lazarus

[rolandoj]

Hola a todos,

Ha pasado muchísimo tiempo y nadie parece saber nada de este tema.

Por mi parte, después de que retomé el tema, hice varios intentos sin ningún éxito. Finalmente, ante su liberación acabo de instalar el nuevo CodeTyphon 3.1; pero, el problema sigue igualito y se me ha vuelto crítico porque sin esto no tiene sentido desarrollar nada de mi proyecto en Lazarus.

Hoy más que nunca necesito solucionarlo porque fuimos donde un cliente y nos exigió que pusieramos la parte de servidor en Linux.

Por eso quiero cambiar el enfoque de la pregunta y para ello he abierto un nuevo hilo :

http://www.clubdelphi.com/foros/showthread.php?t=81795

[[Al González]]

Hola Rolando.

De Lazarus no sé gran cosa, pero me pregunto si has intentado "aislar" el problema.

Es decir, crear una nueva aplicación en blanco con lo mínimo necesario para producir el error. Y a partir de ahí revisar el código propio y de bibliotecas que pudiera estar causando el fallo.

Saludos.

[rolandoj]

Empezado por Al González

Hola Rolando.

De Lazarus no sé gran cosa, pero me pregunto si has intentado "aislar" el problema.

Es decir, crear una nueva aplicación en blanco con lo mínimo necesario para producir el error. Y a partir de ahí revisar el código propio y de bibliotecas que pudiera estar causando el fallo.

Saludos.

Hola Al,

Gracias por contestar.

Si, por supuesto eso fue lo primero porque, de hecho, como estoy empezando con Lazarus, hago pruebas de cada cosa que necesito migrar.

El caso es que aquí el inconveniente no es un error de lógica en el código mio sino de desconocimento de como opera el mecanismo de registro de Lazarus para estos data module.

He revisado el código de fpweb que viene con Lazarus, incluso tan solo usando una copia del mismo a la que le he cambiado nombres de clases y verificando con Winmerge los cambios; pero, nada funciona. Supongo que hay alguna otra parte de código que maneja esa parte de registro automática que mencionan en varias partes; pero, ni haciendo busqueda en todo el directorio de CodeTyphon he encontrado archivos con palabras claves que aparezcan en fpweb que me sugieran que puede estar faltando.

Por eso es que abrí el otro hilo, en la esperanza de que alguien que haya desarrollado un descendiente, similar al que necesito, describa los pasos que siguió y yo pueda detectar que es lo que me hace falta.

Saludos