Verwenden von GetClass und RegisterClass

[striker]

Hallo zusammen,

ich habe folgendes Problem:

Ich versuche ein DFM mit ReadComponentResFile('c:\temp\test.dfm', form2);
auszulesen und dann anzuzeigen.
Das Problem ist das nicht alle Klassen registriert sind.
Selbst mit ein dfm welches nur Standardkomponenten enthält läßt sich so nicht
anzeigen. Funktionieren tut es wenn ich die einzelnen Klassen mit
z.Bsp RegisterClass( TButton) registrieren und dann das Fenster anzeige.
Gibt es da nicht irgendwie eine Möglichkeit die Standarddelphikomponenten
irgendwie zu registrieren bei Programmstart?

Striker

[maximov]

Wenn du die VCL (VCL07.bpl) extern verlinkst, dann können die nicht benutzten componenten nicht weg optimiert werden, und das müsste somit gehen (vermute ich mal).

PS: Wilkommen in der Praxis

[striker]

ja ok aber wie verlinke ich die VCL extern? Mit LoadPackage ?
Loadpackage('vcl60.bpl') wird zwar ausgeführt und ich bekomme auch ein Handle zurück aber
GetClass oder FindClass bringen immer noch kein Ergebnis..

Ps: danke für die willkommensgrüsse

[maximov]

Ne ne, das was du versucht hast, ist dynamisches laden von BPLs zur laufzeit (kann für plugIns recht praktisch sein).

Du musst es statisch extern verlinken: Projektoptionen -> packages -> 'mit laufzeit-packages compilieren' -> rtl60, vcl60 ....in etwa.

dh. du musst diese packages (aus %win\system32) dann aber auch mit ausliefern

[striker]

Das hab ich nun auch probiert aber es hat auch keinen Erfolg gebracht...
Laut doku ist es doch so dass ein Package alle Klassen registriert sobald es geladen
wird. Meine Vermutung ist das die Registrierung nicht global geschieht...

[maximov]

hmm... hab mal ein bisschen geforscht und fest gestellt, das komponenten, die direkt auf einer form benutzt werden nicht explizit registriert werden müssen. Es wird einfach die fieldClassTable des forms geholt, wo dann alle klassen gelistet sind die das form benutzt...und erst danach wird nach klassen gesucht, die in der normalen registrierung sind

So jetzt gibt es da aber einen illegalen trick, der aber relativ effektiv sein könnt.

Werd heut abend mal was zu testen und dann bescheid sagen

[maximov]

NEIN... Alles futsch. Ich hoffe mal du hast den beitrag auswendig gelernt?

[striker]

Neeeeeeeeeeeeeeeeeeeeeeeeeeeinnnnn. Natürlich nicht.
Hast du es bitte noch irgenwo??

[maximov]

Da ich es hasse mich zu wiederholen, mach ich es kurz. In der unit steht jetzt alles nötige und der code von Hagen. Du musst nur die folgende funktion aufrufen:

RegisterAllPersistentClasses(HInstance); Das registriert, wie gesagt, alle TPersistent abkömmlinge, deren RTTI einträge in dem modul gefunden werden.

viel glück

[striker]

Hallo Maximov,

Ja super das ist genau das was ich brauche.

Vielen Dank Maximov