Paquetes dinámicos!

[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

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

Este programa no es mío, es Dede. Pero, es básicamente lo que hace Delphi cuando instalas un packages.
Lo que quería hacer notar, es que se puede hacer, pero desgraciadamente no tengo el código.

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

Utilizando el TDump que viene con Delphi:

(con el package que ya hemos creado)

tdump  -ee b:\pExEdit.bpl > b:\out.txt

Se puede obtener una salida como esta:

EXPORT ord:0007='__tpdsc__ Calignedit::TAlignEdit'
EXPORT ord:0020='__tpdsc__ Ceditinsidehelp::TEditInsideHelp'
EXPORT ord:0002='__fastcall Calignedit::Finalization()'
EXPORT ord:0003='__fastcall Calignedit::Register()'
EXPORT ord:0008='Calignedit::TAlignEdit::'
EXPORT ord:0006='__fastcall Calignedit::TAlignEdit::TAlignEdit(Classes::TComponent *)'
EXPORT ord:0005='__fastcall Calignedit::TAlignEdit::CreateParams(Controls::TCreateParams&)'
EXPORT ord:0004='__fastcall Calignedit::TAlignEdit::SetAlignment(const Classes::TAlignment)'
EXPORT ord:0001='__fastcall Calignedit::initialization()'
EXPORT ord:0010='__fastcall Ceditinsidehelp::Finalization()'
EXPORT ord:0019='__fastcall Ceditinsidehelp::Register()'
EXPORT ord:0021='Ceditinsidehelp::TEditInsideHelp::'
EXPORT ord:0017='__fastcall Ceditinsidehelp::TEditInsideHelp::TEditInsideHelp(Classes::TComponent *)'
EXPORT ord:0016='__fastcall Ceditinsidehelp::TEditInsideHelp::~TEditInsideHelp()'
EXPORT ord:0018='__fastcall Ceditinsidehelp::TEditInsideHelp::CMExit(Messages::TWMNoParams&)'
EXPORT ord:0015='__fastcall Ceditinsidehelp::TEditInsideHelp::InsideHelpFontChange(System::TObject *)'
EXPORT ord:0014='__fastcall Ceditinsidehelp::TEditInsideHelp::SetInsideHelpActive(const bool)'
EXPORT ord:0013='__fastcall Ceditinsidehelp::TEditInsideHelp::SetInsideHelpFont(const Graphics::TFont *)'
EXPORT ord:0012='__fastcall Ceditinsidehelp::TEditInsideHelp::SetInsideHelpText(const System::AnsiString)'
EXPORT ord:0011='__fastcall Ceditinsidehelp::TEditInsideHelp::WMPaint(Messages::TWMPaint&)'
EXPORT ord:0009='__fastcall Ceditinsidehelp::initialization()'
EXPORT ord:0028='GetPackageInfoTable'
EXPORT ord:0025='Pexedit::__linkproc__ __fastcall GetPackageInfoTable()'
EXPORT ord:0024='Pexedit::__linkproc__ __fastcall PackageLoad()'
EXPORT ord:0023='Pexedit::__linkproc__ __fastcall PackageUnload()'
EXPORT ord:0022='__fastcall Pexedit::initialization()'
EXPORT ord:0026='Finalize'
EXPORT ord:0027='Initialize'

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

Esta me ha llamado la atención...

EXPORT ord:0025='Pexedit::__linkproc__ __fastcall GetPackageInfoTable()'