Zitat von
tgoessi:
Wie kann ich das machen, dass die Collection nach dem externen Zugriff nicht zerstört wird. Muss ich ein anderes Objekt verwenden?
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;
Zitat von
tgoessi:
Eine Zusatzfrage:
Mit dem TAutoObject wird die Applikation automatisch gestartet, falls von Extern ein Zugriff auf die Active-X Schnittstelle erfolgt. Ich möchte das aber so haben, dass ich die Applikation manuell starten muss und erst dann der Zugriff auf die Daten über Active-X möglich sind. Wie muss ich das machen? Muss ich ein anderes Objekt als TAutoObject verwenden? welches?
Grundsätzlich gilt für Automatisierungsobjekte:
Objekte, die von Aussen erzeugt werden dürfen, haben in der TLB eine CoClass und werden durch TAutoObject repräsentiert.
Andere Objekte, die erst später erzeugt werden, werden durch TAutoIntfObject repräsentiert.
Wenn du nicht willst, dass dein Objekt von aussen erzeugt werden kann, gibt es 2 Möglichkeiten:
- CoClass in der TLB (und in der Projektdatei) löschen. TAutoIntfObject verwenden.
bei Initialization das TAutoObjectFactory.Create löschen
- in der TLB bei der CoClass das Flag "Erzeugen möglich" entfernen
Danach geht von "Aussen" aber zunächst gar nichts mehr.
Du musst nun dein Objekt in der Anwendung selbst erzeugen und in der ROT (Running Object Table) registrieren.
Der Client kann nun mit GetActiveOleObject() Zugriff auf dein Objekt erhalten; allerdings nur, wenn deine Anwendung schon läuft.