Zugriffsverletzung am Ende einer Funktion

[Angel4585]

Hallo,

ich bekomme am Ende einer Funktion ne Zugrifssverletzung:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt SNScreen.exe ist eine Exception der Klasse Zugriffsverletzung ($C0000005) mit der Meldung 'access violation at 0x0040a53a: read of address 0x02c56d00' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Delphi-Quellcode:

function TMyClass.MyFunction:TObjectList;
var 
MyObject : TMyObject;
LXML : IXMLDocument;
begin
Result:=TObjectList.Create(False);
CoInitializeEx(nil,COINIT_MULTITHREADED);
try
  //Hier werden mit TXMLDocument Daten aus einer XML Datei ausgelesen und in Objekte gepackt. Diese Objekte werden dann Result zugewiesen
  Result.Add(MyObject);
finally
  Result.Sort(MyCompare);
  CoUninitialize;
  end;
end;//Wenn der Debugger von hier weiterspringt kommt direkt die Zugriffsverletzung

Woran kann das liegen? Meine Glaskugel ist irgendwie kaputt heute :glaskugel:
Seltsam ist, dass die Zugriffsverletzung erst beim zweitenmal kommt, beim ersten Durchlaufen der Funktion klappt das problemlos.
Die Liste in Result wird korrekt erstellt, gibt also wie ich finde kein Grund hier zu meckern.
Oder hats mit dem CoInitializeEx zu tun?

[nahpets]

Hallo,

veschieb mal CoInitializeEx und CoUninitialize in den Initialisierungsteil der Unit und nimm es aus der Funktion heraus:

Delphi-Quellcode:

initialization
  CoInitializeEx(nil,COINIT_MULTITHREADED); 

finalization
  CoUninitialize;

end.

[Angel4585]

So hatte ich das davor, da kommt dann in der Funktion die Meldung, dass das OLE Gedöns nicht initialisiert wurde :gruebel:

[himitsu]

Diese Funktion wird nicht in einem Thread ausgeführt?

[Angel4585]

Teils teils, diese Unit wird in zwei Projekten verwendet, einmal wird die Funktion in einem Thread, das anderemal nicht in einem Thread verwendet.

[himitsu]

Das CoInitialize(Ex) muß (glaub ich) für jeden Thread geladen werden, wo etwas davon genutzt wird.

Ich würde da einmal den Ort aus Post #2 vorschlagen
und dann auch noch am Anfang/Ende der Threadbearbeitung (im .Execute)

[Angel4585]

Muss ich CoUnintialze für jedes aufgerufene CoInitialize einmal aufrufen oder nur insgesamt einmal am Ende des Programms?
Sonst ruft nämlich ein Thread am ende das Ding auf und alle andern können nichtmehr arbeiten.

[Bernhard Geyer]

Sorge dafür das alle lokalen Variablen die Auf COM-Interfaces zeigen vor dem Aufruf von CoUninitialize auf nil gesetzt werden.

Ansonsten hast du Interface-zeiger die beim verlassen der Funktion automatisch "genil'd" werden und dann mit ungültigen COM-Subsystem irgendwas machen.

[himitsu]

Es dürfte eine Referenzzählung vorhanden sein, also je CoInitialize ein CoUninitialize.

(Un)Initialisiere es in der Thread-HauptProzedur (.Execute), aber verwende dort keine Interfaces, denn
[edit] ich würde ja gerne den entsprechenden Thread verlinken, aber die Forensuche läd einfach nicht.