Discussion :

[fostex22]

Bonjour,

Je suis nouveau sur le forum, donc bonjour à tous.

Je cherche le moyen de me connecter à open office.
j'ai essayé les conseil du FAQ DELPHI, mais sans succès.
Est il possible d'avoir un exemple simple d'ouverture de document.

Merci

[Laurent Dardenne]

Salut,
indique nous le code que tu utilises.
La FAQ concernant l'utilisation d'Open Office n'a pas posé de pb jusqu'ici.

[fostex22]

Voici

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
41
42
43
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
 
    F1: TMenuItem;
    Open1: TMenuItem;
    procedure Open1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
         OpenOffice : Variant;
   Document  : Variant;
   CreateOleObject : variant;
implementation
 
{$R *.dfm}
 
procedure TForm1.Open1Click(Sender: TObject);
var
    OpenDesktop : Variant;
    LoadParams : Variant;
    NomFichier : AnsiString;
begin
   OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
   LoadParams := VarArrayCreate([0, -1], varVariant);
   NomFichier := StringReplace('C:\Documents and Settings\Jerome\Mes documents\demo.sxw'
                                           , '\', '/', [rfReplaceAll, rfIgnoreCase]);
   Document := openDesktop.LoadComponentFromURL( 'file:///'+NomFichier, '_blank', 0,  LoadParams);
end;
end.

merci



FRANK

[Laurent Dardenne]

Il me semble qu'il en manque un bout, voir
http://delphi.developpez.com/faq/?pa...engeneconnecte
Il faut te connecter puis créer une instance de la classe que tu souhaites manipuler.

[fostex22]

bonjour,

J'obtiens le message suivant lors d'une tentative de connection :
Identificateur non déclaré :'CreateOleObject'
Puis imposible de compiler Unit1

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
Var
   OpenOffice : Variant;
   Document  : Variant;
 
Begin
    if  VarIsEmpty(OpenOffice) then
        OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
end;
 
end.

[Laurent Dardenne]

Indique dans la clause uses l'unité ComObj.

[Frank]

Il manque

Code :

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

ComObj

dans les clauses Uses.

[Laurent Dardenne]

Preums Frank

[Frank]

Preums Frank

A quelques secondes près...

[fostex22]

Merci celà fonctionne, mais que veut dire ComObj....

Sinon savez comment déclenché l'évènement macro dans le document Open Office, en passant par Delphi il y a bloquage de la boite de dialogue
Merci

[Frank]

1- ComObj est le nom d'une dll avec extension bpl (Borland Pascal Library) qui regroupe les fonctions dont tu as besoin pour l'automation dans ce cas.

2- Une question par post, s'il te plait. C'est dans les règles que tu es sensé avoir lu. Mais avant de reposter, vérifies dans la FAQ, sait-on jamais...