Differenze tra le versioni di "Conoscere la durata di un file audio mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
| Riga 8: | Riga 8: | ||
Dim mp As MediaPlayer | Dim mp As MediaPlayer | ||
| − | + | With mp = New MediaPlayer | |
| − | + | .URL = Media.URL("<FONT Color=gray>''/percorso/del/file/audio''</font>") | |
| − | + | .Audio.Mute = True | |
| − | + | .Play | |
| − | + | Repeat | |
| − | + | Wait 0.01 | |
| − | + | Until mp.Duration > 0.0 | |
| − | + | Print "Durata del brano: " & CStr(Time(0, 0, 0, mp.Duration * 1000)) | |
| + | .Stop() | ||
| + | .Close() | ||
| + | End With | ||
'''End''' | '''End''' | ||
Versione delle 08:47, 30 mar 2021
Per conoscere la durata di un file audio, il Componente gb.media fornisce la proprietà .Duration della Classe MediaPlayer. In particolare questa proprietà restituisce un valore di tipo Float che rappresenta la durata del brano musicale espresso in secondi.
Poiché tale proprietà ritorna più precisamente la durata dei dati processati, essa potrà essere utilizzabile solo successivamente all'attivazione della funzione .Play( ) .
Mostriamo un essenziale esempio:
Public Sub Main()
Dim mp As MediaPlayer
With mp = New MediaPlayer
.URL = Media.URL("/percorso/del/file/audio")
.Audio.Mute = True
.Play
Repeat
Wait 0.01
Until mp.Duration > 0.0
Print "Durata del brano: " & CStr(Time(0, 0, 0, mp.Duration * 1000))
.Stop()
.Close()
End With
End
