[gelöst] Interface als published property geht nicht

[mse]

@mse: Eigentlich funktionieren jetzt COM Interface Properties im Designer von Lazarus.

In Anwendungen ist die Kombination von tobject.destroy() und COM-Interface trotzdem problematisch. Es ist besser statdessen CORBA-Interface zu verwenden.

Kannst du mir erklären, warum ich unter 32bit ein Offset von 48 und bei 64bit ein Offset von 88 habe, wenn ich testen will, ob der Zeiger auf AComponent gleich Zeiger auf ObjectHasInterface ist?! (ObjectHasInterface ist eine Instanz von TCompInterface = class(TComponent, ITestInterface) )

Wie sieht GetObjectHasInterface() aus?

Code: Alles auswählen

 
 result:= FObjectHasInterface;
 

?
Dann ist ObjectHasInterface kein pointer auf eine TCompInterface Instanz sondern ein pointer auf einen Eintrag in der Interface-Tabelle des Objektes, welches ITestInterface implementiert. Wo dieser Eintrag innerhalb der Objektinstanz liegt ist ein "undocumented implementation detail" und von der Pointergrösse abhängig.
Um zu testen ob ObjectHasInterface von AComponent implementiert wird:

Code: Alles auswählen

 
 if AComponent.IsImplementorOf(ObjectHasInterface) then begin
 end;
 

Schneller ginge es den instance offset aus der Interfacetabelle herauszulesen, ich weiss nicht, ob FPC dies erlaubt.

[Michl]

Danke für die ausführliche Erklärung!

Um zu testen ob ObjectHasInterface von AComponent implementiert wird:

Code: Alles auswählen

 
 if AComponent.IsImplementorOf(ObjectHasInterface) then begin
 end;
 

Das war der mir fehlende Punkt. Es ist jetzt gut so und funktioniert augenscheinlich.

CORBA ist nochmal ein neues Thema.

[mse]

Noch etwas, vergiss nicht TComponent.FreeNotification() aufzurufen wenn die Implementor-Komponente zu einem anderen Modul gehört, sonst bekommst du vom destroy() nichts mit.