ich hab das jetzt mal auf mehrere Interfaces umgestellt und was ist?
es geht nix mehr
Zitat:
Deklaration von 'ObjectType' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
Deklaration von 'CheckString' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
E2211 Deklaration von 'CheckBinary' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
Undeklarierter Bezeichner: 'CheckBinaryP'
Deklaration von 'AcceptOper2' unterscheidet sich von der Deklaration in Interface 'IOperatorInterfaceBinar'
.....
es gibt also ein Hauptinterface mit der Objektverwaltung
und dann noch mehrere für due "Zusatzfunktionen",
so weit so gut
Delphi-Quellcode:
IOperatorInterface = Interface['{36BE8FFE-9DAE-456E-894F-8DBD15205490}']
Function QueryInterface(Const IID: TGUID; Out Obj): HResult; StdCall;
Function _AddRef: Integer; StdCall;
Function _Release: Integer; StdCall;
Function CreateInstance: IOperatorInterface;
Function GetType: TOperatorClass;
Function GetObject: TOperatorObject;
Function ObjectType: TOperatorObjectType;
Function CheckString (Const Value: AnsiString): Boolean;
Procedure LoadFromString(Const Value: AnsiString);
Function SaveToString: AnsiString;
Function CheckBinary (Const Value: TBinaryArray): Boolean;
Procedure LoadFromBinary(Const Value: TBinaryArray); Overload;
Function SaveToBinary: TBinaryArray; Overload;
Function CheckBinaryP (P: Pointer; Size: LongInt): Boolean;
Procedure LoadFromBinary(P: Pointer; Size: LongInt); Overload;
Function SaveToBinary (P: Pointer; Size: LongInt): LongInt; Overload;
Function GetBinarySize: LongInt;
Function AcceptOper2 (Op: TOperatorOperation; Oper2: IOperatorInterface): Boolean;
End;
IOperatorInterfaceAssign = Interface(IOperatorInterface)['{36BE8FFE-9DAE-456E-894F-8DBD15205491}']
// ooAssign
Procedure Assign (Obj: IOperatorInterface);
End;
IOperatorInterfaceCompare = Interface(IOperatorInterface)['{36BE8FFE-9DAE-456E-894F-8DBD15205492}']
// ooCompare
Function Compare (Const Oper2: IOperatorInterface): TValueRelationship;
End;
......
die Zusatzinterfaces erben nun auch gleich mal die Eigenschaften des Basisinterfaces (wegen der Refferenzzählung und so)
dieses ist dann auch im Basisobject angegeben
Delphi-Quellcode:
TOperatorObject = Class(TObject, IOperatorInterface)
Protected
FRefCount: LongInt;
Function QueryInterface(Const IID: TGUID; Out Obj): HResult; StdCall;
Function _AddRef: Integer; StdCall;
Function _Release: Integer; StdCall;
Public
Procedure AfterConstruction; Override;
...
hier gibt's auch noch keine Probleme,
aber wenn ich in einem der "Nachkömmlinge" dann die zusätzlichen Interfaces mit angebe,
dann wollen die plötzlich da nochmals die Funktionen der Interface-/Instanzenverwaltung implementieren bzw meckern über die dort angegebenen Funktionen (welche eigentlich nur die Definitionen in der Basisklasse überschreiben).
ja und die meckern auch, wenn in den Subklassen Definitionen fehlen, welche ja eigentlich in der Basisklasse definiert sind, da sie vom Basisinterface stammen.
[add]
so, nachdem ich noch ein paar kleine Problemchen elliminietrt hab...
es scheint nur noch Probleme mit diesen umgeleiteten Funktionen zu geben
Delphi-Quellcode:
TOperatorObject = Class(TObject, IOperatorInterface)
Private
Function IOperatorInterface.ObjectType = Interface_ObjectType;
Function IOperatorInterface.CheckString = Interface_CheckString;
Function IOperatorInterface.CheckBinary = Interface_CheckBinary;
Function IOperatorInterface.CheckBinaryP = Interface_CheckBinaryP;
Function IOperatorInterface.AcceptOper2 = Interface_AcceptOper2;
hmmm, ich werd mal versuchen diese in ein eigenes Interface zu verschieben.
[edit]
Anhang gegen neuere Version ausgetauscht