Discussion :

[titiyo]

bonjour
voila avec delphi 7 , j'essaye d'ouvrir un fichier .cvs avec open office et j'ai un message d'erreur : Methode 'LoadcomponentFromURL' non suopportée par l'objet Automation'

pourtant j'ai ete voir l'exemple sur le FAQ d'open office , et j'ai le meme 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
 
  var    OpenDesktop : Variant;
                   LoadParams : Variant;
                   OpenOffice : Variant;
                   Document  : Variant;
                   nom:string;
begin
  nom := 'c:\temp\fichier.csv';
   if  VarIsEmpty(OpenOffice) then
        OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
   OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
   LoadParams := VarArrayCreate([0, -1], varVariant);
   nom2 := 'file:///' + StringReplace(nom, '\', '/', [rfReplaceAll, rfIgnoreCase]);
   Document := OpenOffice.LoadComponentFromURL( nom2, '_blank', 0,  LoadParams);
end;

le message d'erreur est sur la ligne de document := .... et j'ai verifié open office etait bien connecter

merci d'avance

[SergioMaster]

Code :

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

1
2
 
LoadParams := VarArrayCreate([0, -1], varVariant);

-1 n'indique t'il pas que le fichier doit déjà exister ? , moi j'ai toujours indiqué
[0,0] pour mes params

Il faudrait que je me remette a faire des interfaces OOo mais je n'en ai pas eu l'occasion dernièrement

[titiyo]

merci c'est bien sa , maintenant le message a disparue , j'ai bien un fichier qui ce crees sur mon disque , dans la procesuce du pc j'ai bien un soffice , mais comment je fait pour ouvrir open office?

enfin le but est d'ouvrir un fichier text , avec des valeurs separées par des ';' dans le calc par exemple , avec excel j'ai pas de pb mais avec open office je galere
merci

[titiyo]

apres recherche en faite le pb vient que le fichier existe mais open office ne le comprend pas , en faite si c'est un .txt avec des valeur separer par un ; il n'arrive pas a ouvrir meme write , calc ... etc (a la diference d'excel)
alors comment je fait pour ouvrir un calc , avec mon txt , tel est la question ?
j'ai essayer de creer un calc vide mais apres je n'arrive pas a rentre mes cellule

[SergioMaster]

si je débroussaille la question , et que je lis un autre de tes POST http://www.developpez.net/forums/sho...d.php?t=420094dans un autre endroit du Forum ,(d'ailleurs peut-être pas le bon endroit), ton problème est plutôt :

COMMENT JE LIS UN FICHIER CSV AVEC OOo

et pas un problème de connexion ni delphi , mais avant tout et premièrement OOo

[DragonHeart]

Salut,

je vais essayé de voir pour ouvrir un CSV avec OOo j'y arrive trés bien quand il s'agit d'une source de donnée (il faut indiqué les paramétre séparateur et compagnie ...)

pour le VarArrayCreate([0, -1], varVariant); chez moi ca passe sans soucis ...