Discussion :

[dyvim]

Est ce quelqu'un a déjà réussi à en créer un et à s'en servir correctement?
Je dois réaliser un publipostage avec OOo ce que je sais faire en le pilotant de delphi mais pour des raisons de sécurité il faudrait que je puisse créer le datasource du publipostage.
J'arrive à en créer un mais il ne contient aucune table (ennuyeux).
Si quelqu'un a déjà réalisé cette opération qu'il me vienne en aide SVP.
voilà mon code...

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
 
var  arguments:variant;
     PropertyValue :variant;
     CoreReflection: Variant;
begin
   //création d'un database context qui contient toutes les sources de données
   //connait open office
   Datacontext:=OpenOffice.createInstance('com.sun.star.sdb.DatabaseContext');
   //si openoffice connait la source src1
   if Datacontext.hasbyname('src1')
   then Memo_Enumeration.Lines.Add('src1 trouvé')
   else
      begin
      // Core reflection est utilisé pour pouvoir créer des property value
      CoreReflection := OpenOffice.createInstance
                     ('com.sun.star.reflection.CoreReflection');
      // un tableau dynamique de propertyvalues
      arguments:= VarArrayCreate([0,7], varVariant);
      CoreReflection.forName('com.sun.star.beans.PropertyValue').createObject(PropertyValue);
      PropertyValue.Name := 'Extension';
      PropertyValue.Value := 'txt';
      arguments[0]:= PropertyValue ;
      PropertyValue.Name := 'Charset';
      PropertyValue.Value := 0;
      arguments[1]:= PropertyValue ;
      PropertyValue.Name := 'FixedLength';
      PropertyValue.Value := true;
      arguments[2]:= PropertyValue ;
      PropertyValue.Name := 'HeaderLine';
      PropertyValue.Value := true;
      arguments[3]:= PropertyValue  ;
      PropertyValue.Name := 'FieldDelimiter';
      PropertyValue.Value := ';';
      arguments[4]:= PropertyValue ;
      PropertyValue.Name := 'StringDelimiter';
      PropertyValue.Value := '"';
      arguments[5]:= PropertyValue ;
      PropertyValue.Name := 'DecimalDelimiter';
      PropertyValue.Value := '.';
      arguments[6]:= PropertyValue ;
      PropertyValue.Name := 'ThousandDelimiter';
      PropertyValue.Value := ',';
      arguments[7]:= PropertyValue ;
      //création de la datasource avec parametres
      Datasource:=OpenOffice.createInstance('com.sun.star.sdb.DataSource');
      datacontext.registerObject('src1',Datasource);
      Datasource.URL:= 'sdbc:flat:file:///C:/Dossiers/coquery/';
      Datasource.Info:= arguments;
      {datasource.TableFilter:=('essai');
      datasource.TableTypeFilter:= ('TABLE');}
 
      connection:=datasource.getconnection('','');
      end;
end;

[/b]

[dyvim]

Bon ben finalement j'y suis arrivé, voilà comment j'ai fait...
Sinon merci à B. Marcelly, L.Gaudard et Danad
ainsi qu'au site http://fr.OpenOffice.org
et http://www.oooforum.org/

préalables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
	OpenDesktop : Variant;
   	OpenOffice : Variant;
  	CoreReflection: Variant;
 	Document : Variant;
   	NomFichier : String;
   	DataSource:variant;
   	DataContext:variant;
   	Connection:variant;
	Publipostage:variant;
	Arguments:variant;
	Instance:variant;

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
//cette fonction est nécessaire elle sert à créer une propriété de la source de donnée, elle fait appel au système de réflexion
// une version plus aboutie ainsi que beaucoup d'autres fonctions très utiles sont disponibles dans la bibliothèque Delphi_OOo de B. Marcelly (voir site fr.openoffice.org)
 
function CreatePropertyValue(nom,valeur:variant):variant ;
var
  PropertyValue :variant;
 
begin
  CoreReflection.forName('com.sun.star.beans.PropertyValue').createObject(PropertyValue);
   PropertyValue.Name := nom;
   PropertyValue.Value := valeur;
   result:=propertyvalue;
end;
 
      Datacontext:=OpenOffice.createInstance('com.sun.star.sdb.DatabaseContext');
  // creation d'un tableau dynamique de propertyvalues qui définissent le format de la datasource
      arguments:= VarArrayCreate([0,7], varVariant);
      arguments[0]:= createPropertyValue('Extension','txt' );
      arguments[1]:= createPropertyValue('CharSet','ISO-8859-15') ;//ou 'ISO646-FR1'
      arguments[2]:= createPropertyValue('FixedLength',true) ;
      arguments[3]:= createPropertyValue('HeaderLine',true)  ;
      arguments[4]:= createPropertyValue('FieldDelimiter',';') ;
      arguments[5]:= createPropertyValue( 'StringDelimiter','"') ;
      arguments[6]:= createPropertyValue('DecimalDelimiter','.') ;
      arguments[7]:= createPropertyValue('ThousandDelimiter',',') ;
      //création de la datasource avec parametres
      instance:=Datacontext.createInstance;
      //enregistrement dans openoffice
      datacontext.registerObject('src1',instance);
     // Url de la source de donnée
      instance.URL:= 'sdbc:flat:'+ <URL du dossier txt qui contient la source de donnée>;
      instance.Info:= arguments;