Differenze tra le versioni di "La gestione mediante il componente gb.openal"
Da Gambas-it.org - Wikipedia.
| Riga 120: | Riga 120: | ||
===3<SUP>a</sup> modalità=== | ===3<SUP>a</sup> modalità=== | ||
'''Private''' ags As Integer | '''Private''' ags As Integer | ||
| − | |||
| Riga 147: | Riga 146: | ||
al.SourcePlay(ags) | al.SourcePlay(ags) | ||
| − | + | Wait 0.001 | |
| − | + | ||
| − | |||
| − | |||
| − | |||
| − | |||
'''End''' | '''End''' | ||
| Riga 172: | Riga 167: | ||
al.SourceStop(ags) | al.SourceStop(ags) | ||
| − | |||
| − | |||
'''End''' | '''End''' | ||
Versione delle 03:29, 25 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 ast As Alurestream
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'esecuzione del file audio
Dim fileAudio As String = "/percorso/del/file/audio"
Dim src, lungh As Integer
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)
Wait 0.01
End
Public Sub Button2_Click() ' Arresta l'esecuzione del file audio
Alure.DestroyStream(ast)
Alure.StopSource(src)
End
2a modalità
Private source As Integer
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'esecuzione 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)
Wait 0.01
End
Public Sub ToggleButton1_Click()
If ToggleButton1.Value
' Mette in pausa l'esecuzione del file audio
al.SourcePause(source)
Else
' Fa proseguire l'esecuzione del file audio
al.SourcePlay(source)
Endif
End
Public Sub Button2_Click() ' Arresta l'esecuzione del file audio
al.SourceStop(source)
End
3a modalità
Private ags As Integer
Public Sub Button1_Click() ' Avvia l'esecuzione 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)
Wait 0.001
End
Public Sub ToggleButton1_Click()
If ToggleButton1.Value
' Mette in pausa l'esecuzione del file audio
al.SourcePause(ags)
Else
' Fa proseguire l'esecuzione del file audio
al.SourcePlay(ags)
Endif
End
Public Sub Button2_Click() ' Arresta l'esecuzione del file audio
al.SourceStop(ags)
End
Note
[1] La Classe Alure del componente gb.openal consente di gestire le funzioni di ALURE, che è una libreria di supporto di Openal.
