OpenOffice et Windev ne font pas bon ménage ...
Posté par KPiTN le 7/2/2005 10:10:54
Bonjour,
Devant l'importance que prends openoffice dans le monde bureautique, nous developpeurs ne pouvont pas imposer d'utiliser la suite office microsoft.
J'ai vu ce qui a été présenté dans la dernière WINDEVERIES, et je trouve la solution difficile a utilisé et ne repondant pas a mes souhaits, donc j'ai decider de fouiné un peu.
- Dans le NG peut de reponse concluante, un des message disant que windev n'etait pas adapter a open office.
- Sur le forum d'openoffice
un seul message d'une personne utilisant windev et se terminant sur un "windev n'est pas adapter"(ici)
Que peut on faire avec windev :
-Il est possible d'ouvrir un document open office vierge ou existant
- Il n'est pas possible de passer un paramètre a l'ouverture de ce document.
Cette dernière tentative devrait marcher mais helas :
Vous avez appelé la méthode Automation 'loadComponentFromURL'.
Le paramètre 4 n'est pas convertible en paramètre automation.
Quelqu'un a t'il reussi a passer le cap du passage de paramètre ?
Devant l'importance que prends openoffice dans le monde bureautique, nous developpeurs ne pouvont pas imposer d'utiliser la suite office microsoft.
J'ai vu ce qui a été présenté dans la dernière WINDEVERIES, et je trouve la solution difficile a utilisé et ne repondant pas a mes souhaits, donc j'ai decider de fouiné un peu.
- Dans le NG peut de reponse concluante, un des message disant que windev n'etait pas adapter a open office.
- Sur le forum d'openoffice
un seul message d'une personne utilisant windev et se terminant sur un "windev n'est pas adapter"(ici)
Que peut on faire avec windev :
-Il est possible d'ouvrir un document open office vierge ou existant
objServiceManager, objDesktop, objDocument sont des objets Automation dynamique
objServiceManager = allouer un objet Automation "com.sun.star.ServiceManager"
objDesktop = objServiceManager>>createInstance("com.sun.star.frame.Desktop")
args est un tableau de 0 entiers
//ouverture de excel
objDocument = objDesktop>>loadComponentFromURL("private:factory/scalc","_blank", 0, args)
//ouverture d'un document existant
objDocument = objDesktop>>loadComponentFromURL("file:///c|/test.doc","_blank", 0, args)
libérer objDocument
libérer objDesktop
libérer objServiceManager- Il n'est pas possible de passer un paramètre a l'ouverture de ce document.
//--------------------------------------------------------------------------------------
//Exemple de declaration dans delphi :
var Struct: variant;
begin
Struct := StarOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Struct.Name := PropName;
Struct.Value := PropValue;
end;
//--------------------------------------------------------------------------------------
//Exemple de declaration dans VB :
dim args(0) as new com.sun.star.beans.PropertyValue
args(0).name = "Hidden"
args(0).value = true
//Autre exemple pour acceder a cette structure en VB
//------------------------------------------------------------------------
Function setOOoProp(cName, uValue) As Object //fonction tampon pour la structure
Dim oPropertyValue As Object
Dim oSM As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oPropertyValue = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oPropertyValue.Name = cName
oPropertyValue.Value = uValue
Set setOOoProp = oPropertyValue
End Function
Dim OpenPar(2) As Object
Set OpenPar(0) = setOOoProp("ReadOnly", True)
Set OpenPar(1) = setOOoProp("Password", "secret")
Set OpenPar(2) = setOOoProp("Hidden", False)
//--------------------------------------------------------------------------------------
//Exemple de tentatives infructueuse en windev (Erreur de CODE):
fileprop est un Variant
fileprop=objServiceManager>>Bridge_GetStruct("com.sun.star.beans.PropertyValue")
args est un tableau de 1 fileprop
//------------------------------------------
args est un tableau de 1 objServiceManager>>Bridge_GetStruct("com.sun.star.beans.PropertyValue")
//------------------------------------------
//D'apres l'exemple avec la fonction tampon :
PROCEDURE SProp(cName, uValue)
oPropertyValue est un objet Automation dynamique
oSM est un objet Automation dynamique
oSM = allouer un objet Automation "com.sun.star.ServiceManager"
oPropertyValue = oSM>>Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oPropertyValue>>Name = cName
oPropertyValue>>Value = uValue
RENVOYER oPropertyValue
args est un tableau de 1 objets Automation dynamique
args[1]=SProp("ReadOnly",True)
objDocument = objDesktop>>loadComponentFromURL(Url,"_blank", 0, args)
Cette dernière tentative devrait marcher mais helas :
Vous avez appelé la méthode Automation 'loadComponentFromURL'.
Le paramètre 4 n'est pas convertible en paramètre automation.
Quelqu'un a t'il reussi a passer le cap du passage de paramètre ?
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1773&post_id=7397