Im Nachhinein glaube ich, mich etwas zu kompliziert ausgedrückt zu habe. Ich versuche es nochmal einfacher:
Hier mein Interface und die Klasse, die es einbindet:
Code:
ITest = interface
['{93942268-B484-4BBD-A907-CA8B8B5208BF}']
end;
TTest = class(TInterfacedObject, ITest)
end;
Dann erstelle ich mein Objekt:
Code:
var
test: TTest;
begin
test := TTest.Create;
end;
Und jetzt möchte ich per GetInterface wissen, ob mein Objekt das ITest interface implementiert:
Code:
var
testint: ITest;
begin
if test.GetInterface(itest, testint) then
begin
//hier geht schon nix mehr, weil test freigegeben wurde
end;
end;
Das ist doch ein Grundlagen-Problem oder? Irgendwie fehlt mir der Durchblick.
Hilfe
Danke im Voraus,
Fingolfin