Reduire fenetre OpenOffice ou en arrière plan

**manubrard** · 08/03/2006, 14h15

Bonjour tout le monde,

voila mon probleme, avec mon application, je récupère des informations dans un tableur openoffice pour remplir des champs de mon interface.

Pour ouvrir la feuille de calcul openoffice :

Code :

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

1
2
3
OpenDesktop:=OpenOffice.createInstance('com.sun.star.frame.Desktop');
  LoadParams:=VarArrayCreate([0,-1],varVariant);
  Document:=openDesktop.LoadComponentFromURL('file:///'+chemin,'_blank',0,LoadParams);

quand j'accède à la feuille, elle s'ouvre en grand et cache mon interface (pas très pratique

), j'aimerais savoir si il est possible d'ouvrir la feuille en arrière plan ou de la réduire pour continuer à utiliser l'interface de l'application et comment faire ?

J'espère avoir été claire et je remercie d'avance tous les gens qui aident les jeunes développeurs comme moi.

**the_magik_mushroom** · 08/03/2006, 15h44

avec SendMessage tu peux réduire ou cacher une application :

Code :

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

1
2
3
 
SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
SendMessage(Handle,WM_SYSCOMMAND,SW_HIDE,0);

sinon avec le FormStyle de ta Form : fsStayOnTop ou essai avec BringToFront.

**manubrard** · 09/03/2006, 10h04

Je ne comprends pas comment utiliser le code que tu m'as donnée, pourtant j'y met de la bonne volonté, cette fenêtre qui reste ouverte m'agace.

Peux-tu me donner plus de précision concernant les commandes que tu m'as conseillés (avec de exemples si possible

)

Merci beaucoup

**HumanTool** · 14/03/2006, 15h52

