Ok ich hab mal einen kleinen Umweg versucht:
Delphi-Quellcode:
Type
IIntfTbl = Interface
['{C93CB029-F127-493C-9A65-8C5E446BE830}']
Function GetObjInterfaceTable: PInterfaceTable; StdCall;
End;
{...}
TBasisModulDingens = Class( TInterfacedObject, {viele weitere Interfaces...}, IIntfTbl )
{...}
Protected
{ Protected-Deklaration }
Function GetObjInterfaceTable: PInterfaceTable; StdCall;
{...}
End;
{...}
Function TBasisModulDingens.GetObjInterfaceTable: PInterfaceTable;
Begin
Result := GetInterfaceTable;
End;
{...}
Nunja aber da is das Result immer Nil... liegt wohl daran, dass das Interface über eine
DLL eingeladen wird, da fehlen wohl die
RTTI...
Richtig?
Nunja kann man das dennoch irgendwie realisieren?
Bye Christian