COM-Objekte innerhalb von Threads

**CalganX**

Hi,
ah, eine Veränderung.
Nachdem ich nun das Erstellen des COM-Objekts in das OnStart verlagert habe und CoInitializeEx mit COINIT_MULTITHREADED verwende, startet der Dienst zumindest:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TInfoTunesService.ServiceCreate(Sender: TObject);

begin

  CoInitializeEx(nil, COINIT_MULTITHREADED);

end;

procedure TInfoTunesService.ServiceDestroy(Sender: TObject);

begin

  CoUninitialize;

end;

procedure TInfoTunesService.ServiceStart(Sender: TService;

  var Started: Boolean);

begin

  FTunesInstance := CoiTunesApp.Create;

  FTCPServer := TTCPDaemon.Create;

  FTCPServer.FTunesInstance := FTunesInstance;

  Started := true;

end;

Jedoch bekomme ich jetzt folgende Nachricht von Windows beim Starten des Dienstes:

Zitat:

---------------------------
Dienste
---------------------------
Dienst "InfoTunes-Service" wurde auf "Lokaler Computer" gestartet und dann angehalten. Einige Dienste werden automatisch angehalten, wenn sie sich im Leerlauf befindet, wie z. B. Leistungsprotokoll- und Alarmdienste.
---------------------------
OK
---------------------------

Im OnExecute steht aber:

markieren

Delphi-Quellcode:

			procedure TInfoTunesService.ServiceExecute(Sender: TService);

begin

  // Endlosschleife ftw

  while not Terminated do begin

    ServiceThread.ProcessRequests(True);

  end;

end;

Chris

Edit: madExcept ist ein guter Tipp, danke. Dummerweise funktioniert das nicht, weil ich im Moment mit Turbo Delphi entwickle und er das Paket nicht laden kann (ich nehme an, weil man bekanntlich keine Dritt-Anbieter-Komponenten installieren kann).

COM-Objekte innerhalb von Threads

Re: COM-Objekte innerhalb von Threads

Forumregeln