Open Office Apache visible

Version imprimable

09/11/2012, 12h05
JP.NUAGE

Open Office Apache visible
:salut: Bonjour à tous

Jusqu'ici, mes appels à Open Office se faisaient sans que le tableau soit visible puisque j'avais spécifié :
Code:

1 2 PropC.name := 'Hidden'; PropC.value := true;
Mais depuis que la version Apache s'est installée, le tableau est toujours visible et de plus la fonction Dispose ne fonctionne plus. J'ai cherché dans les F.A.Q, mais n'ai trouvé aucune réponse.

Quelles modifications dois-je apporter à mon code ?

Merci d'avance
10/11/2012, 18h55
Ph. B.

Bonjour,

Regardez la solution que j'avais donnée sur ce sujet dans le forum dédié à Lazarus, c'est réutilisable tel que, avec Delphi :
Automation OOo, une fenêtre de trop
D'ailleurs, la solution vient initialement de Delphi... ;)
11/11/2012, 11h03
JP.NUAGE
Merci pour cette réponse, mais....
cela ne fonctionne pas. Toutefois, il se peut que j'ai commis une erreur de code. Je n'ai pas LibreOffice, j'ai donc codifié
Code:

1 2 3 APPLICATION = '"C:\Programmes\OpenOffice.org 3\soffice.exe"'; REPERTOIRE = '"C:\Programmes\OpenOffice.org 3\"'; ARGUMENT = '-invisible';
L'appel de ShellExecute est le même.

Mais je vois toujours la fenêtre OpenOffice
11/11/2012, 11h47
Ph. B.

"C:\Programmes" me laisse penser qu'il s'agit d'un windows postérieur à XP
Est ce que l'appel à ShellExecute démarre bien OOo (à vérifier avec le gestionnaire de programmes) ?
Dans le cas contraire, lors du prochain appel à OOo, le démarrage se fera de manière standard, cad visible...

Sinon le tips est à priori conforme avec ce qu'indique aussi la FAQ d'OOo

étonnant , chez moi c'est nickel chrome , j'ai même testé la version 2.3 (encore Oracle) et la version 3.4.1 (Apache)

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
    OO_Service : Variant;
    OO_Desktop : Variant;
    OO_Doc : Variant;
    OO_FileName : String;
 
function TForm2.FileToURL(F : String) : String;
var i : Word;
    R : String;
begin
R:='file:///'+OpenDialog1.FileName;
// transforme le nom du fichier en adresse URL
while (Pos('\',R)>0) do    {les \ en /}
  begin
    i:=Pos('\',R);
    Delete(R,i,1);
    Insert('/',R,i);
  end;
while (Pos(' ',R)>0) do    {les espaces en %20}
  begin
    i:=Pos(' ',R);
    Delete(R,i,1);
    Insert('%20',R,i);
  end;
result:=R;
end;
 
// fermer
procedure TForm2.Button2Click(Sender: TObject);
begin
OO_Service:=unassigned;
close;
end;
 
// ouvrir
procedure TForm2.Button3Click(Sender: TObject);
var properties,CoreServ,prop : Variant;
begin
if OpenDialog1.Execute then
 begin
  if (VarIsEmpty(OO_Service) or VarIsNull(OO_Service)) then
   OO_Service:=CreateOleObject('com.sun.star.ServiceManager');
  if not(VarIsEmpty(OO_Service) or VarIsNull(OO_Service)) then
  begin
   if (VarIsEmpty(OO_DeskTop) or VarIsNull(OO_DeskTop)) then
          OO_Desktop:= OO_Service.CreateInstance('com.sun.star.frame.Desktop');
   end;
  if (VarIsEmpty(OO_DeskTop) or VarIsNull(OO_DeskTop)) then
   begin
   MessageDlg('Le service Open Office n''est pas ouvert',mtError,[mbOk],0);
   Exit;
   end;
  properties:=VarArrayCreate([0,0],varVariant);
  CoreServ:= OO_Service.CreateInstance('com.sun.star.reflection.CoreReflection');
  CoreServ.forName('com.sun.star.beans.PropertyValue').CreateObject(prop);
  prop.name:='Hidden';
  prop.Value:=True;
  properties[0]:=prop;
  OO_FileName:=FileToURL(OpenDialog1.FileName);
  OO_Doc := OO_Desktop.LoadComponentFromURL(OO_FileName,
                                          '_blank',
                                           0,
                                          properties);
  end;