Paquetes dinámicos!

[BlackDaemon]

Hola

Sí, eso entendí desde un principio, pero resulta que no sé por donde empezar, vamos, que esto de los forms ya entendía, pero qué pasaría en el caso de componentes de 3ros? como por ejemplo los TMS si quier meter en un BPL y poder acceder a ellos desde mi app ?

creo que es lo único que me falta para solucionar mis problemas.
desde ya muchas gracias por por sus respuestas y ayudas.
Saludos!

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

Empezado por BlackDaemon

Sí, eso entendí desde un principio, pero resulta que no sé por donde empezar, vamos, que esto de los forms ya entendía, pero qué pasaría en el caso de componentes de 3ros? como por ejemplo los TMS si quier meter en un BPL y poder acceder a ellos desde mi app ?

Bueno, no tienes que hacer nada en ese caso. Los TMS y el resto de componentes ya vienen en un Package (BPL). O mejor dicho, normalmente en dos. Uno de diseño y otro de Runtime.

Tal vez no entendí este último punto.

[BlackDaemon]

Hola

A ver, la idea es esta:

crear un componente o uno que ya exista, entonces meter este y otros a un BPL, osea hacer un BPL de varios componentes, hasta ahí claro, digamos que se llama comps.bpl, ahora yo en mi form principal tengo que crear un componente del comps.bpl, eso lo hago de la forma expuesta en los anteriores post, hasta aquí todo funciona correctamente, pero no puedo acceder a sus métodos propiedades, etc del dicho componente :S

es mas, he seguido esta guía

http://tinyurl.com/d3lafr

Donde ahí exponen lo que quiero hacer, el que tengo algo de tiemop me gustaría que lo prueben, como ven, el mete 2 componentes en un BPL y luego desde otro form los llama, yo no he logrado que me muestre el edit en mi form, no sé por que, pero me da error en estas líneas

Código Delphi [-]
  if Cls <> nil then
  begin
    Obj := TEdit(TComponentClass(Cls).Create(Self));
    Obj.Parent := Self;
    Obj.Left := 100;
    Obj.Top := 100;

A ver, logro pasar el primer If, donde mi cls NO vale nil, entonces según yo, o lo que entiendo poco o nada de OO, ahí Obj es un objeto que hereda TODO lo del componente que está en el BPL, entonces ahí da a suponer que ulego utiliza su propiedad Parent, Left, Top, pero yo cuando hago lo mismo en la línea Obj.Parent el delphi me marca error, no me deja compilar por que dice que esa propiedad no existe, claro, supongo por que no a acargado el componenet aún, ni lo a creado ni nada, pero entonces, ¿cómo debería poder mostrar el componente en el form principal ?

si siguen leyendo el link que puse ahí, la parte de mostrar el método AboutBox SI me funciona, osea puedo lograr mostrar el Dialog ese definido en el BPL, pero mas no las propiedades.

Espero que alguien me sepa ayudar, desde ya muchas gracias

Adiós!

PD: por cierto, qué diferencias hay entre GetClass y FindClass ? creo que a mí con ambas me funciona

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

Pues yo he probado y funciona correctamente la creación de componentes.
Los pasos que he seguido.


1º) Coger los PAS de dos componentes derivados de TEdit (AlignEdit -de Román- y EditInsideHelp -mio-). Son los primero que se me han venido a la cabeza.
2º) He creado un nuevo package y los he incluído ambos dentro. No he puesto los DCR de las imágenes para abreviar. El package se llama PExEdit.dpk y está guardado en el mismo directorio y se copila sin problemas.
3º) Creo una nueva aplicación llamada Testpk en ese mismo directorio.

4º) Antes de continuar y puesto que los componentes no lo tienen, he añadido a ambos el registro de la clase, tal y como explica en el documento anterior al que tú mencionas.

Código Delphi [-]
// package unit
initialization
  RegisterClasses([TEditInsideHelp]);
finalization
  UnRegisterClasses([TEditInsideHelp]);

Código Delphi [-]
// package unit
initialization
  RegisterClasses([TAlignEdit]);
finalization
  UnRegisterClasses([TAlignEdit]);

5º) Una vez hecho esto, el package compila perfectamente y el proyecto también. He añadido al proyecto el código para cargar el package en Runtime.

Código Delphi [-]
initialization
  Plugin := LoadPackage('PExEdit.bpl');
finalization
  if Plugin <> 0 then
    UnloadPackage(Plugin)

6º) Sólo queda hacer una cosa. En el proyecto, puesto que se van a usar carga dinámica de packages y acceso por RTTI, hay que marcar la opción "Build With runtime package" en las opciones.

7º) Para hacer algunas pruebas más he añadido una rutina que te permite modificar propiedades vía RTTI a partir de su nombre, con lo que puedes modificar propiedades de los componentes.

Funciona perfectamente.
Te dejo el proyecto completo.

Y los ha creado correctamente...

[BlackDaemon]

Hola

Sí, yo también a prueba y error lo he logrado jeje, pero aunque de una forma algo diferente pero en si, llegamos a los mismo, pero como tu lo expones aquí es de lo mejor, muchas gracias neftalí, eres dios

por cierto, di tengo 3 componentes en el bpl, y desde mi form principal quiero crear uno, ¿cómo sabría los nombres de los componentes que tengo en el bpl ?
osea, sus nombres, métodos, etc, algo así como hace delphi que te muestra mientras vas escribiendo, si esto lo hace automáticamente retiro la pregunta.
Pero mi idea era crear una especie de api que me permita saber los nombres de los componentes del bpl y sus propiedades, etc

Saludos!

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

Empezado por BlackDaemon

por cierto, di tengo 3 componentes en el bpl, y desde mi form principal quiero crear uno, ¿cómo sabría los nombres de los componentes que tengo en el bpl ?
osea, sus nombres, métodos, etc, algo así como hace delphi que te muestra mientras vas escribiendo, si esto lo hace automáticamente retiro la pregunta.
Pero mi idea era crear una especie de api que me permita saber los nombres de los componentes del bpl y sus propiedades, etc

Bueno, los nombres de las clases pueden obtenerse, es cuestión de investigar cómo...
Esta imagen, por ejemplo, es de un programa que permite "explorar" ejecutables y BPL's.

A partir de ahí y con RTTI podrías obtener métodos.

[BlackDaemon]

Hola

interesante el programa, pero me gustaría saber cómo lo haces, osea, es imágen es justamente lo que quiero hacer, a ver si pones el código que hace todo eso, está interesante realmente

Adiós y muchas gracias