Differenze tra le versioni di "Generare un file WAV da dati audio grezzi con le funzioni esterne del API di LibAo"

Da Gambas-it.org - Wikipedia.
 
(6 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
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''" .
+
Con la libreria esterna ''libao'' è possibile generare un file WAV da dati audio grezzi.
  
−
Di seguito un possibile codice per generare con le risorse della libreria ''libao'' un file wav, ad esempio, utilizzando i dati audio grezzi ottenuti per creare un'onda sinusoidale:
+
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"
 
  Library "libao:4.1.1"
 
   
 
   
Riga 43: Riga 45:
 
   
 
   
 
   Dim ao_sf As New Ao_sample_format
 
   Dim ao_sf As New Ao_sample_format
−
   Dim deviceWav, device As Pointer
+
   Dim device As Pointer
−
   Dim driver, default_driver, buf_size As Integer
+
   Dim driver, default_driver As Integer
 
   Dim buffer As Byte[]
 
   Dim buffer As Byte[]
−
  Dim freq As Single = 440.0
 
 
    
 
    
 
  <FONT color=gray>' ''Inizializza la libreria 'libao':''</font>
 
  <FONT color=gray>' ''Inizializza la libreria 'libao':''</font>
Riga 67: Riga 68:
 
   driver = ao_driver_id("wav")
 
   driver = ao_driver_id("wav")
 
   
 
   
−
   deviceWav = ao_open_file(driver, "/tmp/file.wav", 1, ao_sf, Null)
+
<FONT color=gray>' ''Imposta il percorso e le caratteristiche del file WAV che sarà infine creato:''</font>
−
   If deviceWav == 0 Then Error.Raise("Errore nell'apertura del dispositivo audio !")
+
   device = ao_open_file(driver, "/tmp/intWAV", 1, ao_sf, 0)
−
 
+
   If device == 0 Then Error.Raise("Errore nell'apertura del dispositivo audio !")
−
   buffer = ElaboraOnda(ao_sf, freq)
+
 +
<FONT color=gray>' ''Carica ad esempio un file contenente sono dati audio grezzi:''</font>
 +
   buffer = Byte[].FromString(File.Load("<FONT color=darkgreen>''/percorso/file/dati/audio/grezzi''</font>"))
 +
 +
  Crea_File_Wav(buffer, device)
 
   
 
   
−
  Crea_File_Wav(buffer)
 
−
   
 
 
  <FONT color=gray>' ''Va in chiusura:''</font>
 
  <FONT color=gray>' ''Va in chiusura:''</font>
 
   buffer.Clear()
 
   buffer.Clear()
−
  ao_close(device)
 
 
   ao_shutdown()
 
   ao_shutdown()
 
   
 
   
Riga 82: Riga 84:
 
   
 
   
 
   
 
   
−
  Private Function ElaboraOnda(aosf As Ao_sample_format, frequenza As Integer) As Byte[]
+
  Private Procedure Crea_File_Wav(buf As Byte[], dev as Pointer )
−
 
 
−
  Dim buff_dim, i, sample As Integer
 
−
  Dim buffer As Byte[]
 
−
 
 
−
<FONT color=gray>' ''Elabora il suono:''</font>
 
−
  buff_dim = aosf.bits / 8 * aosf.channels * aosf.rate
 
 
   
 
   
−
   buffer = New Byte[buff_dim]
+
   While len(File.Load("/tmp/intWAV")) = 0
−
   
+
     ao_close(dev)
−
  For i = 0 To aosf.rate - 1
+
     wait 0.01
−
<FONT color=gray>' ''Genera l'onda sinusoidale:''</font>
+
   Wend
−
    sample = CInt(0.75 * 32768.0 * Sin(2 * Pi * frequenza * CSingle(i / aosf.rate)))
 
−
<FONT color=gray>' ''Imposta il medesimo suono nei canali destro e sinistro:''</font>
 
−
     buffer[4 * i] = sample And &FF
 
−
    buffer[4 * i + 2] = sample And &FF
 
−
    buffer[4 * i + 1] = Shr(sample, 8) And &FF
 
−
     buffer[4 * i + 3] = Shr(sample, 8) And &FF
 
−
  Next
 
−
   
 
−
   Return buffer
 
−
   
 
−
End
 
 
   
 
   
 +
<FONT color=gray>' ''Crea il nuovo file WAV associando i dti di intestazione del WAV con i dati grezzi:''</font>
 +
  File.Save("/tmp/file.wav", File.Load("/tmp/intWAV") & buf.ToString(0, buf.Count))
 
   
 
   
−
Private Procedure Crea_File_Wav(buf As Byte[])
 
−
 
 
−
  Dim s As String
 
−
   
 
−
  s = buf.ToString(0, buf.Count)
 
−
  If IsNull(s) Then Error.Raise("Dati audio grezzi inesistenti !")
 
−
   
 
−
  File.Save("/tmp/file.wav", File.Load("/tmp/file.wav") & s)
 
−
 
 
 
  End
 
  End
  

Versione attuale delle 18:48, 13 gen 2024

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


Riferimenti

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Generare_un_file_WAV_da_dati_audio_grezzi_con_le_funzioni_esterne_del_API_di_LibAo&oldid=36218"