|
|
| (34 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Con la revisione 5753 di Gambas-3 è stato aggiunto il componente: ''gb.openal'' che utilizza le risorse dell'[http://it.wikipedia.org/wiki/Application_programming_interface API] di [http://connect.creativelabs.com/openal/default.aspx Openal].
| + | #REDIRECT [[La_gestione_dei_file_audio_mediante_il_componente_gb.openal]] |
| − | | |
| − | E' possibile eseguire un file audio mediante le risorse delle seguenti Classi del componente ''gb.openal'':
| |
| − | * ''Al'' ed ''Alure'' |[[#Note|1]]|
| |
| − | | |
| − | | |
| − | | |
| − | ==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''.
| |
| − | <BR>E' possibile riprodurre file audio dei seguenti tipi:
| |
| − | * WAV;
| |
| − | * MP3;
| |
| − | * OGG.
| |
| − | | |
| − | | |
| − | ===1<SUP>a</sup> modalità===
| |
| − | '''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 src, lungh As Integer
| |
| − | Dim ast As Alurestream
| |
| − |
| |
| − |
| |
| − | src = Al.GenSources(1)[0]
| |
| − |
| |
| − | <FONT color=gray>' ''Individua la lunghezza del file audio caricato da eseguire:''</font>
| |
| − | lungh = Stat(percorsoFile).Size
| |
| − |
| |
| − | ast = Alure.CreateStreamFromFile(percorsoFile, lungh, 0)
| |
| − |
| |
| − | <FONT color=gray>' ''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.''</font>
| |
| − | Alure.PlaySourceStream(src, ast, 3, 0)
| |
| − |
| |
| − | While True
| |
| − | Wait 0.001
| |
| − | 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'''
| |
| − | | |
| − | | |
| − | ===2<SUP>a</sup> modalità===
| |
| − | '''Public''' Sub Main()
| |
| − |
| |
| − | Dim err As Boolean
| |
| − | Dim buffer, source, status As Integer
| |
| − |
| |
| − |
| |
| − | <FONT color=gray>' ''Inizializza la libreria "Alure":''</font>
| |
| − | alure.InitDevice(Null, Null)
| |
| − | If err = AL_FALSE Then Error.Raise("Impossibile inizializzare la libreria 'Alure' !")
| |
| − |
| |
| − | buffer = alure.CreateBufferFromFile("''/percorso/del/file/audio''")
| |
| − |
| |
| − | <FONT color=gray>' ''Crea una sorgente sonora:''</font>
| |
| − | source = al.GenSources(1)[0]
| |
| − |
| |
| − | <FONT color=gray>' ''Viene utilizzata la variabile "buffer" per riempire la sorgente.''
| |
| − | ' ''Il secondo argomento indica al buffer di fornire campioni sonori:''</font></font>
| |
| − | al.Sourcei(source, al.BUFFER, buffer)
| |
| − |
| |
| − | <FONT color=gray>' ''Esegue il flusso di dati audio.''</font>
| |
| − | al.SourcePlay(source)
| |
| − |
| |
| − | While True
| |
| − | Wait 0.001
| |
| − | Wend
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | ===3<SUP>a</sup> 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
| |
| − |
| |
| − |
| |
| − | <FONT color=gray>' ''Inizializza la libreria "Alure":''</font>
| |
| − | err = alure.InitDevice(Null, Null)
| |
| − | If err = AL_FALSE Then Error.Raise("Impossibile inizializzare la libreria 'Alure' !")
| |
| − |
| |
| − | <FONT color=gray>' ''Genera le sorgenti sonore ed i buffer:''</font>
| |
| − | 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)
| |
| − |
| |
| − | <FONT color=gray>' ''Esegue il file audio:''</font>
| |
| − | 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 [http://kcat.strangesoft.net/alure.html ALURE], che è una libreria di supporto di ''Openal''.
| |
