MSXML im Dienst

[Mr_G]

Hallo zusammen,
ich habe (wie schon in einem Thread von im erwähnt) das Problem, das nach beenden meines Dienstes ein "Problembericht senden"-Fenster auftaucht. Ich habe MSXML als übeltäter entlarvt, weiß aber nicht warum es da nun Probleme gibt. Hier mal der Code:

Delphi-Quellcode:

CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
XMLSchedule := CoDOMDocument40.Create;
XMLSchedule.setProperty('NewParser', true);
if not XMLSchedule.load(FILE_SCHEDULE) then
  XMLSchedule.loadXML('<?xml version="1.0" ?><timetable version="0.2" />');

if XMLSchedule.parseError.errorCode <> 0 then
  ExecError := $3E80
else if XMLSchedule.documentElement.nodeName <> 'timetable' then
  ExecError := $3E81
else
  begin
    ScheduleVersion := XMLSchedule.documentElement.attributes.
      getNamedItem('version').text;
    if ScheduleVersion > '0.2' then
      ExecError := $3E82;
  end;

Dieser Code wird beim Initialisieren des Dienstes ohne Fehler ausgeführt. Beim Beenden wird dann noch CoUninitialize aufgerufen. Ich habe sämtliche Bearbeitung (die problemlos funktioniert) testweise auskommentiert um Fehler dort auszuschließen.
Woran könnte das liegen (evtl. etwas in Bezug auf COM)?

[himitsu]

Hast du es mal ohne CoUninitialize versucht?
Vielleicht ist seitens MSXML nocht nicht alles aufgeräumt wurden.

Ansonsten MSXML einfach nicht nutzen.

[Mr_G]

Hab ich versucht... leider ohne Wirkung
MSXML nicht zu nutzen ist leider keine Option...

[mjustin]

Zitat von Mr_G:

Ich habe MSXML als übeltäter entlarvt, weiß aber nicht warum es da nun Probleme gibt.

Werden Variablen als TXMLDocument deklariert? Das ist eine häufige Fehlerursache.
Es sollte stattdessen immer das Interface IXMLDocument als Typ verwendet werden.

[Mr_G]

Das ist leider nicht das Problem. Die Variable ist als IXMLDOMDocument2 deklariert.

[Angel4585]

Hast du mal andere Parameter beim CoInitializeEx versucht?

[Mr_G]

Ich habe mal COINIT_MULTITHREADED ausprobiert aber auch das hat nicht geholfen.

[himitsu]

jupp, also auch mal COINIT_MULTITHREADED oder einfach nur CoInitialize(nil) ?

[Mr_G]

Auch das bringt nicht den gewünschten Erfolg... Aber beim testen ist mir aufgefallen, dass ich scheinbar nur zu hektisch bin: Ich habe den Dienst jeweils gestartet und dann direkt gestoppt. Wenn ich ein bisschen Zeit vergehen lasse beendet sich der Dienst korrekt. Außerdem musste ich noch das CoUninitialize herausnehmen, da sich der Dienst mit CoUninitialize beim Beenden immer verschluckt.
Was mach ich denn nun?

[Angel4585]

Hats du vor dem CoUninitialize das XML-Objekt freigegeben?