Ouvrir OpenOffice sous Delphi

**alain24aydin** · 08/10/2015, 00h15

Comment ouvrir un fichier OpenOffice avec Delphi ??

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;

il indique OpenOffice non déclaré !!!

**SergioMaster** · 08/10/2015, 07h01

Bonjour,

il indique OpenOffice non déclaré !!!

Normal OpenOffice dans votre programme est une variable OleObject (variant) qu'il faut créer
une petit tour dans la

http://delphi.developpez.com/faq/?pa...OpenOffice-org

**Barbibulle** · 08/10/2015, 10h49

Si le but c'est juste ouvrir un fichier (sans pilotage) un simple shellexecute suffit.

**alain24aydin** · 08/10/2015, 12h28

Et quand je met juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Var 
   OpenOffice : Variant; 
   Document  : Variant; 
 
Begin 
    if  VarIsEmpty(OpenOffice) then 
        OpenOffice := CreateOleObject('com.sun.star.ServiceManager'); 
end;

Il me met CreateOleObject non déclaré.

**tourlourou** · 08/10/2015, 13h26

Et si tu ajoutes OleAuto.pas à la clause uses ?

**alain24aydin** · 08/10/2015, 14h35

Envoyé par tourlourou

Et si tu ajoutes OleAuto.pas à la clause uses ?

il me met fichier introuvable...

**tourlourou** · 08/10/2015, 14h50

Ça dépend sûrement des versions de Delphi : dans mon Delphi 5, il faut ajouter ComObj.

**alain24aydin** · 08/10/2015, 23h08

Pouvez vous me dire pour quel raison il m'indique "Opération de variant incorrecte"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button3Click(Sender: TObject);
var MoisPrincipal:integer;
    OpenOffice:variant;
    RepertoireAnnee:string;
    RepertoireAnneeURL:string;
    OpenDesktop:variant;
    LoadParams:variant;
    Document:variant;
begin
  OpenDesktop:=OpenOffice.createInstance('com.sun.star.frame.Desktop');   // il bug ici !!!
  LoadParams:=VarArrayCreate([0,0],varVariant);
  LoadParams[0] :=  OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
  LoadParams[0].Name := 'Hidden';
  LoadParams[0].Value := True;
  //LoadParams[0] := MakePropertyValue('Hidden', True);
  Document:=openDesktop.LoadComponentFromURL('file:///'+'c:\test.ods','_blank',0,LoadParams);
  //theWindow:=  Document.CurrentController.Frame.ContainerWindow;
  //theWindow.Visible:= False;
end;

**SergioMaster** · 09/10/2015, 07h51

Bonjour,

parce que openoffice (le variant qui est peut être créé ailleurs ?) est à nouveau déclaré dans la procédure et donc non assigné !
où est passé le code d'ouverture du service Open Office indiqué un peu plus haut ?

**alain24aydin** · 09/10/2015, 22h57

Si on reviens au code de départ, il me dit VarArryCreate Non déclaré !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
 Var
    OpenDesktop : Variant;
    LoadParams : Variant;
    OpenOffice : Variant;
    Document : Variant;
    NomFichier : AnsiString;
