Discussion :

[Papino]

En reprenant l'exemple de la FAQ delphi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
    OpenDesktop : Variant;
    LoadParams : Variant;
    NomFichier : AnsiString;
begin
   OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
   LoadParams := VarArrayCreate([0, -1], varVariant);
   NomFichier := StringReplace('C:Documents and SettingsJeromeMes documentsdemo.sxw'
                                           , '', '/', [rfReplaceAll, rfIgnoreCase]);
   Document := openDesktop.LoadComponentFromURL( 'file:///'+NomFichier, '_blank', 0,  LoadParams);
end;

Je n'ai pas d'erreur de compilation, par contre à l'exécution j'ai un message d'erreur:

"Le projet OO.exe a provoqué une classe d'exception EOle Exception avec le message 'com.sun.star.lang.IllegalArgumentException: URL seems to be an unsupported one '....

J'utilise OpenOffice 3.1.1.
Il semble par ailleurs que l'extension des fichiers ait changé ( .odt au lieu de .sxw)
Enfin lorsque je teste la présence d'OpenOffice (http://www.developpez.net/forums/d65...fice-installe/)

Code :

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

1
2
3
OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
if  VarIsEmpty(OpenOffice) then
   ShowMessage('OpenOffice Absent')

la réponse est positive.

Merci de votre aide.

[philnext]

Ton StringReplace me semble plutôt bizarre. Tu peux dire la valeur de
NomFichier après celui ci ?
Un petit coup de FileExists ne ferait d'ailleurs pas de mal...

[Papino]

Dans mon test, le code est :

Code :

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

 NomFichier := StringReplace('C:\Bibliothèques\Documents\test.odt', '\', '/', [rfReplaceAll, rfIgnoreCase]);

et NomFichier devient :

'C:/Bibliothèques/Documents/test.odt'

... qui existe réellement !

[philnext]

Alors peut être que la syntaxe du nom de fichier pose problème (par exemple les caractères accentués...).
Essaye déjà de mettre un nom de fichier court (test.odt est très bien) et directement dans c:\ .

[SergioMaster]

j'utilise ceci pour passer un nom de fichier windows en fichier type URL

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
 
function FileToURL(F : String) : AnsiString;
var i : Word;
    R : AnsiString;
begin
   R:='file:///'+F;
   // transforme le nom du fichier en adresse URL
   while (Pos('\',R)>0) do    {les \ en /}
   begin
    i:=Pos('\',R);
    Delete(R,i,1);
    Insert('/',R,i);
   end;
  while (Pos(' ',R)>0) do    {les espaces en %20}
  begin
    i:=Pos(' ',R);
    Delete(R,i,1);
    Insert('%20',R,i);
  end;
  result:=R;
  end;

jusque là cela ne m'a pas fait défaut D3 à D7

[Papino]

Alors peut être que la syntaxe du nom de fichier pose problème (par exemple les caractères accentués...).
Essaye déjà de mettre un nom de fichier court (test.odt est très bien) et directement dans c:\ .

C'est fait et... ça passe !

NomFichier = 'C:\Test.odt'

Shame on me
Je trouvais pratique de copier/coller dans la ligne d'adresse le nom du répertoire, mais depuis Windows7 ( pour moi qui était sous XP ) cette ligne change en fonction de l'accés ainsi :

Bibliothèques\Documents

est en réalité

C:\Users\nom_utilisateur\Documents

et s'affiche

(C: )> utilisateur> nom_utilisateur> Mes documents

Pourquoi faire simple ???

Merci à tous pour ce grand pas - pour moi -

P.S. J'avais une autre erreur d'installation d'OO que j'ai réinstallé ( non sans peine ) et qui compliquait le problème...