Comment ouvrir un fichier OpenOffice avec Delphi ??
il indique OpenOffice non déclaré !!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Var OpenDesktop : Variant; LoadParams : Variant; NomFichier : AnsiString; begin OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop'); LoadParams := VarArryCreate([0, -1], varVariant); NomFichier := StringReplace('C:\demo.sxw','\','/',[rfReplaceAll, rfIgnoreCasel); Document := openDesktop.LoadComponentFromURL('file:///'+NomFichier, '_blank', 0, LoadParams); end;
Partager