Probleme de traduction d'une fonction Delphi en BCB

**blondelle** · 09/03/2007, 20h57

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** · 11/03/2007, 11h53

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** · 11/03/2007, 17h41

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** · 13/03/2007, 17h31

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** · 13/03/2007, 22h13

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** · 13/03/2007, 22h22

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

**TABZ** · 13/03/2007, 22h49

En principe c'est sans problème, mais cela n'est valable que pour les versions d'Open Office supérieures à la 1.1.0 (J'ajouterai que rien de tout cela ne fonctionne avec BCB3 pro, sans que je ne sache pourquoi.)

J'ai poussé le test précedent pour voir si on pouvait récupérer les valeurs "Country" et Language" d'une cellule : ça marche!

Code :

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

1
2
3
4
5
6
7
8
 
vOOoLocale = vOOoCellule.OleFunction("getPropertyValue","CharLocale");
 
String C = AnsiString(vOOoLocale.OlePropertyGet("Country"));
ramène "FR" dans C.
 
String L = AnsiString(vOOoLocale.OlePropertyGet("Language"));
ramène "fr" dans L.

Un dernier point : Google en tapant "api OpenOffice + le type de variable qu'on veut" est une véritable bible.

**blondelle** · 13/03/2007, 23h03

Merci TABZ:
Le code fonctionne correctement.
Je continue a chercher pour les quelques codes qui me posent probleme, la recherche sur Google je vais la tester, je ne procedez pas de cette facon.

Probleme de traduction d'une fonction Delphi en BCB

C++Builder

Discussions similaires

Partager

Partager