Conoscere la durata di un file Midi mediante il Componente gb.media
Da Gambas-it.org - Wikipedia.
Versione del 4 ott 2016 alle 18:04 di Vuott (Discussione | contributi)
Per conoscere la durata di un file Midi, 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 file Midi 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.mid") .Play End With Do Sleep 0.01 Loop Until mp.Duration > 0 Print "Durata del file Midi: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Duration * 1000)) mp.Stop End