Discussion :

[Shin_no_Noir]

Bonjour,
Je cherche à sélectionner une imprimante avec l'API d'OpenOffice en passant par les fonctions d'automation OLE de C++Builder.
Je me suis d'abord basé sur la FAQ Delphi mais le résultat n'était pas concluant (peut être un problème de traduction... )

J'ai alors essayé d'utiliser le dispatcher (me basant sur une macro) pour afficher la fenêtre de sélection d'imprimante. Je suis arrivé à ça :

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
 
   Variant propertyValue[1];
   Variant CoreReflection;
   Variant dispatcher;
   Variant frame;
 
   AnsiString printer_name = "PDFCreator"; //exemple pour le test
 
   frame = document.OleFunction("getCurrentController").OleFunction("getFrame");
 
   dispatcher = ptr_uno->uno_manager.OleFunction("createInstance", "com.sun.star.frame.DispatchHelper");
 
   CoreReflection = ptr_uno->uno_manager.OleFunction("createInstance", "com.sun.star.reflection.CoreReflection");
   CoreReflection.OleFunction("forName", "com.sun.star.beans.PropertyValue").OleFunction("createObject", propertyValue);
 
   propertyValue[0].OlePropertySet("Name", "Printer");
   propertyValue[0].OlePropertySet("Value", printer_name.c_str());
 
   dispatcher.OleFunction("executeDispatch", frame, ".uno:Printer", "", 0, propertyValue);
 
   int Bounds[2] = {0,-1};                            //L'impression avec l'imprimante par défaut fonctionne
   parametres = VarArrayCreate(Bounds, 1, varVariant);
   document.OleFunction("print", parametres);

Mais j'ai un problème sur le propertyValue : quand j'en arrive à la ligne

Code :

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

1
2
 
dispatcher.OleFunction("executeDispatch", frame, ".uno:Printer", "", 0, propertyValue);

j'ai une erreur "raised exception class EOleSysError with message "le type ne correspond pas"".

Est-ce que quelqu'un voit où je me plante ?
A moins que quelqu'un arrive à faire fonctionner l'exemple de la FAQ Delphi avec C++Builder ?
Merci d'avance

[blondelle]

Salut Shin_no_Noir:
Je n'ai pas teste, et ne pourrais pas le faire de suite mais je verrais en m'inspirant de la FAQ Delphi quelque chose comme ceci:

Code :

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

1
2
3
4
5
6
7
8
 
PropertyValue = vOOoOpenOffice.OleFunction("Bridge_GetStruct", "com.sun.star.beans.PropertyValue");
PrinterDesc = VarArrayCreate(Bound1s, 1, varVariant);
PropertyValue.OlePropertySet("Name", "Name");
PropertyValue.OlePropertySet("Value", "Canon i550");
PrinterDesc = PropertyValue;
PrinterOpt = VarArrayCreate(Bound1s, 1, varVariant);
vOOoDocument.OleFunction("print", PrinterOpt);

En esperant t'aider

[Shin_no_Noir]

Merci pour ton aide

Voilà le code qui fonctionne :

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
 
   Variant printerDesc;
   Variant propertyValue;
 
   propertyValue = ptr_uno->uno_manager.OleFunction("Bridge_GetStruct", "com.sun.star.beans.PropertyValue");
   int _Bounds[2] = {0,0};
   printerDesc = VarArrayCreate(_Bounds, 1, varVariant);
   propertyValue.OlePropertySet("Name", "Name");
   propertyValue.OlePropertySet("Value", "PDFCreator");
   printerDesc.PutElement(propertyValue, 0);
   document.OleFunction("setPrinter", printerDesc);
 
   int Bounds[2] = {0,-1};
   parametres = VarArrayCreate(Bounds, 1, varVariant);
   document.OleFunction("print", parametres);

[blondelle]

Je suis content pour toi je pense que serait interressant de proposer le code pour la FAQ si tu le permet

[Shin_no_Noir]

Oui pas de problème, mais pour quelle FAQ ? Celle de BCB ?

[blondelle]

Dabord je te remercie.
Oui c'est pour la FAQ BCB.
J'ai commence a traduire les exemples Delphi et cela faisait parti des exemples que je n'avais pas encore resolu.

[Shin_no_Noir]

Ha d'accord, tu veux faire une section OpenOffice, c'est une bonne idée
Peut être qu'il y a d'autres fonctions que j'ai fait qui pourraient te servir.
En fait je suis le stagiaire de dédé et j'essaie de mettre au point une classe OpenOffice. C'est loin d'être parfait bien sur, vu que je n'ai pas trop d'expérience. Et comme c'est pour une application spécifique, il n'y a pas tout...
Si tu veux je peux t'envoyer cette classe.

[blondelle]

J'ai traduit a 95% la FAQ Delphi si tu a besoin dis le je t'aiderais.
Pour ta proposition je suis preneur (perso je suis reste avec Ole que je maitrise le mieux)