Discussion :

[JP.NUAGE]

Bonjour à tous

Voici un code que j'utilisais en D7 et sous Window XP. Cela fonctionnait fort bien. Le même sous D7 mais Window 7 plante

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
   try
      OO_Service:=CreateOleObject('com.sun.star.ServiceManager');
      OO_Desktop:=   
     OO_Service.CreateInstance('com.sun.star.frame.Desktop');
     except
         MessageDlg('Open Office n''a pas pu être lancé',mtError,[mbOk],0);
     Close;
     end;
 
NomFichier := StringReplace('C:\PERSONNEL\demo.sxw'
                                           , '\', '/', [rfReplaceAll, rfIgnoreCase]);
 
     properties:=VarArrayCreate([0,1],varVariant);
     CoreServ:=   
     OO_Service.CreateInstance('com.sun.star.reflection.CoreReflection');
 
 CoreServ.forName('com.sun.star.beans.PropertyValue').CreateObject(propC);
   CoreServ.forName('com.sun.star.beans.PropertyValue').CreateObject(propL);
    propC.name:='Hidden';
   propC.Value:=true;     
   properties[0]:=propC;
   propL.Name := 'ReadOnly';
   PropL.Value := true;
   Properties[1]:=PropL;
// C'est sur l'ordre qui suit que ce produit le plantage
   OO_Doc := OO_Desktop.LoadComponentFromURL(NomFichier,
                                          '_blank',
                                           0,
                                           properties);

je ne les ai pas ajoutées, mais il y a toutes les déclarations nécessaires. C'est à l'exécution que j'ai le pb

Le message d'erreur est le suivant :

Code :

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

 com.sun.star.lang.IllegalArgumentException: URL seems to be an unsupported one

Cela vient-il d'une erreur de ma part ou d'un nouveau "bidule" de W7 ?

d'avance !

[Ph. B.]

Bonjour,

Je pense que cela vient surtout d'Open Office dont la version doit être plus récente...
Pour que l'URL soit considérée valide, il faut la préfixer de manière adéquate :

Code :

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

NomFichier := 'file:///' + StringReplace('C:\PERSONNEL\demo.sxw', '\', '/', [rfReplaceAll, rfIgnoreCase]);

--
Philippe.

[JP.NUAGE]

Ph.B, cela fonctionne. Mais en regardant de plus près j'avais bien cette syntaxe. Pourtant, en la copiant dans une autre unité, rien ne passe. J'ai quand même réussi à contourner l'obstacle (par un moyen un peu tordu, il est vrai ).

encore !