Eseguire un file WAV mediante le funzioni esterne del API di Flite

Da Gambas-it.org - Wikipedia.

Flite è una libreria semplice e snella per eseguire la conversione da testo-a-parlato (text-to-speech). Consente, comunque, anche di eseguire un file audio di formato WAV.

E' necessario avere installata nel sistema e richiamare in Gambas la libreria condivisa: "libflite.so.2.2 ".

Di seguito un semplice esempio:

Library "libflite:2.2"

Public Struct cst_wave
  type As Pointer
  sample_rate As Integer
  num_samples As Integer
  num_channels As Integer
  samples As Pointer
End Struct

Private CST_OK_FORMAT As Integer = 0

' cst_wave *new_wave()
Private Extern new_wave() As Pointer

' int cst_wave_load_riff(cst_wave *w, const char *filename)
Private Extern cst_wave_load_riff(w As Cst_wave, filename As String) As Integer

' int play_wave(cst_wave *w)
Private Extern play_wave(w As Cst_wave) As Integer

' void delete_wave(cst_wave *val)
Private Extern delete_wave(w As Cst_wave)


Public Sub Main()
 
 Dim wav As Cst_wave
 Dim filewave As String
 
 filewave = "/percorso/del/file.wav"
  
' Inizializza la Struttura "cst_wave":
 wav = new_wave()
   
' Verifica che il file caricato sia del formato riff-wav:
 If cst_wave_load_riff(wav, filewave) <> CST_OK_FORMAT Then
   Error.Raise("Impossibile leggere il file: formato errato !")
 Endif
  
 With wav
   Print "Frequenza di campionamento: "; .sample_rate; " hertz"
   Print "Numero canali:              "; .num_channels
   Print "Durata:                     "; Time(0, 0, 0, (.num_samples / .sample_rate) * 1000)
 End With
   
' Esegue il file wav:
 play_wave(wav)
   
' Va in chiusura:
 delete_wave(wav)
  
End


Riferimenti