Differenze tra le versioni di "Ottenere il bitrate di un file mp3 con le funzioni esterne del API di VLC"
Da Gambas-it.org - Wikipedia.
| Riga 31: | Riga 31: | ||
Public Sub Main() | Public Sub Main() | ||
| − | + | ||
| − | Dim | + | Dim mp3 As String |
Dim vlc, m As Pointer | Dim vlc, m As Pointer | ||
| − | Dim | + | Dim dm, l As Long |
| − | + | ||
| − | + | mp3 = "<FONT Color=darkgreen>''/percorso/del/file.mp3''</font>" | |
| − | + | dm = Stat(mp3).Size | |
| − | + | ||
vlc = libvlc_new(0, Null) | vlc = libvlc_new(0, Null) | ||
| − | + | ||
| − | m = libvlc_media_new_path(vlc, | + | m = libvlc_media_new_path(vlc, mp3) |
| − | + | ||
libvlc_media_parse_with_options(m, libvlc_media_parse_local, 0) | libvlc_media_parse_with_options(m, libvlc_media_parse_local, 0) | ||
| − | + | ||
Repeat | Repeat | ||
| − | l = libvlc_media_get_duration(m) | + | l = libvlc_media_get_duration(m) |
Wait 0.01 | Wait 0.01 | ||
Until l > 0 | Until l > 0 | ||
| − | + | ||
| − | Print "File audio: "; | + | Print "File audio: "; mp3 |
| − | Print "Dimensione: "; | + | Print "Dimensione: "; dm; " byte" |
| − | Print "\nDurata: "; Time(0, 0, 0, l | + | Print "\nDurata: "; Time(0, 0, 0, l), "\e[1mBitrate: \e[31m"; ((dm * 8) \ l); "Kbps" |
| − | + | ||
libvlc_media_release(m) | libvlc_media_release(m) | ||
libvlc_release(vlc) | libvlc_release(vlc) | ||
| − | + | ||
End | End | ||
Versione attuale delle 06:18, 14 gen 2024
Per ottenere il bitrate di un file mp3 con le funzioni esterne del API di VLC, si potrà utilizzare il seguente codice:
Library "libvlc:5.6.1"
Private Enum libvlc_media_parse_local = 0, libvlc_media_parse_network, libvlc_media_fetch_local,
libvlc_media_fetch_network = 4, libvlc_media_do_interact = 8
' libvlc_instance_t * libvlc_new (int argc, const char *const *argv)
' Create And initialize a libvlc instance.
Private Extern libvlc_new(argc As Integer, argv As String[]) As Pointer
' libvlc_media_t * libvlc_media_new_path (libvlc_instance_t *p_instance, const char *path)
' Create a media for a certain file path.
Private Extern libvlc_media_new_path(p_instance As Pointer, path As String) As Pointer
' int libvlc_media_parse_with_options (libvlc_media_t *p_md, libvlc_media_parse_flag_t parse_flag, int timeout)
' Parse the media asynchronously with options.
Private Extern libvlc_media_parse_with_options(p_md As Pointer, parse_flag As Integer, timeout As Integer) As Integer
' libvlc_time_t libvlc_media_get_duration(libvlc_media_t *p_md)
' Get duration (in ms) of media descriptor object item.
Private Extern libvlc_media_get_duration(p_md As Pointer) As Long
' void libvlc_media_release (libvlc_media_t *p_md)
' Decrement the reference count of a media descriptor object.
Private Extern libvlc_media_release(p_md As Pointer)
' libvlc_release (libvlc_instance_t * p_instance)
' Decrement the reference count of a libvlc instance, and destroy it if it reaches zero.
Private Extern libvlc_release(p_instance As Pointer)
Public Sub Main()
Dim mp3 As String
Dim vlc, m As Pointer
Dim dm, l As Long
mp3 = "/percorso/del/file.mp3"
dm = Stat(mp3).Size
vlc = libvlc_new(0, Null)
m = libvlc_media_new_path(vlc, mp3)
libvlc_media_parse_with_options(m, libvlc_media_parse_local, 0)
Repeat
l = libvlc_media_get_duration(m)
Wait 0.01
Until l > 0
Print "File audio: "; mp3
Print "Dimensione: "; dm; " byte"
Print "\nDurata: "; Time(0, 0, 0, l), "\e[1mBitrate: \e[31m"; ((dm * 8) \ l); "Kbps"
libvlc_media_release(m)
libvlc_release(vlc)
End
