Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Problemas Con La Clase DIalog Y Sound
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje 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:

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
 


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

Citar:

gb.sdl2.audio: warning: Mixer not built with MP3 support
gb.sdl2.audio: warning: Mixer not built with MOD timidity support


Cambiemos el código.

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
 


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.

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
 


Errores que se producen:
Citar:

gb.sdl2.audio: warning: Mixer not built with MP3 support
gb.sdl2.audio: warning: Mixer not built with MOD timidity support


Pero el archivo es reproducido correctamente.

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

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
 


Salida en la consola:
Citar:

/home/jack/Prueba/Man With Two Hearts.ogg

Errores:
- Funciona correctamente esa parte de código

Y este es otro ejemplo funcional:

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
 


Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Jueves, 01 Octobre 2015, 09:05; editado 1 vez 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problemas Con La Clase DIalog Y Sound 
 
Shell escribió: [Ver mensaje]
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:

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
 


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


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


Respecto a:
Citar:

gb.sdl2.audio: warning: Mixer not built with MP3 support
gb.sdl2.audio: warning: Mixer not built with MOD timidity support

no se el porque, pero puedo decirte que ocurre a todos y no da reales problemas de ejecución del archivo audio.
 



 
última edición por vuott el Jueves, 01 Octobre 2015, 12:23; editado 2 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problemas Con La Clase DIalog Y Sound 
 
Shordi y Vuott:

Citar:

 no puedes meter un archivo de sonido en una variable string


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

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!.  

"Es can da lo", es un escandaloo.

Gracias a los dos.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problemas Con La Clase DIalog Y Sound 
 
Shell escribió: [Ver mensaje]
...que raro que no soporte mp3 el  componente.

El Componente gb.sdl2.audio soporta el tipo MP3, pero tienes que usar la Clase Music .



Shell escribió: [Ver mensaje]
Parece que tambien la librería gb.sdl2.audio soporta midis. (music) Cosa que no he probado aun!.

Sì, es asì:

http://www.gambas-it.org/wiki/index...e_gb.sdl2.audio
 



 
última edición por vuott el Jueves, 01 Octobre 2015, 13:04; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes OutRec | Sound Recorder techm3 Aplicaciones/Fragmentos de Código 9 Miercoles, 03 Noviembre 2010, 20:20 Ver último mensaje
techm3
No hay nuevos mensajes Ejemplo De Clase Publica Y Clase Privada Shell Aplicaciones/Fragmentos de Código 2 Martes, 28 May 2013, 11:41 Ver último mensaje
shordi
No hay nuevos mensajes ¿ Es La Clase Padre Una Clase Abstracta ? Shell General 3 Viernes, 04 Julio 2014, 08:58 Ver último mensaje
jsbsan
No hay nuevos mensajes Clase Audio Y Clase Configuracion De Audio... v3ctor Aplicaciones/Fragmentos de Código 3 Jueves, 08 Octobre 2015, 08:35 Ver último mensaje
jsbsan
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron