|
Registriert seit: 16. Apr 2007
2.325 Beiträge
Turbo Delphi für Win32
|
Re: callback funktion bringt fehler
20. Aug 2009, 16:20
1. TTestCallback ist ein Funktionszeiger, kein Methodenzeiger. Nimm also entweder dein MyCallback aus der Klasse heraus oder verwandle TTestCallback mit der of-object-Klausel in einen Methodenzeiger.
2. Die Aufrufkonvention ist falsch. Bei MyCallback hast du stdcall genommen, bei TTestCallback Register (oder wie auch immer das bei FreePascal heißt).
3. Was soll dieses Rumgemurkse in TTestKlasse? Warum leitest du von TPersistent ab, warum führst du einen Konstruktor ein und überschreibst den Destruktor? Warum published? Weißt du überhaupt, was du tust? Der Hinweis "extra wichtig, sonst kein Event" ist übrigens unzutreffend.
4. FreePascal verlangt im Gegensatz zu Delphi ein @ bei der Ermittlung eines Methodenzeigers; das müsste also @self.MyCallback heißen.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
|