https://foro.gambas-es.org/viewtopic.php?f=1&t=4903
-----------------------------------
Shell
Jueves, 01 Octobre 2015, 09:05

Problemas Con La Clase DIalog Y Sound
-----------------------------------
Hola!.

Hace unos días comentaba que tuve un problema con la clase Dialog y el tipo Sound.

El código era tan sencillo como este:

[code linenumbers=false syntax=gambas]
Public Sub btnAbrir_Click()

  Dim ruta As String
  Dim misonido As Sound
  
  Dialog.Title = "Selecciona un archivo de audio"
  Dialog.Filter = ["*.ogg", "Archivos de audio"]
  Dialog.Path = User.Home
  If Dialog.OpenFile() Then Return
  ruta = File.Load(Dialog.Path)      
  misonido = Sound.Load(ruta)  
  misonido.play() 
  
  Catch
    Message.Info("Error")
  
End
[/code]

Error que produce:
- Violación de segmento
- No se reproduce la canción.
- Se muestra en la consola:

[quote]
gb.sdl2.audio: warning: Mixer not built with MP3 support
gb.sdl2.audio: warning: Mixer not built with MOD timidity support
[/quote]

Cambiemos el código. 

[code linenumbers=false syntax=gambas]
Public Sub btnAbrir_Click()

  Dim ruta As String
  Dim misonido As Sound
  
  Dialog.Title = "Selecciona un archivo de audio"
  Dialog.Filter = ["*.ogg", "Archivos de audio"]
  Dialog.Path = User.Home
  If Dialog.OpenFile() Then Return
  ruta = File.Load(Dialog.Path)  
  Print ruta

 Catch
   Message.Info("Error")
  

End
[/code]

Error que produce:

- En la consola se muestra como si mostrásemos el contenido del archivo de sonido!.

Cambiemos otra vez el código. Eliminamos la variable de cadena ruta.

[code linenumbers=false syntax=gambas]
Public Sub btnAbrir_Click()
 
  Dim misonido As Sound
  
  Dialog.Title = "Selecciona un archivo de audio"
  Dialog.Filter = ["*.ogg", "Archivos de audio"]
  Dialog.Path = User.Home
  If Dialog.OpenFile() Then Return 
  misonido = Sound.Load(Dialog.path)   
  misonido.play() 
  
 Catch
   Message.Info("Error")
  

End
[/code]

Errores que se producen:
[quote]
gb.sdl2.audio: warning: Mixer not built with MP3 support
gb.sdl2.audio: warning: Mixer not built with MOD timidity support
[/quote]

Pero el archivo es reproducido correctamente.

Al eliminar la variable del tipo sound la ruta es mostrada correctamente.

[code linenumbers=false syntax=gambas]
Public Sub btnAbrir_Click()
 
  'Dim misonido As Sound
  Dim ruta As String
  
  Dialog.Title = "Selecciona un archivo de audio"
  Dialog.Filter = ["*.ogg", "Archivos de audio"]
  Dialog.Path = User.Home
  If Dialog.OpenFile() Then Return 
  ruta = Dialog.Path
  Print ruta
  ' misonido = Sound.Load(Dialog.path)   
  ' misonido.play() 
  
 Catch
   Message.Info("Error")
  

End
[/code]

Salida en la consola:
[quote]
/home/jack/Prueba/Man With Two Hearts.ogg
[/quote]
Errores:
- Funciona correctamente esa parte de código

Y este es otro ejemplo funcional:

[code linenumbers=false syntax=gambas]
Public Sub btnAbrir_Click()

  Dim misonido As Sound
  Dim ruta As String 
    
  ruta = User.Home &/ "Prueba/Man With Two Hearts.ogg"
  
  misonido = Sound.Load(ruta)
  misonido.play() 
 
End
[/code]

Saludos


-----------------------------------
shordi
Jueves, 01 Octobre 2015, 10:00

Re: Problemas Con La Clase DIalog Y Sound
-----------------------------------
Sin entrar al fondo del tema, que sonidos no he utilizado casi nunca, no puedes meter un archivo de sonido en una variable string.

ruta=file.load(archivo.ogg)  debe darte algún tipo de error, seguro.


-----------------------------------
vuott
Jueves, 01 Octobre 2015, 12:16

Re: Problemas Con La Clase DIalog Y Sound
-----------------------------------
[quote user="Shell" post="28321"]Hace unos días comentaba que tuve un problema con la clase Dialog y el tipo Sound.

El código era tan sencillo como este:

[code linenumbers=false syntax=gambas]
Public Sub btnAbrir_Click()

  Dim ruta As String
  Dim misonido As Sound
  
  Dialog.Title = "Selecciona un archivo de audio"
  Dialog.Filter = ["*.ogg", "Archivos de audio"]
  Dialog.Path = User.Home
  If Dialog.OpenFile() Then Return
  ruta = File.Load(Dialog.Path)      
  misonido = Sound.Load(ruta)  
  misonido.play() 
  
  Catch
    Message.Info("Error")
  
End
[/code]

Error que produce:
- Violación de segmento
- No se reproduce la canción.[/quote]

En lo que respecto a las lineas:
[code linenumbers=false syntax=gambas]ruta = File.Load(Dialog.Path)      
  misonido = Sound.Load(ruta)  [/code]   :shock: 
....claro que obtienes error: porque cargas el entero (los [u]datos[/u] particulares) archivo .ogg en una variable de tipo [i]String[/i] y luego la asignas al metodo [i]Sound.Load()[/i] ? Este metodo quiere la [u][i]ruta[/i][/u] y [u]no los datos[/u] del archivo audio !


Respecto a:[quote]
gb.sdl2.audio: warning: Mixer not built with MP3 support
gb.sdl2.audio: warning: Mixer not built with MOD timidity support
[/quote]
no se el porque, pero puedo decirte que ocurre a todos y no da reales problemas de ejecución del archivo audio.


-----------------------------------
Shell
Jueves, 01 Octobre 2015, 12:58

Re: Problemas Con La Clase DIalog Y Sound
-----------------------------------
Shordi y Vuott:

[quote]
 no puedes meter un archivo de sonido en una variable string
[/quote]

Ostras que despiste, si es que estoy asignándole un archivo y no una rutaaa!.. :mrorange:  :mrorange:

Vuott:

Ahora ya se que mp3 es un archivo propietario, que raro que no soporte mp3 el  componente.
Parece que tambien la librería gb.sdl2.audio soporta midis. (music) Cosa que no he probado aun!.

Sorry for the noise!.  :grin: 

"Es can da lo", es un escandaloo.

Gracias a los dos.


-----------------------------------
vuott
Jueves, 01 Octobre 2015, 13:04

Re: Problemas Con La Clase DIalog Y Sound
-----------------------------------
[quote user="Shell" post="28333"]...que raro que no soporte mp3 el  componente.[/quote]
El Componente [i]gb.sdl2.audio[/i] soporta el tipo MP3, pero tienes que usar la Clase [i][color=#BF0000]Music[/color][/i] .



[quote user="Shell" post="28333"]Parece que tambien la librería gb.sdl2.audio soporta midis. (music) Cosa que no he probado aun!.[/quote]
Sì, es asì:

http://www.gambas-it.org/wiki/index.php?title=Eseguire_un_file_MIDI_mediante_il_componente_gb.sdl2.audio


