Differenze tra le versioni di "La gestione mediante il componente gb.openal"

Da Gambas-it.org - Wikipedia.
(Creata pagina con '<FONT color=red><B>Pagina in costruzione !</b></font>')
 
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].
 +
 +
E' possibile eseguire un file audio mediante le risorse delle Classi del componente ''gb.openal'':
 +
* ''Al'' ed ''Alure'' |[[#Note|1]]|
 +
 +
 +
 +
==Eseguire un file audio con le risorse della Classe ''Al'' e della Classe ''Alure''==
 +
Mostriamo un semplice codice 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.
 +
'''Public''' Sub Main()
 +
 +
  Dim percorsoFile As String = "''/percorso/del/file/audio''"
 +
  Dim src, lungh, isdone As Integer
 +
  Dim ast As Alurestream
 +
 +
 +
<FONT color=gray>' ''Inizializza la libreria "Alure":''</font>
 +
    Alure.InitDevice(Null, Null)
 +
 +
    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 Midi.''
 +
' ''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 Midi deve essere di almeno 2.''</font>
 +
    Alure.PlaySourceStream(src, ast, 3, 0)
 +
 +
    While isdone = 0
 +
      Alure.Update()
 +
    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''.
 +
 +
 +
 
<FONT color=red><B>Pagina in costruzione !</b></font>
 
<FONT color=red><B>Pagina in costruzione !</b></font>

Versione delle 16:46, 22 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 del componente gb.openal:

  • Al ed Alure |1|


Eseguire un file audio con le risorse della Classe Al e della Classe Alure

Mostriamo un semplice codice 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.
Public Sub Main()

  Dim percorsoFile As String = "/percorso/del/file/audio"
  Dim src, lungh, isdone As Integer
  Dim ast As Alurestream


' Inizializza la libreria "Alure":
   Alure.InitDevice(Null, Null)

   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 Midi.
' 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 Midi deve essere di almeno 2.
   Alure.PlaySourceStream(src, ast, 3, 0)

   While isdone = 0
     Alure.Update()
   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.


Pagina in costruzione !

Estratto da "https://www.gambas-it.org/wiki/index.php?title=La_gestione_mediante_il_componente_gb.openal&oldid=13882"