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)?