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
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
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);
Le message d'erreur est le suivant :
Cela vient-il d'une erreur de ma part ou d'un nouveau "bidule"
Code : Sélectionner tout - Visualiser dans une fenêtre à part com.sun.star.lang.IllegalArgumentException: URL seems to be an unsupported one
de W7 ?
d'avance !
Partager