Discussion :

[HumanTool]

salut,
voila j'ouvre un document openoffice en mode invisible. Puis par l'interface de mon application je veux le rendre visible à nouveau.
Je m'explique je le rends invisible pour ne pas "polluer" l'affichage à l'écran avec openoffice qui s'ouvre, mais sur mon interface je donne la possibilité de voir l'aperçu avant impression. Il faut donc que openoofice "réapparaisse".
Voici le code d'ouverture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedureTOpenOffice.OpenDocument(NomFichier: string);
var
	VariantArr: variant;
begin
	// Openoffice travail avec des nom de fichier au "format" URL
	// il faut donc remplacemer les \ par des /
	// et ajouter devant le chemin 'file:///'
	NomFichier := 'file:///' + StringReplace(NomFichier, '\', '/', [rfReplaceAll]);
	VariantArr := VarArrayCreate([0, 0], varVariant);
	VariantArr[0] := MakePropertyValue('Hidden', True);
	OfficeDocument := StarDesktop.LoadComponentFromURL(NomFichier, '_blank', 0, VariantArr);
end;

ça marche mon document est ouvert mais invisible mais aprés je ne sais pas quoi appeler sur mon objet "OfficeDocument" pour le rendre visible...
Quelqu'un l'a t'il déja fait ou vu ?? j'ai télécharger le "Developper Guide" mais rien n'y fais référence....

[HumanTool]

euh j'ai oublié de préciser je fais ça aussi sous Ms office avec :

Code :

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

1
2
3
4
		XlApp := CreateOleObject('Excel.Application');
		if VarType(XlApp) <> VarDispatch then Abort;
		XlApp.Visible := False;
		XlApp.DisplayAlerts := False;

....

[Frank]

Salut,

dans la FAQ delphi, il y a ceci :
http://delphi.developpez.com/faq/?pa...alcfeuilleinvi

Est ce applicable à ton cas ?

[HumanTool]

en fait non, dans la faq on cache une feuille d'un classeur.
Mais moi c l'appli "calc" entière qui est cachée...

[Frank]

Ah.
Je regarderai chez moi ce soir, ici je n'ai pas openoffice

[HumanTool]

bon j'ai trouvé ça sur le forum openoffice :
http://www.oooforum.org/forum/viewtopic.phtml?t=4816

le code fournit en fin d'article pour delphi marche :

Code :

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

Document.getCurrentController.getFrame.getContainerWindow.setVisible(true);

mais il faut ouvrir son document sans le paramètre "hidden", sinon à l'appel de ce code OOo réapparait mais vide (la fenêtre fille de la MDI est invisible). Pourtant la barre de titre a le nom de mon document ???

Bon je continue de chercher et de poster

[Frank]

bon j'ai trouvé ça sur le forum openoffice :
http://www.oooforum.org/forum/viewtopic.phtml?t=4816

le code fournit en fin d'article pour delphi marche :

Code :

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

Document.getCurrentController.getFrame.getContainerWindow.setVisible(true);

mais il faut ouvrir son document sans le paramètre "hidden", sinon à l'appel de ce code OOo réapparait mais vide (la fenêtre fille de la MDI est invisible). Pourtant la barre de titre a le nom de mon document ???

Bon je continue de chercher et de poster

C'est déjà intérressant.

[HumanTool]

bon ben j'ai trouvé dans l'api des références a 2 procedures:
http://api.openoffice.org/docs/Devel...rom_Each_Other

j'ai donc changé mon code :

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
function TForm2.MakePropertyValue(PropName:string; PropValue:variant): variant;
begin
   Result := OOoServer.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
   Result.Name := PropName;
   Result.Value := PropValue;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var
   ooParams: Variant;
begin
   OOoServer:= CreateOleObject('com.sun.star.ServiceManager');
   OOoDeskTop:= OOoServer.CreateInstance('com.sun.star.frame.Desktop');
   //Optional parameters (visible boolean)...
   ooParams:= VarArrayCreate([0, 0], varVariant);
   ooParams[0]:= MakePropertyValue('Hidden', true); //Here you chose to open it not visible
   //Open the document...
   OOoDocument:= OOoDeskTop.LoadComponentFromURL('private:factory/scalc', '_blank', 0, ooParams);
   oDocCtrl := OOoDocument.getCurrentController;
   oDocFrame := oDocCtrl.getFrame;
   oDocWindow := oDocFrame.getContainerWindow;
   oDocBook := oDocFrame.getComponentWindow;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
   oDocWindow.setVisible(true);
   oDocBook.setVisible(true);
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
   oDocWindow.setVisible(false);
   oDocBook.setVisible(false);
end;

et ça marche mais je ne comprends pas bien pourquoi il faut ces 2 procedures.... et pourquoi il n'y a pas qu'1 seule a appeler comme sous office... (trop facile)
en tout cas j'espère que ça servira à d'autres, voir que ce post serra enrichi

[Frank]

Penses à mettre le tag

[HumanTool]

ben justement il est à moitié résolu parec que c pas clair encore...
je comptais sur les jours qui viennent pour voir si quelqu'un venait confirmer ou infirmer mes dires !

[HumanTool]

bon ben faut croire qu'il y a bien une distinction entre le contenant et le contenu dans les fenêtres OpenOffice. A la différence de MsOffice puisque je faisais :

Code :

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

1
2
XlApp := CreateOleObject('Excel.Application');
XlApp.Visible := False;

et tout excel devenait invisible :

A savoir quelle approche est la meiux.... ce serais lancer un débat openoffice/msoffice

en tout cas ça marche !