BCB, OpenOffice, OLE et impression (problème propertyvalue)

Version imprimable

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:

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:

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 :)

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:

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

Merci pour ton aide :king:

Voilà le code qui fonctionne :

Code:

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);

10/07/2007, 16h37
blondelle

Je suis content pour toi je pense que serait interressant de proposer le code pour la FAQ si tu le permet :P
10/07/2007, 16h42
Shin_no_Noir

Oui pas de problème, mais pour quelle FAQ ? Celle de BCB ?
10/07/2007, 17h03
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.
10/07/2007, 17h10
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.
10/07/2007, 17h17
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)