OLE-Excel Verbindung schließen: Excel.exe Prozess bleibt bstehen

[owow]

ein Workaround ist folgendes: eine neue Prozedur erstellen in der alles gemacht wird was voher in btnCreateClick gemacht wurde, diese dann bei btnCreateClick aufrufen

Delphi-Quellcode:

procedure TForm1.create_close;
begin
  try
  try
    ExcelObj:=CreateOleObject('Excel.Application');
    ExcelObj.Visible:= false;
    ExcelObj.DisplayAlerts:=false;
    ExcelObj.UserControl := false;
  except
    on e: exception do
    begin
     ShowMessage(e.Message+#13#10+
      'Kein Excel installiert?');
     exit;
    end;
  end;
 finally
    close_excel;
 end;
 //close_excel;
end;

procedure TForm1.btnCreateClick(Sender: TObject);
begin
 create_close;
 ShowMessage('pause'); //Excel wird nun schon vor dem Klick auf "OK" korrekt beendet
end;

wieso das funktioniert kann ich mir aber noch nicht erklären, habt ihr eine Idee?

[ASM]

Zitat von owow:

Excel wird nun schon vor dem Klick auf "OK" korrekt beendet
wieso das funktioniert kann ich mir aber noch nicht erklären, habt ihr eine Idee?

Ich möchte als mir momentan einzig plausible Erklärung vermuten, dass der Referenzzähler auf die Out-of-Process Server-Instanz des COM-Objekts, welches lokal, innerhalb der Prozedur durch späte Bindung erzeugt worden ist, erst beim effektiven Verlassen dieser Prozedur wieder zurückgesetzt wird. Solange aber der Referenzzähler>0 ist, bleibt eben die Server-Instanz (hier: Excel) als Prozess zunächst noch im Speicher erhalten, auch wenn dieses Objekt bereits von Delphi in dessen eigenem Kontext innerhalb der Prozedur auf Unassigned gesetzt worden ist.

[Pitschki1801]

Bei mir wurde der Prozess nach dem Ok click beendet.
Mir scheint die Erklärung von ASM ebenfalls recht plausibel zu sein. Wird der Prozess vllt erst mit dem schließen des Programmes freigegeben, wenn du keine Showmessage hast?

[Pitschki1801]

Ich hab jetzt nochmal bisschen getestet und kann die Aussage von ASM bestätigen.
Würdest du zum Beispiel den CreateOleObject drei mal, in einer Procedure, aufrufen hättest du auch drei Prozesse bis die Procedure beendet ist, auch wenn du die Objecte bereits unassigned hast.
Daher macht es Sinn, was du ja bereits getan hast, eine Create-Procedure für das Excel zu definieren. Je nachdem was du mit dem Excel-Object noch vor hast, würde ich die Excel-Thematik in eine eigene Unit verschieben und eine Art Handler schaffen.