OpenOffice/LibreOffice Automation mit XCloseListener-Implementierung

[devidespe]

Hallo zusammen,

zum Thema OpenOffice/LibreOffice Automation wurde ja vereinzelt schon etwas geschrieben, und die grundsätzliche Handhabung mit dem Öffnen, Speichern und Schließen von bspw. Dokumenten über den Writer funktioniert problemlos.

Allerdings benötigen wir zusätzlich ein Event, auf das im Delphi-Code gesondert reagiert werden muss, wenn der Anwender sein geöffnetes Dokument manuell schließt. Dazu haben wir zwar bisher den Ansatz mit XCloseListener gefunden (https://www.openoffice.org/api/docs/...eListener.html), aber nirgends eine Orientierung, wie das in den bestehenden Delphi-Code eingefügt werden kann.

Der bisherige Ansatz sieht so aus:

Delphi-Quellcode:

type
  TCloseListener = class(TAutoObject, ICloseListener)
  protected
    procedure queryClosing(Sender: OleVariant; GetOwnership: Boolean);
    procedure NotifyClosing(Sender: OleVariant);
  end;
  
   ICloseListener = interface(IDispatch)
    ['{6F3B6E05-D7AB-4499-BE39-1F300F6297A1}']
    procedure queryClosing(Sender: OleVariant; GetOwnership: Boolean);
    procedure NotifyClosing(Sender: OleVariant);
  end;

var
  ServiceManager,
  Desktop,
  Params,
  Param,
  Document : OleVariant; //alternativ Variant
  MyListener: IInterface;

begin
  ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
  Desktop := ServiceManager.CreateInstance('com.sun.star.frame.Desktop');
  Param := ServiceManager.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
  Param.Name := 'Hidden';
  Param.Value := False;
  Params := VarArrayCreate([0, 0], varVariant);
  Params[0] := Param;
  Document := Desktop.LoadComponentFromURL('private:factory/swriter', '_default', 0, Params);

  Param.Name := 'FilterName';
  Param.Value := 'Text';
  MyListener := TCloseListener.Create;
  Document.AddEventListener(MyListener);  

  // Document.StoreAsURL('file:///c:/temp/test.odt', Params); {Speichern}
  // Document.Close(True); {Schließen}

Hat jemand noch eine Idee oder einen Tipp, wie das zu bewerkstelligen ist?