LibreOffice/OpenOffice Automation TerminateListener

[DugDev]

kann mir jemand bei der Fernsteuerung von LibreOffice/Openoffice helfen?

Wie wird in Delphi der TerminateListener implementiert?

es gibt folgende Funktion:

XDesktop := ServiceManager.createInstance ('com.sun.star.frame.XDesktop');

XDesktop.AddTerminateListener(TerminateListener)


was muss TerminateListener für ein Object sein und wie komme ich an das Interface XTerminateListener?

hier der Link zur API:
http://api.libreoffice.org/docs/idl/...1XDesktop.html

Vielen Dank für Eure Hilfe.

[TiGü]

TerminateListener muss ein Objekt sein, was das Interface XTerminateListener implementiert.
Das musst du wahrscheinlich selber implementieren.

Aus der hohlen Hand mal runtergetippt:

Delphi-Quellcode:

 
 XTerminateListener = interface(XEventListener)
  [Irgendeine_GUID_die_wohl_schon_vorhanden_ist]
    procedure queryTermination(const Event : EventObject); stdcall;
    procedure notifyTermination(const Event : EventObject); stdcall;
  end;

  TDeineLustigeKleineListenererKlasse = class(TInterfacedObject, XTerminateListener)
  public
    procedure notifyTermination(const Event: EventObject); stdcall;
    procedure queryTermination(const Event: EventObject); stdcall;
  end;

...

{ TDeineLustigeKleineListenererKlasse }

procedure TDeineLustigeKleineListenererKlasse.notifyTermination(const Event: EventObject);
begin
  Writeln('notifyTermination wurde gerufen!');
end;

procedure TDeineLustigeKleineListenererKlasse.queryTermination(const Event: EventObject);
begin
  Writeln('queryTermination wurde gerufen!');
end;

...

var
  DeinXDesktop : XDesktop;
  DeinListener : XTerminateListener; 
begin
  DeinXDesktop := ServiceManager.createInstance ('com.sun.star.frame.XDesktop');
  DeinListener := TDeineLustigeKleineListenererKlasse.Create;
  DeinXDesktop.addTerminateListener(DeinListener);
end;

[DugDev]

vielen Dank für die schnelle Antwort.

..aber, wo befindet sich XEventListener ???
brauch ich eine Typelibrary? Wenn ja, wie kann ich die erzeugen.
(Mit Typelibrary importieren.... aber welche von den zig Dlls aus denen Openoffice besteht).


XTerminateListener = interface(XEventListener)
[Irgendeine_GUID_die_wohl_schon_vorhanden_ist]
procedure queryTermination(const Event : EventObject); stdcall;
procedure notifyTermination(const Event : EventObject); stdcall;
end;

für Java gibt es in der SDK das Interface:
http://api.libreoffice.org/docs/idl/...dl_source.html

[TiGü]

Zitat von DugDev:

..aber, wo befindet sich XEventListener ???
brauch ich eine Typelibrary? Wenn ja, wie kann ich die erzeugen.
(Mit Typelibrary importieren.... aber welche von den zig Dlls aus denen Openoffice besteht).

Woher haste denn die Definition des Interfaces für XDesktop?

[DugDev]

var
DeinDesktop: OleVariant;
begin
DeinXDesktop := ServiceManager.createInstance ('com.sun.star.frame.XDesktop');


DeinDesktop ist OleVariant.

Das Interface XDesktop habe ich auch nicht.

[TiGü]

Zitat von DugDev:

var
DeinDesktop: OleVariant;
begin
DeinXDesktop := ServiceManager.createInstance ('com.sun.star.frame.XDesktop');


DeinDesktop ist OleVariant.

Das Interface XDesktop habe ich auch nicht.

Das wird ja ganz schön gruselig!

Zitat von http://www.freepascal.org/~michael/articles/openoffice1/openoffice.pdf:

All OpenOffice programming in Delphi must be done using variants which hold a refer-
ence to an OpenOffice interface obtained through COM: There is no TLB describing the
OpenOffice API available, so it would be a lot of manual work to create all interface defi-
nitions

So wie es ausschaut, musst du dir das alles selber zusammenknüppeln, also alles per Hand definieren.
Am besten machst du dir Kopien der entsprechenden IDL-Dateien (welche du brauchst steht in der Doku) und öffnest die in deiner Delphi-IDE.
Dann erstmal als PAS-Datei abspeichern und solange den ganzen C++/IDL-Kram umschreiben, bis Pascal draus geworden ist,

Oder guck mal, ob dir das hier weiterhilft:
http://stackoverflow.com/questions/2...dl-into-delphi