Delphi Out of process Comserver als single Instance

Thema durchsuchen

Ansicht

Themen-Optionen

Out of process Comserver als single Instance

Ein Thema von hanspeter · begonnen am 3. Sep 2009 · letzter Beitrag vom 4. Sep 2009

Antwort

hanspeter

Registriert seit: 26. Jul 2003
Ort: Leipzig
1.350 Beiträge

Delphi XE2 Professional

Re: Out of process Comserver als single Instance

4. Sep 2009, 10:55

So jetzt habe ich es hinbekommen.

Der Server wird mit nachfolgender Anweisung initialisiert.

markieren

Delphi-Quellcode:

			 TTypedComObjectFactory.Create(ComServer, TMyComServer, Class_MyComServer,

    ciMultiInstance   , tmFree   );

tmFree erzeugt automatisch einen neuen Thread.
Das Teil verhält sich wunschgemäß.
Beim Starten des ersten Client wird eine Instanz erzeugt.
Beim Starten weiterer Clients ist nur eine Instanz vorhanden.
Mit dem Schließen des letzten Client, wird der Server geschlossen.

Gruß Peter