Differenze tra le versioni di "La gestione mediante il componente gb.openal"
Da Gambas-it.org - Wikipedia.
| Riga 31: | Riga 31: | ||
'''Public''' Sub Button1_Click() <FONT color=gray>' ''Avvia l'esecusione del file audio''</font> | '''Public''' Sub Button1_Click() <FONT color=gray>' ''Avvia l'esecusione del file audio''</font> | ||
| − | Dim | + | Dim fileAudio As String = "''/percorso/del/file/audio''" |
Dim src, lungh As Integer | Dim src, lungh As Integer | ||
Dim ast As Alurestream | Dim ast As Alurestream | ||
| Riga 39: | Riga 39: | ||
<FONT color=gray>' ''Individua la lunghezza del file audio caricato da eseguire:''</font> | <FONT color=gray>' ''Individua la lunghezza del file audio caricato da eseguire:''</font> | ||
| − | lungh = Stat( | + | lungh = Stat(fileAudio).Size |
| − | ast = Alure.CreateStreamFromFile( | + | ast = Alure.CreateStreamFromFile(fileAudio, lungh, 0) |
<FONT color=gray>' ''Esegue il flusso di dati audio.'' | <FONT color=gray>' ''Esegue il flusso di dati audio.'' | ||
Versione delle 16:46, 24 ott 2013
Con la revisione 5753 di Gambas-3 è stato aggiunto il componente: gb.openal che utilizza le risorse dell'API di Openal.
E' possibile eseguire un file audio mediante le risorse delle Classi Al ed Alure |1| del componente gb.openal.
Indice
Eseguire un file audio con le risorse della Classe Al e della Classe Alure
Vi sono almeno tre modalità per eseguire un file audio mediante le risorse della Classe Al e della Classe Alure del componente gb.openal.
E' possibile riprodurre file audio dei seguenti tipi:
- WAV;
- MP3;
- OGG.
1a modalità
Private src As Integer
Private ciclo As Boolean
Public Sub Form_Open()
Dim err As Boolean
' Inizializza la libreria "Alure":
err = Alure.InitDevice(Null, Null)
If err = False Then Error.Raise("Impossibile inizializzare la libreria 'Alure' !")
End
Public Sub Button1_Click() ' Avvia l'esecusione del file audio
Dim fileAudio As String = "/percorso/del/file/audio"
Dim src, lungh As Integer
Dim ast As Alurestream
src = Al.GenSources(1)[0]
' Individua la lunghezza del file audio caricato da eseguire:
lungh = Stat(fileAudio).Size
ast = Alure.CreateStreamFromFile(fileAudio, lungh, 0)
' Esegue il flusso di dati audio.
' Il terzo parametro della funzione rappresenta il numero dei buffer utilizzati da accodare alla fonte di "OpenAL".
' Ogni buffer verrà riempito con la lunghezza del "chunk" specificato quando il flusso è stato creato.
' Tale valore nell'esecuzione di un file audio deve essere di almeno 2.
Alure.PlaySourceStream(src, ast, 3, 0)
ciclo = True
While ciclo
Wait 0.001
Wend
End
Public Sub Button2_Click() ' Arresta l'esecusione del file audio
Alure.StopSource(src)
ciclo = False
End
2a modalità
Private source As Integer
Private ciclo As Boolean
Public Sub Form_Open()
Dim err As Boolean
' Inizializza la libreria "Alure":
err = Alure.InitDevice(Null, Null)
If err = False Then Error.Raise("Impossibile inizializzare la libreria 'Alure' !")
End
Public Sub Button1_Click() ' Avvia l'esecusione del file audio
Dim buffer As Integer
buffer = alure.CreateBufferFromFile("/percorso/del/file/audio")
' Crea una sorgente sonora:
source = al.GenSources(1)[0]
' Viene utilizzata la variabile "buffer" per riempire la sorgente.
' Il secondo argomento indica al buffer di fornire campioni sonori:</font>
al.Sourcei(source, al.BUFFER, buffer)
' Esegue il flusso di dati audio.
al.SourcePlay(source)
ciclo = True
While ciclo
Wait 0.001
Wend
End
Public Sub ToggleButton1_Click()
If ToggleButton1.Value
' Mette in pausa l'esecusione del file audio
al.SourcePause(source)
Else
' Fa proseguire l'esecusione del file audio
al.SourcePlay(source)
Endif
End
Public Sub Button2_Click() ' Arresta l'esecusione del file audio
al.SourceStop(source)
ciclo = False
End
3a modalità
Private ags As Integer
Private ciclo As Boolean
Public Sub Button1_Click() ' Avvia l'esecusione del file audio
Dim err As Boolean
Dim fileAudio As String = "/percorso/del/file/audio"
Dim agb As Integer
' Inizializza la libreria "Alure":
err = Alure.InitDevice(Null, Null)
If err = False Then Error.Raise("Impossibile inizializzare la libreria 'Alure' !")
' Genera le sorgenti sonore ed i buffer:
ags = al.GenSources(1)[0]
agb = al.GenBuffers(ags)[0]
err = alure.BufferDataFromFile(fileAudio, agb)
If err = False Then Error.Raise("Impossibile creare un buffer-data dal file audio !")
al.Sourcei(ags, al.BUFFER, agb)
' Esegue il file audio:
al.SourcePlay(ags)
ciclo = True
While ciclo
Wait 0.001
Wend
End
Public Sub ToggleButton1_Click()
If ToggleButton1.Value
' Mette in pausa l'esecusione del file audio
al.SourcePause(ags)
Else
' Fa proseguire l'esecusione del file audio
al.SourcePlay(ags)
Endif
End
Public Sub Button2_Click() ' Arresta l'esecusione del file audio
al.SourceStop(ags)
ciclo = False
End
Note
[1] La Classe Alure del componente gb.openal consente di gestire le funzioni di ALURE, che è una libreria di supporto di Openal.
