LibreOffice/OpenOffice Automation TerminateListener

[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