salut,
et est ce qu'avec ce code ça suffit:

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
function TOpenOffice.ConvertToUrl(const NomFichier: String): String;
begin
	Result := 'file:///' + StringReplace(NomFichier, '\', '/', [rfReplaceAll]);
end;
 
function TOpenOffice.OpenDocument(NomFichier: string): boolean;
var
	VariantArr: variant;
begin
	if VarIsEmpty(StarOffice) then
		OOoServer := CreateOleObject('com.sun.star.ServiceManager');
	OOoDesktop := OOoServer.createInstance('com.sun.star.frame.Desktop');
	// Openoffice travail avec des nom de fichier au "format" URL
	// il faut donc remplacemer les \ par des /
	// et ajouter devant le chemin 'file:///'
	NomFichier := ConvertToUrl(NomFichier);
	VariantArr := VarArrayCreate([0, 0], varVariant);
	VariantArr[0] := MakePropertyValue('Hidden', True);
	OOoDocument := OOoDesktop.LoadComponentFromURL(NomFichier, '_blank', 0, VariantArr);
end;

**manubrard** · 28/03/2006, 15h41

HumanTool, merci de m'aider

je conprends pas à quoi correspond ta variable MakePropertyValue dans ton code :

Envoyé par HumanTool

Code :

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

1
2
 
	VariantArr[0] := MakePropertyValue('Hidden', True);

Peux-tu m'en dire plus s'il te plait...

**HumanTool** · 28/03/2006, 16h13

ah, désolé j'ai cru que tu l'avais déja vu dans d'autre forum (forum openoffice particulièrement). c'est juste une fonction qui te retourne la propriété voulue :

Code :

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

1
2
3
4
5
6
7
 
function TOpenOfficeDocument.MakePropertyValue(const APropName: string; APropValue: Variant): Variant;
begin
	Result := OOoServer.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
	Result.Name := APropName;
	Result.Value := APropValue;
end;

si tu n'as pas peur de l'anglais je te conseille vivement :
http://www.oooforum.org/
beaucoup plus riche que les forums français....

**HumanTool** · 28/03/2006, 16h19

Peut être que j'anticipesur tes futures questions mais en mode "hidden" les services uno (service de macro openoffice) ne sont pas actifs. Donc si tu veux appeler des fonctions simples comme copier et coller que l'on appele par :

Code :

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

executeDispatch(OOoDesktop.CurrentFrame, '.uno:copy', '', 0, VarArrayCreate([0, -1], varVariant)

elles ne fonctionneront pas ! Il faut alors appeler des methodes propres aux objets manipulés : macellule.getValue....

Je te dis ça parce que je me suis heurté au problème longtemps avant d'en trouver la réponse !

**manubrard** · 29/03/2006, 09h03

Bonjour tout le monde,

bon, après plusieurs heures d'essai, je n'arrive pas a faire fonctionner les solutions proposées. Est-il possible de rajouter un paramètres dans cette ligne de code pour minimiser la fenetre lors de son ouverture.

Code :

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

Document:=openDesktop.LoadComponentFromURL('file:///'+chemin,'_blank',0,LoadParams);

Merci

**HumanTool** · 29/03/2006, 09h21

qu'est ce qui ne va pas dans les solutions proposées ?
Quelles erreurs as tu ?

**WebPac** · 29/03/2006, 09h23

Salut, j'ai utilisé ton code HumanTool mixé avec la FAQ Delphi OOo et ça marche très bien, merci.

++

**manubrard** · 29/03/2006, 09h25

Bon, ça y est, j'ai trouvé la solution, en fait, il suffit de créer une variable qui va contenir les paramètres de la fenêtre ouverte :

Code :

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

var theWindow:variant;

puis d'y affecter les paramètres de la fenêtre ouverte :

Code :

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

theWindow:=  Document.CurrentController.Frame.ContainerWindow;

où "Document" est la fichier openoffice ouvert. Puis de passer la fenêtre en non-visible:

Code :

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

theWindow.Visible:= False;

En résumé, voici le code entier pour ouvrir un fichier openoffice et le cacher:

Code :

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

1
2
3
4
5
6
7
 
OpenDesktop:=OpenOffice.createInstance('com.sun.star.frame.Desktop');
  LoadParams:=VarArrayCreate([0,-1],varVariant);
  //LoadParams[0] := MakePropertyValue('Hidden', True);
  Document:=openDesktop.LoadComponentFromURL('file:///'+chemin,'_blank',0,LoadParams);
  theWindow:=  Document.CurrentController.Frame.ContainerWindow;
  theWindow.Visible:= False;

Voila, ça m'a bien aidé, et j'espère que ça aidera d'autres personnes.

J'ai trouvé cette solution sur le forum OOo :
http://www.oooforum.org/forum/viewto...ghlight=delphi

Merci HumanTool et à tousceux qui m'ont aidé.

**HumanTool** · 29/03/2006, 10h28

je tiens à préciser que ce n'est pas une solution propre. Parce que l'on a un effet de flashage de la fenêtre (ouverture et visible = false).
De plus avec ce type de methode lorsque l'on veut rendre l'application visible avec :

Code :

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

theWindow.Visible := True;

(j'en ai eu besoin pour faire un printpreview par exemple....) et si c'est un classeur Calc, et bien la fenêtre openoffice est visible mais pas le classeur donc j'ai du faire :

Code :

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

1
2
3
4
5
6
 
procedure TOpenOfficeDocument.SetDocumentVisible(ADocument: variant; IsVisible: Boolean);
begin
	ADocument.getCurrentController.getFrame.getContainerWindow.setVisible(IsVisible);
	ADocument.getCurrentController.getFrame.getComponentWindow.setVisible(IsVisible);
end;

je maintiens que la solution avec un hidden fonctionne, donc pour faire simple :

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
   OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
 
   // Le tableau doit avoir des dimensions, donc là on veut 1 élément
   // on met [0,0] ou [0,1] si on en veut 2, sinon on met [0,-1]
   LoadParams :=VarArrayCreate([0,0],varVariant);
 
   // sur le 1e élément, on crée une propriété Openoffice
   LoadParams[0] :=  OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
 
   // une propriété à un nom et une valeur
   LoadParams[0].Name := 'Hidden';
   LoadParams[0].Value := True;
 
   // 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]);
   Document := OpenDesktop.LoadComponentFromURL(NomFichier, '_blank', 0, LoadParams);

Pour les propriétés on peut cumuler certaines d'entre elles :

Code :

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

1
2
3
4
5
6
7
8
9
   LoadParams :=VarArrayCreate([0,1],varVariant);
 
   LoadParams[0] :=  OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
   LoadParams[1] :=  OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
 
   LoadParams[0].Name := 'Hidden';
   LoadParams[0].Value := True;
   LoadParams[1].Name := 'ReadOnly';
   LoadParams[1].Value := True;

voilà les liens qui me sont utiles :
Pilote OOo
Danny's library
OOo window vibibility
La SDK

si vous avez d'autres questions (notamment pour le print preview que j'ai évoqué nhésitez pas...

**manubrard** · 29/03/2006, 16h26

Merci pour cette explication plus précise, maintenant ta solution fonctionne nickel, par contre, il y a un léger bug, Delphi me dit que les variables "Name" et "Value" ne sont pas déclaré alors que je les ai pourtant déclarés dans la fonction.

Malgré ce problème, la fenetre démarre bien caché et se ferme tout en étant caché aussi.

Merci pour cette astuce plus propre.

a+

**HumanTool** · 29/03/2006, 16h48

tu as bien déclaré LoadParams comme Variant ?

**manubrard** · 30/03/2006, 08h37

oui, je l'ai bien déclaré comme variante dans mes variables globales, mais bon, ça fonctionne, donc je pense que c'est un bug de delphi, je vais quand même continuer à chercher.

Merci

a+

**manubrard** · 30/03/2006, 08h50

Voila le code, les deuxmots soulignés sont en fait soulignés par une vague rouge comme pour indiquer une variables non déclarés.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure OuvrirOpenCalc(chemin:string);
begin
  OpenDesktop:=OpenOffice.createInstance('com.sun.star.frame.Desktop');
  LoadParams:=VarArrayCreate([0,0],varVariant);
  LoadParams[0] :=  OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
  LoadParams[0].[u]Name[/u] := 'Hidden';
  LoadParams[0].[u]Value[/u] := True;
  //LoadParams[0] := MakePropertyValue('Hidden', True);
  Document:=openDesktop.LoadComponentFromURL('file:///'+chemin,'_blank',0,LoadParams);
  //theWindow:=  Document.CurrentController.Frame.ContainerWindow;
  //theWindow.Visible:= False;
end;

Pourant, mes variables sont bien déclarés comme ceci :

Code :

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

1
2
3
4
5
6
var MoisPrincipal:integer;
    OpenOffice:variant;
    RepertoireAnnee:string;
    RepertoireAnneeURL:string;
    OpenDesktop:variant;
   [u] LoadParams:variant;[/u]

Donc, je ne comprends pas , si tu pouvais me dire c'est du quoi, moi je continue à chercher.

**WebPac** · 30/03/2006, 08h57

Merci pour cette explication plus précise, maintenant ta solution fonctionne nickel, par contre, il y a un léger bug, Delphi me dit que les variables "Name" et "Value" ne sont pas déclaré alors que je les ai pourtant déclarés dans la fonction.

Il ne faut pas déclarer Name ni Value en fait, ce sont des champs de la variable LoadParams, qui est déclarée en Variant et créée comme un tableau de variants.

Reduire fenetre OpenOffice ou en arrière plan

Langage Delphi

Discussions similaires

Partager

Partager