Discussion :

[marsup54]

Bonjour à tous,

Voilà, j'ai quelques petites questions sur Open Office :

1) Voici un exemple de code (qui fonctionne bien). Le problème, c'est que j'ai remarqué que les process "sOffice.exe" et "sOffice.bin" ne se ferment pas après l'éxécution de ce code qui me parrait tout à fait correct (avec fermeture des objets ouverts, ...).

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
30
31
32
33
34
35
36
37
38
39
40
41
 
'Vérifie la présence d'OpenOffice Calc sur le poste utilisateur
Public Function CheckIfOOoCalcInstalled() As Boolean
    Dim oServiceManager As Object
    Dim oDesktop As Object
    Dim oDocument As Object
    Dim oOpenParam(2) As Object 'a Visual Basic array, with 3 elements
    Dim ErrMsg As String
 
On Error GoTo ErrHandler
    'Création d'un service OpenOffice.org
    Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
    Set oDesktop = oServiceManager.CreateInstance("com.sun.star.frame.Desktop")
    'We call the MakePropertyValue function, defined just before, to access the structure
    Set oOpenParam(0) = MakePropertyValue("ReadOnly", True)
    Set oOpenParam(1) = MakePropertyValue("Password", "")
    Set oOpenParam(2) = MakePropertyValue("Hidden", True)
    'Création d'un nouveau classeur
    Set oDocument = oDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, oOpenParam())
    Call oDocument.Close(False) 'emeture sans sauvegarde
    ' Suppression des objets pour libérer la mémoire
    Set oDocument = Nothing
    Set oDesktop = Nothing
    Set oServiceManager = Nothing
    CheckIfOOoCalcInstalled = True
    Exit Function
ErrHandler:
    CheckIfOOoCalcInstalled = False
    Exit Function
End Function
 
'Creates a sequence of com.sun.star.beans.PropertyValue s
Public Function MakePropertyValue(cName, uValue) As Object
    Dim oStruct, oServiceManager As Object
 
    Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
    Set oStruct = oServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    oStruct.name = cName
    oStruct.Value = uValue
    Set MakePropertyValue = oStruct
End Function

Que manque-t-il pour tuer correctement les process ?

2) Dans la fonction MakePropertyValue faut-il fermer l'objet oServiceManager ? J'ai trouvé cette fonction telle qu'elle sur le site officielle de OOo, donc ...

3) Quelle commande utiliser pour faire un retour chariot dans le writer (Word).

Merci d'avance pour votre aide.

++

[SilkyRoad]

bonsoir

tu peux faire un essai en remplaçant la ligne

Code :

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

Call oDocument.Close(False) 'emeture sans sauvegarde

par

Code :

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

oDocument.Dispose

bonne soiree
michel

[marsup54]

Je teste ça.

Merci

EDIT : ça ne fonctionne pas non plus. De plus en temp d'exécution, c'est bcp plus long.

[SilkyRoad]

bonjour


j'espere que ce lien pourra t'aider

http://www.mail-archive.com/prog@fr..../msg00993.html



bonne journée
michel

[marsup54]

Ok, merci !

C'est exactement la même question que je me posais !
Par contre, y'a apparemment pas de solution super efficace et multi-os.
La fonction ci dessous, plante OpenOffice (rapport de bug automatique)

Code :

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

1
2
 
Call oDesktop.Terminate

Je pense que je vais devoir tuer manuellement les processus "soffice.exe" et "soffice.bin".

Pour ceux qui ont OpenOffice sur leur poste, pouvez-vous me valider que ces processus ne change pas de nom en fonction de l'OS.

Merci de m'indiquer votre OS, ainsi que le nom des processus. (Sous W2000 et XP Pro, les noms sont identiques). Pour les autres OS, j n'ai pas moyen de le savoir.

Merci d'avance,

++

PS : Quelqu'un a une petite idée pour la question 3)

[marsup54]

Pour la question 3), j'ai trouvé l'exemple là dans le guide du developpeur VB pour OOo :

Code :

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

1
2
3
4
5
 
Set objCursor = oDocument.Text.createTextCursor
Call objCursor.goRight(20, False) 'déplace le curseur
Call oDocument.Text.insertControlCharacter(objCursor, _
             "com.sun.star.Text.ControlCharacter.LINE_BREAK", False)

Ca me retourne un message d'erreur !

Une idée ?
Merci d'avance

[AlainTech]

Ca me retourne un message d'erreur !

Et le jeu c'est de deviner lequel???

Qu'est-ce qu'on gagne si on devine???

[marsup54]

Et le jeu c'est de deviner lequel???

Qu'est-ce qu'on gagne si on devine???

Les personnes concernées par ce sujet (ou pouvant répondre), l'ont à mon avis déjà rencontré.
Néanmoins, voici le message :

InterfaceOleWrapper_Impl::Invoke :
[automation bridge]UnoConversionUtilities<T>::variantToAny
Cannot convert the value of vartype :"8" to the expected UNO type of type class: 4

Il ne veut d'ailleurs pas dire grand chose.

EDIT :
En remplacant "com.sun.star.Text.ControlCharacter.LINE_BREAK" par 0, ça fonctionne apparemment.
Bizarre...

[SilkyRoad]

edition

[marsup54]

edition

???

Les questions 2) et 3) sont résolues.
Reste la question 1) avec le problème de process qui ne se ferme pas ...

J'attends un peu avant de cloturer ce post, au cas ou quelqu'un trouverait une solution.

Encore merci pour votre aide.

++

[SilkyRoad]

bonjour

oui j'ai édité et supprimé mon message hier soir .

car je voulais te proposer de remplacer

"com.sun.star.Text.ControlCharacter.LINE_BREAK" par 0

avant de m'apercevoir que tu avais déja trouvé la solution tout seul ...;o)


bonne journée
michel