Ich bin da weiterhin am Üben.
Die Klassendefinition habe ich geändert, so dass nun TEmailCoreObject ein
Nachkomme von TidIMAP4 ist.
Code:
TYPE
TEmailCoreObject = CLASS(TidIMAP4)
PRIVATE
(* Private-Deklarationen *)
OpenSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
PUBLIC
(* Public-Deklarationen *)
PROCEDURE OpenEmail(VAR IMAPClientExtd: TEmailCoreObject);
PROCEDURE CloseEmail(VAR IMAPClientExtd: TEmailCoreObject);
END;
Nun einige Fragen:
- Wenn ich eine Instanz von TEmailCoreObject erzeuge, ist dann das CREATE nur
für diese Instanz notwendig oder zusätzlich auch für TidIMAP4 ?
- Die Klasse TEmailCoreObject kommt auch als Parameter in den Methoden vor,
z.B. in OpenEmail(..). Ist das ein unzulässiger Schwanzbeisser oder geht das ?
- Wie kann ich ganz einfach feststellen, ob ein Objekt richtig erzeugt wurde ?
(am liebsten mit Debugger)