LibreOffice/OpenOffice Automation TerminateListener

[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