Differenze tra le versioni di "La gestione mediante il componente gb.openal"
Da Gambas-it.org - Wikipedia.
| Riga 15: | Riga 15: | ||
===1<SUP>a</sup> modalità=== | ===1<SUP>a</sup> modalità=== | ||
| − | '''Public''' Sub | + | '''Private''' src As Integer |
| + | |||
| + | |||
| + | '''Public''' Sub Form_Open() | ||
| + | |||
| + | Dim err As Boolean | ||
| + | |||
| + | <FONT color=gray>' ''Inizializza la libreria "Alure":''</font> | ||
| + | err = Alure.InitDevice(Null, Null) | ||
| + | If err = False Then Error.Raise("Impossibile inizializzare la libreria 'Alure' !) | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub Button1_Click() <FONT color=gray>' ''Avvia l'esecusione del file audio''</font> | ||
Dim percorsoFile As String = "''/percorso/del/file/audio''" | Dim percorsoFile As String = "''/percorso/del/file/audio''" | ||
| − | Dim src, lungh | + | Dim src, lungh As Integer |
Dim ast As Alurestream | Dim ast As Alurestream | ||
| − | |||
| − | |||
| − | |||
src = Al.GenSources(1)[0] | src = Al.GenSources(1)[0] | ||
| Riga 38: | Riga 49: | ||
Alure.PlaySourceStream(src, ast, 3, 0) | Alure.PlaySourceStream(src, ast, 3, 0) | ||
| − | + | While True | |
| − | While | + | Wait 0.001 |
| − | |||
Wend | Wend | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub ToggleButton1_Click() | ||
| + | |||
| + | If ToggleButton1.Value | ||
| + | <FONT color=gray>' ''Mette in pausa l'esecusione del file audio''</font> | ||
| + | al.SourcePause(src) | ||
| + | Else | ||
| + | <FONT color=gray>' ''Fa proseguire l'esecusione del file audio''</font> | ||
| + | al.SourcePlay(src) | ||
| + | Endif | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub Button3_Click() <FONT color=gray>' ''Arresta l'esecusione del file audio''</font> | ||
| + | |||
| + | al.SourceStop(src) | ||
'''End''' | '''End''' | ||
Versione delle 14:37, 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 seguenti Classi del componente gb.openal:
- Al ed Alure |1|
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
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 percorsoFile 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(percorsoFile).Size
ast = Alure.CreateStreamFromFile(percorsoFile, 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)
While True
Wait 0.001
Wend
End
Public Sub ToggleButton1_Click()
If ToggleButton1.Value
' Mette in pausa l'esecusione del file audio
al.SourcePause(src)
Else
' Fa proseguire l'esecusione del file audio
al.SourcePlay(src)
Endif
End
Public Sub Button3_Click() ' Arresta l'esecusione del file audio
al.SourceStop(src)
End
2a modalità
Public Sub Main()
Dim err As Boolean
Dim buffer, source, status As Integer
' Inizializza la libreria "Alure":
alure.InitDevice(Null, Null)
If err = AL_FALSE Then Error.Raise("Impossibile inizializzare la libreria 'Alure' !")
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)
While True
Wait 0.001
Wend
End
3a modalità
Private Const AL_FALSE As Boolean = False
Public Sub Main()
Dim err As Boolean
Dim fileAudio As String = "/percorso/del/file/audio"
Dim ags, agb, status As Integer
' Inizializza la libreria "Alure":
err = alure.InitDevice(Null, Null)
If err = AL_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 bdf = AL_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)
While True
Wait 0.001
Wend
End
Note
[1] La Classe Alure del componente gb.openal consente di gestire le funzioni di ALURE, che è una libreria di supporto di Openal.
