Initialisierung eines IOTA-Packages

[r29d43]

Hallo,

ich bin gerade dabei mich in diese IOTA-Dingens etwas einzuarbeiten und möchte nun in so ein eigenes Package einen Timer integrieren. Da ich den dynamisch erzeugen muss, bräuchte ich also sowas ähnliches wie ein FormCreate-Handler bei den VCL-Formularen.

Gibt es sowas bei diesen IOTA-Interfacen auch, meinetwegen auch ein quasi Install-Handler bzw. dann auch einen Deinstall-Handler?

Thx im Voraus
….

[Delphi.Narium]

Schau bitte mal dort: https://www.delphipraxis.net/895403-post.html#1018014

Du könntest Deinen Timer im

Delphi-Quellcode:

constructor Create;

erstellen und aktivieren.

[r29d43]

Danke, hat geklappt. Timer hat auch funktioniert.

Und weil das so gut ging habe ich auch gleich noch einen Destructor analog zum Constructor dazu gesetzt. Was dann allerdings nicht mehr klappte und ich die IDE insgesamt closen musste weil dann ohne Ende immer wieder neu eine Exception auftauchte.

Braucht man keinen Destructor? Du hattest in deinem Beispiel ja auch keinen installiert.

Oder gibt es für den Fall der Deinstallation einen anderen Weg, zuvor erzeugte Objekte wieder freizugeben?

[himitsu]

Minimal:

* im

Delphi-Quellcode:

procedure Register;

erstellen
* im

Delphi-Quellcode:

finalization

freigeben

* hier kann man auch ein DataModul erstellen und da dann alles drauf



Ideal:

* in dem Interface, was man z.B. im

Delphi-Quellcode:

Register

registriert
* dort im Constructor alles erstellen und im Destructor freigeben

[r29d43]

Wie geht das Free'n in meinem Fall im finalization-Teil?

Der Timer, den ich zuvor im Constructor erzeugt habe, ist Bestandteil des Wizards und für den habe ich im finalization-Teil jetzt aber keine Variable, mittels der ich auf den Timer zugreifen und diesen free'n könnte. Nicht also wie bei VCL-Formularen z.B., wo ich ja unter der typen-Deklaration des neuen Forumlars dann auch immer eine Variable dieses neuen Formulartypes noch dazu deklariere.

[stahli]

Kannst Du Destroy vom Wizard selbst nutzen?

Delphi-Quellcode:

    TOTAToolWizard = class(TInterfacedObject, IOTAWizard)
      ...
    public
      constructor Create; virtual;
      destructor  Destroy; override;
    end;

Oder magst Du Dein Testprojekt mal hier anhängen?
Dann könnte man mal direkt drauf schauen.

[r29d43]

Ja perfekt, das 'override;' hatte gefehlt!
Jetzt läufts, Thx!

P.S. das virtual habe ich übrigens noch nie dahintergeschrieben, schlimm?

[stahli]

Gerne :-)

Nein, das virtual ist nur wichtig, wenn man von der Klasse mal noch eine weitere Klasse ableiten und den Konstruktor wiederum mit override überschreiben will.