Discussion :

[blondelle]

Bonsoir:
Je convertis un exemple Delphi sur l'utilisation de OpenOffice et je cale sur la traduction d'un passage de parametres.

en Delphi
Locale.Country := 'FR';

ce que j'ai essaye et qui provoque systematiquement une erreur

vOOoLocale.OleFunction("Country", "FR");
ou
vOOoLocale.OleProcedure("Country", "FR");
ou
vOOoLocale.OlePropertySet("Country", "FR");
ou
vOOoLocale.OlePropertyGet("Country", "FR");

[blondelle]

Je n'ai toujours pas trouve une solution.
Voila le code Delphi

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
 
Var
  Locale: variant;
  MaCellule : variant;
Begin
  MaCellule := Mafeuille.getCellByPosition(0, 0);
  MaCellule.setPropertyValue('CharFontName', 'Arial');
  MaCellule.setPropertyValue('CharHeight', 8);
  MaCellule.setPropertyValue('CharWeight', 150);
  MaCellule.setPropertyValue('CharPosture',
       CoreReflection.forName('com.sun.star.awt.FontSlant').getField('ITALIC').get());
  CoreReflection.forName('com.sun.star.lang.Locale').createObject(Locale);
  Locale.Country := 'FR';
  Locale.Language := 'fr';
  Locale.Variant := 'fr';
  MaCellule.setPropertyValue('CharLocale', Locale);
end;

Voici je que j'ai fait

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
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
65
66
67
68
69
70
71
72
73
74
75
76
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <SysUtils.hpp>
#include <systvar.h>
#include <ComObj.hpp> // a inclure obligatoirement
#include <Variants.hpp> // utile dans certains cas
#include "Ouverture_OpenOffice.h"  // nom du programme en cour
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vOOoOpenOffice, vOOoDocument, vOOoDesktop, vOOoLoadParams, CoreReflection;
Boolean vOOoDocumentExist;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
  vOOoOpenOffice = CreateOleObject("com.sun.star.ServiceManager");
}
catch (...)
{
 // si on passe ici c'est qu'il y a une erreur
}
if (VarType(vOOoOpenOffice) == varDispatch)
vOOoDesktop = vOOoOpenOffice.OleFunction("createInstance", "com.sun.star.frame.Desktop");
int Bounds[2] = {0,-1};
vOOoLoadParams = VarArrayCreate(Bounds, 1, varVariant);
// ici on ouvre un nouveau document vierge calc
vOOoDocument = vOOoDesktop.OleFunction("LoadComponentFromURL", "private:factory/scalc", "_blank", 0, vOOoLoadParams);
vOOoDocumentExist = !(VarIsEmpty(vOOoOpenOffice) || VarIsNull(vOOoOpenOffice)); // false
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
// la fermeture brutale
    vOOoDesktop.OleFunction("terminate"); //
    vOOoDesktop = Unassigned();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// on place le code a tester ici
Variant vOOoMonClasseur;
Variant vOOoMaFeuille;
Variant vOOoLocale;
Variant vOOoCellule;
 
CoreReflection = vOOoOpenOffice.OleFunction("createInstance", "com.sun.star.reflection.CoreReflection");
vOOoMonClasseur = vOOoDocument.OleFunction("getSheets");
vOOoMaFeuille = vOOoMonClasseur.OleFunction("GetByName", "Feuille1");
vOOoCellule = vOOoMaFeuille.OleFunction("getCellByPosition", 0, 0);
vOOoCellule.OleFunction("setPropertyValue", "CharFontName", "Arial");
vOOoCellule.OleFunction("setPropertyValue", "CharHeight", 10);
vOOoCellule.OleFunction("setPropertyValue", "CharWeight", 150);
vOOoCellule.OleFunction("setPropertyValue", "CharPosture", CoreReflection.OleFunction("forName", "com.sun.star.awt.FontSlant").OleFunction("getField", "ITALIC").OleFunction("get", ""));
CoreReflection.OleFunction("forName", "com.sun.star.lang.Locale").OleFunction("createObject", vOOoLocale);
 
// Ici je n'arrive pas a passer ("Country", "FR") dans vOOoLocale
vOOoLocale.OlePropertySet("Country", "FR");
/*
ou
vOOoLocale.OleProcedure("Country", "FR");
ou
vOOoLocale.OlePropertySet("Country", "FR");
ou
vOOoLocale.OlePropertyGet("Country", "FR");
*/

[TABZ]

Bonjour Blondelle.

Heureux de voir que je ne suis pas le seul à m'amuser avec Ole OpenOffice et BCB!

Je pense que le code suivant devrait fonctionner :

Code :

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

1
2
3
4
5
 
vOOoLocale.OlePropertySet("name","Country");
vOOoLocale.OlePropertySet("value","Fr");
 
vOOoCellule.OleFunction("CharLocale", vOOoLocale);

Je n'ai malheureusement pas le temps de le tester ce soir.

[blondelle]

Alors voila ou j'en suis:
Si j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
CoreReflection = vOOoOpenOffice.OleFunction("createInstance", "com.sun.star.reflection.CoreReflection");
CoreReflection.OleFunction("forName", "com.sun.star.lang.Locale").OleFunction("createObject", vOOoLocale);
 
vOOoLocale.OlePropertyGet("name", "Country");
ou
vOOoLocale.OlePropertySet("name", "Country");
ou
vOOoLocale.OleProcedure("name", "Country");
ou
vOOoLocale.OleFunction("name", "Country");

J'ai systematiquement une erreur

Si je fais ceci pas d'erreur

Code :

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

1
2
3
4
 
vOOoLocale = CoreReflection.OleFunction("forName", "com.sun.star.lang.Locale");
 
vOOoLocale.OlePropertyGet("name", "Country");

Je ne peu qu'utiliser OleProperetyGet, sinon j'ai une erreur peut etre que la propriete "lang.Locale" ne permet que la lecture?

[TABZ]

Je viens de faire un test rapide : ceci fonctionne sans aucune erreur :

Code :

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

1
2
3
4
5
6
7
8
 
vOOoLocale = vOOoOpenOffice.OleFunction("Bridge_GetStruct", "com.sun.star.lang.Locale");
 
vOOoLocale.OlePropertySet("Country", "FR");
vOOoLocale.OlePropertySet("Language", "fr");
vOOoLocale.OlePropertySet("Variant", "fr");
 
vOOoCellule.OleFunction("setPropertyValue","CharLocale", vOOoLocale);

(La fonction "Bridge_GetStruct" permet de créer facilement des propriétés, alors que le passage par CoreReflection est souvent problématique avec BCB.)

Mais tout cela ne donne guère d'effet visible... Est-ce vraiment applicable à une cellule ?

[blondelle]

Merci pour tes reponses TABZ:
J'ai d'autres fonctions avec "CoreReflection" je peu donc les remplacer par "Bridge_GetStruct"