Hallo,
Zitat von
MasterEvil:
Warum das passiert versteh ich jetzt, nur weiss ich nicht wie ich ohne das TInterfacedObject arbeiten soll.
Ich muss das ja erzeugen, um der
DLL mein Interface zu geben.
Deine Klasse musst Du natürlich als TInterfacedObject deklarieren. Was Du aber nicht machen darfst, ist folgendes:
Delphi-Quellcode:
type
TMyClass = class(TInterfacedObject, IMyInterface)
end;
procedure MachWas(MyInterface: IMyInterface);
begin
//
end;
var
MyClass: TMyClass;
begin
MyClass := TMyClass.Create;
MachWas(MyClass);
MyClass.Free; // <- hier knallts
end;
Stattdessen:
Delphi-Quellcode:
var
MyInterface: IMyInterface;
begin
MyInterface := TMyClass.Create;
MachWas(MyClass);
MyInterface := nil;
end;
Also durchgängig mit Interfaces arbeiten. Ich weiß aber gar nicht, ob Du sowas überhaupt machst.
Bei Interfaces ist es übrigens tatsächlich immer ratsam, mit
const zu arbeiten. Ich hab mich schon gefragt, warum Delphi das nicht automatisch macht.
Gruß
xaromz