FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
||||
|
||||
Cita:
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#22
|
||||
|
||||
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 |
#23
|
||||
|
||||
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#24
|
||||
|
||||
Utilizando el TDump que viene con Delphi:
(con el package que ya hemos creado) Código:
tdump -ee b:\pExEdit.bpl > b:\out.txt 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'
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#25
|
||||
|
||||
Esta me ha llamado la atención...
EXPORT ord:0025='Pexedit::__linkproc__ __fastcall GetPackageInfoTable()'
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#26
|
||||
|
||||
...Estoy peleandome con ello.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#27
|
||||
|
||||
Pues listo.
Peleando un poco hemos llegado hasta aquí. Me ha parecido demasiado largo, así que he creado una entrada explicando copn detalle todo el proceso e incluyendo las imágenes y los ejemplos. Con el código que se muestra, se puede saber qué clases hay definidas en un package. Al final la clave ha estado en la clase que implementa Delphi llamada TClassFinder. Y que curiosamente no es la primera vez que aparece en los foros (Al, ¿Quien, sino?).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Hilos con objetos dinámicos | netoDelphi | Varios | 2 | 27-11-2006 20:46:05 |
Dudas con paquetes... | adlfv | OOP | 1 | 01-09-2005 16:18:10 |
Paquetes en delphi | davezf | Varios | 4 | 05-04-2005 20:04:18 |
paquetes ¿? | acertij022 | Internet | 0 | 20-08-2003 16:06:31 |
Paquetes en runtime | rezahe | Varios | 4 | 25-05-2003 06:27:26 |
|