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?