XML in Threads

[Luckie]

Ich erstell ein XML-Dokument innerhalb eines Threads (TThread). Leider schlägt das Erstellen des DOMDokumentes fehl:

Delphi-Quellcode:

XMLDoc := CoDOMDocument.Create;

Ausserhalb eines Threads hat es wunderbar funktioniert. Muss ich noch irgwendwas beachten, initialisiern (Ich meine, da war mal was gewesen: :gruebel:) oder so?

[sakura]

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

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.

...:cat:...

[Luckie]

Hm. Ich habe es jetzt so:

Delphi-Quellcode:

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

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

Aber das:

Delphi-Quellcode:

XMLDoc := CoDOMDocument.Create;

funktioniert immer noch nicht. XMLDoc ist immer noch nil. :?

Aufruf:

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.

[sakura]

Zitat:

Zitat von Luckie

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

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

...:cat:...

P.S.: Nutze

Delphi-Quellcode:

XMLDoc := CoFreeThreadedDOMDocument.Create;

, damit Du das XML Objekt auch sicher ohne Critical Sections ausserhalb des erstellenden Threads nutzen kannst.

[Luckie]

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