[Basic] Jouer un son de Gallery (wav, mp3)

[Jurassic Pork]

Hello,
n'ayant pas trouvé un code qui joue un son sur les 3 principaux O.S (Windows, unix, macos) en utilisant les services media de O.O L.O, je vous propose un module son qui contient deux procédures :
Une qui permet de jouer un son ou une musique à partir d'un fichier audio.

Code : Tout sélectionner

JouerSon(LeSon As String)

exemple d'utilisation : JouerSon("D:\Temp\MonSon.mp3")
Une qui permet de jouer un son qui se trouve dans la galerie sons de O.O, L.O (ex : train.wav)

Code : Tout sélectionner

JouerSonGalerie(LeSon As String)

exemple d'utilisation : JouerSonGalerie("cow.wav")
Pour pouvoir utiliser le service média adéquat il faut que le code détecte l'O.S sur lequel il est exécuté. J'utilise la fonction de LibreOfficiant OSName :

Code : Tout sélectionner

Function OSName As String
    ''' Return platform name as "MAC", "UNIX", "WIN" '''
    ' LibreOfficiant  05/2019
    With GlobalScope.Basiclibraries
        If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    Dim keyNode As Object ' com.sun.star.configuration.ConfigurationAccess '
    keyNode = Tools.Misc.GetRegistryKeyContent("org.openoffice.Office.Common/Help")
    OSName = keyNode.GetByName("System")
    ' inferred from "Tools.UCB.ShowHelperDialog" '
End Function ' (Tools).OSName

Les services media utilisés pour jouer le son sont :
com.sun.star.media.Manager_DirectX pour Windows
com.sun.star.comp.media.Manager_GStreamer pour Unix (nécessite que la bibliothèque Gstreamer soit installée dans l'O.S)).
com.sun.star.media.Manager_MacAVF pour Macos (difficile à trouver celui-là : je n'ai pas trouvé sur internet de code qui l'utilise).
L'objet player est en variable globale pour éviter qu'il soit détruit à la fin de la procédure où il est utilisé. Si on le déclare dans une procédure, il faut attendre que le son soit joué avant de terminer la procédure (par une boucle testant l'état du player). Cela empêche de lancer une autre macro. Avec l'objet player en variable globale, le son est joué en arrière plan.
En pièce jointe un classeur contenant deux modules.
1 - Le module ModSonJP son décrit précédemment.
2 - Un module ModTestSonJP qui permet de tester les deux procédures du module Son.
Dans le classeur il y a deux boutons et une combobox :
La Combobox est chargée à l'activation du document, avec la liste des sons disponibles dans la galerie de sons, par la macro ListerSonsGalerie du module ModTestSonJP.
Le premier bouton permet de jouer le fichier qui se trouve dans la cellule A1 par la macro CmdJouerSonA1 du module ModTestSonJP.
Le deuxième bouton permet de jouer le fichier choisi dans la combobox par la macro CmdJouerSonGalerie du module ModTestSonJP.

TestSon.PNG

Testé sous Windows 10 avec LibreOffice 7.3.4.2 et OpenOffice 4.1.13
sous Ubuntu 20.04 avec LibreOffice 7.3.4.2
sous Macos Catalina 10.15 "Virtuel" avec OpenOffice 4.1.12 ( à confirmer que cela fonctionne avec un "vrai" Mac)

Ami calmant, J.P

[Dude]

n'ayant pas trouvé un code qui joue un son

Redif : https://forum.openoffice.org/fr/forum/s ... d%5B%5D=15


Pour ta fonction OSName, tu as GetGuiType à ta disposition.

[Jurassic Pork]

Merci de ne pas citer l'intégralité du message dans votre réponse surtout si c'est pour répété vos propres propos.
Cela alourdit inutilement la lecture.

Redif : https://forum.openoffice.org/fr/forum/s ... d%5B%5D=15


Pour ta fonction OSName, tu as GetGuiType à ta disposition.

Hé bien NON ! GetGuiType ne teste pas MACOS et les codes dont tu parles ne fonctionnent pas sur mon MacOS et en plus dans les codes dont tu parles il n'y a pas l'utilisation de la galerie sons.

[Dude]

GetGuiType ne teste pas MACOS

Parce que Linux et MacOS sont issus du même noyau Unix.

il n'y a pas l'utilisation de la galerie sons

A préciser dans le titre dans ce cas.

[tintin]

Bonjour Jurassic Pork,

Tout cela dépasse mon champ de compétence mais j'ai fait l'essai.
Comme dans ma signature : AOO 4.1.13 + macOS Intel 12.5.1 + temurin-8.jdk

Je ne vois pas où peut mener le contenu de la cellule A1.
Sur macOS les données sont stockées sur Macintosh HD. J'ai tenté plusieurs choses sans succés

En revanche le choix d'un son quel qu'il soit dans la cellule A3 est joué lors de l'action sur le bouton en B3.

Sur LibO 7.3.5 stable et macOS 10.13.6 + Eclipse Adoptium 11.0.14.1
Idem pour A1 et B1
Pour A3 une seule proposition de son (laser en l'occurrence) et l'action sur le bouton en B3 est sans effet.

[Jurassic Pork]

Je ne vois pas où peut mener le contenu de la cellule A1.
Sur macOS les données sont stockées sur Macintosh HD. J'ai tenté plusieurs choses sans succés

Par exemple si tu as un son monSon.mp3 qui est stocké dans le répertoire Documents et que ton nom d'utilisateur est toto, faut mettre
/Users/toto/Documents/monSon.mp3 en A1

MacTestSon.PNG

Sur LibO 7.3.5 stable et macOS 10.13.6 + Eclipse Adoptium 11.0.14.1
Idem pour A1 et B1
Pour A3 une seule proposition de son (laser en l'occurrence) et l'action sur le bouton en B3 est sans effet.

C'est en fait qu'il a pas trouvé la galerie de sons (je n'ai pas testé avec LibreOffice sous MacOS)

[tintin]

faut mettre
/Users/toto/Documents/monSon.mp3 en A1.

J'ai compris mon erreur. Je mettais des Barres obliques inversées.

C'est en fait qu'il a pas trouvé la galerie de sons

Oui, sans doute c'est ce que j'avais cru comprendre et que je voulais signaler. Je n'utilise pas LibO et n'avais pas le temps de faire plus.

[Jurassic Pork]

C'est en fait qu'il a pas trouvé la galerie de sons (je n'ai pas testé avec LibreOffice sous MacOS)

Bon j'ai installé LibreOffice 7.3.5 sur mon MacOs et j'ai compris pourquoi la galerie de sons ne fonctionnait pas dans mes macros. Contrairement aux installations de OpenOffice et LibreOffice (sous les autres O.S) il n'y a pas de répertoire share dans le répertoire d'installation du programme et la galerie de sons se trouve sous le répertoire Resources, donc pour que mes macros fonctionnent avec L.O sous MacOS il faut faire les modifications suivantes :
dans la procédure JouerSonGalerie :

Code : Tout sélectionner

    sSound1 = CreateUnoService("com.sun.star.util.PathSubstitution")._
        substituteVariables("$(inst)/Resources/gallery/sounds/" & LeSon, True)
        'substituteVariables("$(inst)/share/gallery/sounds/" & LeSon, True)

dans la procédure ListerSonsGalerie :

Code : Tout sélectionner

    sFolder = CreateUnoService("com.sun.star.util.PathSubstitution")._
        substituteVariables("$(inst)/Resources/gallery/sounds/", True)
        'substituteVariables("$(inst)/share/gallery/sounds/", True)

Avec ces modifications mes macros fonctionnent avec L.O sous MacOs.
Attention dans ce cas les macros ne sont plus compatibles avec OpenOffice et LibreOffice sous les autres O.S

Ami calmant, J.P