Hallo
Danke für den Tip aber so funktioniert es bei mir auch nicht.
Die Collection ist bei mir schon in einer Variable zwischengespeichert, da sie an einem Hauptobjekt angebunden ist.
Der Typ des Hauptobjekts ist TAutoObject, welches automatisch erzeugt wird. Beim Initialisieren des Hauptobjekts (Initialize) wird die Collection vom Typ TAutoIntfObject erzeugt und in der internen Variablen FSetupData zwischengespeichert. Beim Aufruf von GetMyCollection wird nur die interne Variable FSetupData zurückgegeben.
Der Grund. In der Collection werden Konfigurationsdaten gespeichert, die beim Erzeugen des Hauptobjekts da hineingeschrieben werden. Wird die Collection nach einem Zugriff gelöscht, sind die Daten auch weg.
Liege ich hier falsch oder funktioniert das dynamisch, d.h. bei jedem Aufruf der Collection müssen die Konfigurationsdaten neu geladen werden?
Gruss
Tom
Du musst die Collection in einer Variablen zwischenspeichern.
Also angenommen, dein Haupt- oder Einstiegsinterface sieht so aus:
Delphi-Quellcode:
IApplication = interface(IDispatch)
['{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}']
function GetMyCollection:IMyCollection;safecall;
end;
Dann sieht die Implementierung ungefähr so aus:
Delphi-Quellcode:
T_Application = class(TAutoObject, IConnectionPointContainer, IApplication)
private
FMyCollection : IMyCollection;
protected
function GetMyCollection:IMyCollection;safecall;
end;
function T_Application.GetMyCollection:IMyCollection;safecall;
begin
// die Collection wird beim 1. Mal erzeugt und "lebt" dann weiter bis zum Ende
// oder bis FMyCollection auf nil gesetzt wird
if not Assigned(FMyCollection) then
FMyCollection := TMyCollection.Create(ComServer.TypeLib, IMycollection);
Result := FMyCollection;
end;