Je cherche à comprendre... Ma méthode même corrigée ne fonctionne pas alors que si je me sers du morceau de code que Bernard m'a gentiment donné cela marche... code de bernard:(légèrement retouché pour les noms et chemins)

ConnectOpenOffice; // établir la connexion, si pas déjà fait DataContext:= CreateUnoService('com.sun.star.sdb.DatabaseContext'); NomSource:= 'src1'; if DataContext.hasbyname(NomSource) then Memo_Enumeration.Lines.Add(NomSource +' existe') else begin // mettre les fichiers dans ce répertoire Chemin:= convertToURL('c:\Dossiers\Coquery'); lesProps:= CreateProperties([ 'Extension', 'txt', 'CharSet', 'ISO-8859-15', 'FixedLength', True, 'HeaderLine', True, 'FieldDelimiter', ';', 'StringDelimiter', '"', 'DecimalDelimiter', '.', 'ThousandDelimiter', ',']); uneInstance:= DataContext.createInstance; DataContext.registerObject(NomSource, uneInstance); uneInstance.URL:= 'sdbc:flat:' + Chemin; uneInstance.Info:= lesProps; Memo_Enumeration.Lines.Add('src ajoutée'); end;

mon code: //création du service databasecontext Datacontext:=OpenOffice.createInstance('com.sun.star.sdb.DatabaseContext'); //si openoffice connait la source src1 if Datacontext.hasbyname('src1') then Memo_Enumeration.Lines.Add('src1 existe déjà') else begin // Core reflection est utilisé pour pouvoir créer des property value CoreReflection := OpenOffice.createInstance ('com.sun.star.reflection.CoreReflection'); //création d' un tableau de propertyvalues équivalent à createproperties 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 := 'ISO-8859-15'; //ou 'ISO646-FR1' 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 instance:=Datacontext.createInstance; //enregistrement dans openoffice datacontext.registerObject('src1',instance); instance.URL:= 'sdbc:flat:file:///C:/Dossiers/coquery'; instance.Info:= arguments; end;

Quelle différence y a-t-il entre le CreateProperties et ma création d'un tableau de propertyvalues??? ou alors cela vient-il du fait que bernard utilise un ConnectOpenOffice qui instancie des services que je n'utilise pas mais qui seraient nécessaires??? (Introspection et DispatchHelper) J'aimerais bien comprendre les différences car si je trouve pratique d'utiliser des outils faits par d'autres j'aime bien savoir ce qu'ils font de plus... Je les ai épluchés déjà mais à part le ConnectOpenOffice qui contient des instanciations supplémentaires , je ne voie pas trop de différences...