Ich erstell ein XML-Dokument innerhalb eines Threads (TThread). Leider schlägt das Erstellen des DOMDokumentes fehl:
XMLDoc := CoDOMDocument.Create; Ausserhalb eines Threads hat es wunderbar funktioniert. Muss ich noch irgwendwas beachten, initialisiern (Ich meine, da war mal was gewesen: ) oder so?

Ja, jeder Thread muss auf COM-Objekte vorbereitet werden. Für den Anwendungsthread macht Delphi das automatisch.

zusammenfalten · markieren

Delphi-Quellcode:

uses
  ActiveX;

constructor TMyThread.Create(Suspended: Boolean);
begin
  ...
  CoInitialize(nil); //evtl. mit "Ex" am Ende...
end;

destructor TMyThread.Destroy;
begin
  ...
  CoUninitialize;
  inherited;
end;

Wichtig: CoInitialize und CoUninitialize müssen gleich oft aufgerufen werden. Also evtl. alles in der Execute-Methode und ein try...finally drumrum, sonst gibt es im Programm später böse AVs oder anderes unerklärliches Verhalten.

......

Hm. Ich habe es jetzt so:

zusammenfalten · markieren

Delphi-Quellcode:

constructor TSave.Create(Suspended: Boolean);
begin
  inherited Create(Suspended);
  CoInitialize(nil);
end;

destructor TSave.Destroy;
begin
  CoUninitialize;
  inherited;
end;

Aber das:
XMLDoc := CoDOMDocument.Create; funktioniert immer noch nicht. XMLDoc ist immer noch nil.

Aufruf:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.tbbSaveClick(Sender: TObject);
var
  Save : TSave;
begin
  if SaveDialog1.Execute then
  begin
    Save := TSave.Create(True);
    try
      try
        Save.FreeOnTerminate;
        Save.Filename := SaveDialog1.FileName;
        Save.IEVect := ImageEnVect1;
        Save.OnProgress := Progress;
        Save.OnFinish := Finish;
        Save.Resume;

Update: Wenn es in der Execute Methode steht funktioniert es.

Zitat von Luckie:

Update: Wenn es in der Execute Methode steht funktioniert es.

Stimmt, Grund: das Objekt des Threads gehört dem aufrufenden Thread. Erst Execute wird in einem neuen Thread aufgerufen.

......

P.S.: Nutze XMLDoc := CoFreeThreadedDOMDocument.Create; , damit Du das XML Objekt auch sicher ohne Critical Sections ausserhalb des erstellenden Threads nutzen kannst.

Danke für den Tipp. Das hat gleich noch einen Seiteneffekt behoben.