begin
    OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
    LoadParams := VarArryCreate([0, -1], varVariant);                       // VarArryCreate Non déclaré
    NomFichier := StringReplace('C:\demo.sxw','\','/',[rfReplaceAll, rfIgnoreCase]);
    Document := openDesktop.LoadComponentFromURL('file:///'+NomFichier, '_blank', 0, LoadParams);
end;

**SergioMaster** · 10/10/2015, 05h41

Bonjour,

normal encore, l'instruction s'écrit VarArray.Create

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
 Var
    OpenDesktop : Variant;
    LoadParams : Variant;
    OpenOffice : Variant;
    Document : Variant;
    NomFichier : AnsiString;
begin
    OpenOffice:= CreateOleObject('com.sun.star.ServiceManager');    
    OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
    LoadParams := VarArray.Create([0, -1], varVariant);
   .....

**alain24aydin** · 10/10/2015, 18h22

il indique "Type Record, Object ou class requis" pour VarArray.Create.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
 Var
    OpenDesktop : Variant;
    LoadParams : Variant;
    OpenOffice : Variant;
    Document : Variant;
    NomFichier : AnsiString;
begin
    OpenOffice:= CreateOleObject('com.sun.star.ServiceManager');
    OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
    LoadParams := VarArray.Create([0, -1], varVariant);
    NomFichier := StringReplace('C:\demo.sxw','\','/',[rfReplaceAll, rfIgnoreCase]);
    Document := openDesktop.LoadComponentFromURL('file:///'+NomFichier, '_blank', 0, LoadParams);
end;

**SergioMaster** · 11/10/2015, 08h18

Méa culpa, j'étais tellement fixé sur la faute de frappe du VarryrrayCreate et du Create manquant de OpenOffice que j'en ai fait une moi-même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 LoadParams := VarArrayCreate([0, -1], varVariant);

J'aimerais cependant éclaircir plusieurs choses
Tout est écrit correctement dans les FAQ OpenOffice, pour peu de bien recopier le code proposé
Comme indiqué dans cette FAQ (généralités FAQ n°2)

Déclarer les variables globales openOffice et Document et ajouter ComObj à la clauses Uses.

par variables globales comprenez bien qu'il faut que ces variables doivent être déclarées en dehors de la forme ou dans les parties private de cette dernière.
Pourquoi ? demanderez-vous : parce qu'il faudra bien aussi fermer openoffice après les traitements (qui généralement se font en dehors de la procédure d'ouverture du document)

PS. Vous n'avez pas indiqué quelle version de Delphi vous utilisiez mais je pense que c'est Delphi 7 et je crains qu'ayant un Windows 7 ou supérieur vous n'ayez pas accès à l'aide de la touche F1 ce qui est fort dommage

**alain24aydin** · 11/10/2015, 16h11

Je ne comprends plus rien !!!
Première fois que je vois ce message :

[Erreur fatale] Impossible de créer le fichier de sortie 'C:\Program Files (x86)\Borland\Delphi7\Projects\Project1.exe'

voici le code au complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
    OpenDesktop : Variant;
    LoadParams : Variant;
    OpenOffice : Variant;
    Document : Variant;
    NomFichier : AnsiString;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    OpenOffice:= CreateOleObject('com.sun.star.ServiceManager');
    OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
    LoadParams := VarArrayCreate([0, -1], varVariant);
    NomFichier := StringReplace('C:\demo.sxw','\','/',[rfReplaceAll, rfIgnoreCase]);
    Document := openDesktop.LoadComponentFromURL('file:///'+NomFichier, '_blank', 0, LoadParams);
end;
 
end.

**SergioMaster** · 11/10/2015, 18h32

Cela arrive quelquefois quand le programme lancé en mode Debug ou normal s'est planté et reste en mémoire

**alain24aydin** · 11/10/2015, 20h45

Pouvez vous me dire pour quel raison OpenOffice est visible ?

**alain24aydin** · 11/10/2015, 21h01

Et comment on referme OpenOffice ? Car avec : OpenOffice := Unassigned; on ce déconnecte mais comment on le ferme sans enregistrer.

Et quand je met OpenOffice.close il indique :

Méthode 'close' non supportée par l'objet Automation.

**alain24aydin** · 11/10/2015, 23h05

c'est bon je viens de trouver les réponses à mes questions.

Pour l'ouverture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
begin
    OpenOffice:= CreateOleObject('com.sun.star.ServiceManager');
    OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
    LoadParams := VarArrayCreate([0, -1], varVariant);
    NomFichier := StringReplace('C:\Users\Selçuk\Desktop\Devis\Devis Type.ods','\','/',[rfReplaceAll, rfIgnoreCase]);
    Document := openDesktop.LoadComponentFromURL('file:///'+NomFichier, '_blank', 0, LoadParams);
end;

Pour fermer le document :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
begin 
  Document.dispose; 
end;

Pour ce déconnecter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenOffice := Unassigned;

Juste un truc supplémentaire comment l'ouvrir de façon invisible ?

Merci à tous.

**SergioMaster** · 12/10/2015, 08h16

Bonjour,

Juste un truc supplémentaire comment l'ouvrir de façon invisible ?

C'est vrai que cette "astuce" n'est pas dans la FAQ ! ou du moins pas explicitement puisqu'il y est sujet de l'API CoreReflection mais uniquement pour l'usage de l'option de lecture.

Il va falloir créer un paramètre (ou plus exactement mettre un paramètre l'objet Open Office à True : Le paramètre Hidden.
Et, pour ce faire il va falloir
- Faire appel à l'API CoreReflection de OpenOffice
- Créer le paramètre
- Passer ce dernier dans le tableau de paramètres à l'ouverture du document

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   Var 
     CoreServ,Propriete : Variant;     // locale 
     ... 
   begin
     OpenOffice:= CreateOleObject('com.sun.star.ServiceManager');
     OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
     LoadParams:=VarArrayCreate([0,0],varVariant);
     CoreServ:= OpenOffice.CreateInstance('com.sun.star.reflection.CoreReflection');
     CoreServ.forName('com.sun.star.beans.PropertyValue').CreateObject(propriete);
     // Caché
     propriete.name:='Hidden';
     propriete.Value:=true;      // pour que le document soit caché !
     LoadParams[0]:=propriete;

     NomFichier := StringReplace('C:\Users\Selçuk\Desktop\Devis\Devis Type.ods','\','/',[rfReplaceAll, rfIgnoreCase]);
     Document := openDesktop.LoadComponentFromURL('file:///'+NomFichier, '_blank', 0, LoadParams);

PS.
tu me confirmeras que c'est ok et j'envisagerai de le rajouter à la FAQ si on ne voit ce truc nulle part

**alain24aydin** · 14/10/2015, 21h52

Merci, ça fonctionne bien ...

j'ai encore une question : les lignes de code dans le FAQ concernant les formules ne "fonctionne pas"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Mafeuille.getCellByPosition(0, 0).SetFormula('=A2+B4');

Au niveau d'OpenOffice j'ai bien la formule qui s'affiche mais il ne fait pas le calcul il me met : #NOM ?
Pour quel raison ? Si je rajoute un caractère et le supprime de manière manuel alors il me fait le calcul ...

Ouvrir OpenOffice sous Delphi

Delphi

Discussions similaires

Partager

Partager