Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: LibreOffice/OpenOffice Automation TerminateListener

  Alt 5. Okt 2015, 15:56
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
  Mit Zitat antworten Zitat