Vorrei, come da titolo, installare estensioni utilizzando un codice.
Questo è quanto ho scritto, ma che ovviamente mi da errore all'ultima riga:
Codice: Seleziona tutto
Sub AggiungiEstensione
oExtensionManager = GetDefaultContext.getByName("/singletons/com.sun.star.deployment.ExtensionManager")
' XRay oExtensionManager
Dim PercorsoFileEstensione
Dim UrlFilecompleto As String
Dim noargs()
' Dim args(0) As New com.sun.star.beans.NamedValue
' args(0).Name = "....."
' args(0).Value = ....
PercorsoFileEstensione = "/home/antonio/Scrivania/Library1.oxt"
UrlFilecompleto = ConvertToUrl(PercorsoFileEstensione)
oExtensionManager.addExtension(UrlFilecompleto, noargs, "user", com.sun.star.task.XAbortChannel, com.sun.star.ucb.XCommandEnvironment)
End Sub
- Parameter url: package URL, must be UCB conform ; ma non ho idea come scrivere il paramento Url conforme a UCB
- Parameter properties: additional properties, for example, that the license is to be suppressed (if supported by the extension) ; forse accettazione della licenza? L'estensione da me creata è senza licenza da accettare
- Parameter repository: the name of the repository ; di questo ne sono certo "user"
- Gli altri due argomenti spero vadano bene .
Come faccio a farla funzionare?
Saluti e grazie
Geo