[code] Erreur d'ouverture de Open Office
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:
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