Versione attuale delle 03:05, 19 giu 2024

Nel caso di uso della Classe "Music " del Componente gb.sdl2.audio non è possibile ottenere attualmente il valore della durata del file audio prescelto da eseguire.
Il valore della durata è assolutamente necessario per far eseguire il file audio attivando la funzione "Wait " o un ciclo di attesa in un'applicazione a riga di comando.
In questa circostanza la libreria esterna "libmpeg3 può essere richiamata ed utilizzata proprio per ricavare da un file audio MP3 la frequenza e il numero di campioni audio presenti. Questi due valori consentiranno di ottenere la durata del file audio da eseguire.

E' necessario avere installata nel sistema e richiamare in Gambas la libreria condivisa: "libmpeg3.so.2.1.8 ".

Di seguito un esempio pratico per eseguire un file audio di formato Mp3:

Library "libmpeg3:2.1.8"

' mpeg3_t* mpeg3_open(char *path, int *error_return)
' Open the MPEG stream.
Private Extern mpeg3_open(path As String, error_return As Pointer) As Pointer

' long mpeg3_audio_samples(mpeg3_t *file, int stream)
' Total length obtained from the timecode.
Private Extern mpeg3_audio_samples(mpeg3file As Pointer, _stream As Integer) As Long

' int mpeg3_audio_channels(mpeg3_t *file, int stream)
Private Extern mpeg3_audio_channels(mpeg3file As Pointer, _stream As Integer) As Integer

' int mpeg3_close(mpeg3_t *file)
' Close the MPEG stream.
Private Extern mpeg3_close(mpeg3file As Pointer) As Integer


Public Sub Main()
 
 Dim mp3 As Pointer
 Dim perc As String
 Dim camp As Long
 Dim freq, i As Integer
 Dim s As Single
 Dim tmp As Date
 
 perc = "/percorso/del/file.mp3"
 Print "File audio:   "; perc
 
 mp3 = mpeg3_open(perc, 0)
 If mp3 == 0 Then Error.Raise("Errore !")
 
 Print "Canali audio: "; mpeg3_audio_channels(mp3, 0)
 camp = mpeg3_audio_samples(mp3, 0)
 freq = Sound.Frequency
 Print "Frequenza di campionamento: hz "; freq
 
 s = camp / freq
 
 Print "Durata totale: "; Time(0, 0, 0, s * 1000)
     
 Music.Load(perc)
 Music.Play
 
 tmp = Now
 
 Repeat
   i = DateDiff(tmp, Now, gb.Second)
   Write "\e[0m\rTempo trascorso: \e[31m" & Time(0, 0, 0, i * 1000)
' Impone un'attesa, per ridurre il consumo di risorse:
   Wait 0.01
' Quando i secondi trascorsi dall'inizio dell'esecuzione del file audio sono uguali o superiori alla durata del file medesimo, si esce dal ciclo:
 Until i >= s
 
 mpeg3_close(mp3)
 
End

Riferimenti

• http://www.heroinewarrior.com/libmpeg3/