Generare un file WAV da dati audio grezzi con le funzioni esterne del API di LibAo
Da Gambas-it.org - Wikipedia.
Con la libreria esterna libao è possibile generare un file WAV da dati audio grezzi.
Per l'uso delle risorse della libreria libao bisognerà avere installata nel proprio sistema e richiamare nell'applicativo Gambas la libreria condivisa attualmente alla versione: "libao.so.4.1.1 ".
Di seguito un possibile codice per generare con le risorse della libreria libao un file wav, ad esempio, utilizzando un file contenente dati audio grezzi:
Library "libao:4.1.1"
Public Struct ao_sample_format
bits As Integer ' bits per sample
rate As Integer ' samples per second (in a single channel)
channels As Integer ' number of audio channels
byte_format As Integer ' Byte ordering in sample, see constants below
matrix As Pointer ' input channel location/ordering
End Struct
Private Const AO_FMT_LITTLE As Integer = 1
' void ao_initialize(void)
' library setup
Private Extern ao_initialize()
' int ao_driver_id(void)
' driver information
Private Extern ao_driver_id(s As String) As Integer
' int ao_default_driver_id(void)
' driver information
Private Extern ao_default_driver_id() As Integer
' ao_device* ao_open_file(int driver_id, const char *filename, int overwrite, ao_sample_format *format, ao_option *options)
' Open a file for audio output. The file format is determined by the audio driver used.
' on-NULL pointer inicates success. This pointer must be passed in subsequent calls to ao_play() and ao_close().
Private Extern ao_open_file(driver_id As Integer, filename As String, overwrite As Integer, fmt As Ao_sample_format, options As Pointer) As Pointer
' int ao_close(ao_device *device)
' Chiude il dispositivo audio
Private Extern ao_close(device As Pointer) As Integer
' void ao_shutdown(void)
' library teardown
Private Extern ao_shutdown()
Public Sub Main()
Dim ao_sf As New Ao_sample_format
Dim device As Pointer
Dim driver, default_driver As Integer
Dim buffer As Byte[]
' Inizializza la libreria 'libao':
ao_initialize()
' Imposta il driver audio come predefinito:
default_driver = ao_default_driver_id()
' Imposta le caratteristiche dell'audio in uscita:
With ao_sf
.bits = 16
.channels = 2
.rate = 44100
.byte_format = AO_FMT_LITTLE
End With
' Crea il file wav
' Imposta il driver audio per il wav:
driver = ao_driver_id("wav")
' Imposta il percorso e le caratteristiche del file WAV che sarà infine creato:
device = ao_open_file(driver, "/tmp/intWAV", 1, ao_sf, 0)
If device == 0 Then Error.Raise("Errore nell'apertura del dispositivo audio !")
' Carica ad esempio un file contenente sono dati audio grezzi:
buffer = Byte[].FromString(File.Load("/percorso/file/dati/audio/grezzi"))
Crea_File_Wav(buffer, device)
' Va in chiusura:
buffer.Clear()
ao_shutdown()
End
Private Procedure Crea_File_Wav(buf As Byte[], dev as Pointer )
While len(File.Load("/tmp/intWAV")) = 0
ao_close(dev)
wait 0.01
Wend
' Crea il nuovo file WAV associando i dti di intestazione del WAV con i dati grezzi:
File.Save("/tmp/file.wav", File.Load("/tmp/intWAV") & buf.ToString(0, buf.Count))
End
