reproduccion de un wav desde un archivo .res...

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • reproduccion de un wav desde un archivo .res...

    hola compañeros, buenas tardes para todos.

    hoy vengo con otro de mis mini proyectos extraños, haber si no es mucha molestia, me ayudan a descubrir el por que no funciona.

    la idea original, la saque de aqui:
    http://www.recursosvisualbasic.com.a...e-recursos.htm

    apartir de leer esa pagina, escribi este codigo:

    Option Explicit
    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Private Const SND_ASYNC = &H1 ' reproducción asíncrona
    Private Const SND_MEMORY = &H4

    Private Sub Form_Load()
    Dim Sonido1() As Byte
    Sonido1() = LoadResData(101, "CUSTOM")
    Call sndPlaySound(Sonido1(0), SND_ASYNC Or SND_MEMORY)
    End Sub

    por supuesto cree el archivo res como lo indican, ejecuto con f5, se abre pero no reproduce nada.

    alguno a visto algo parecido y sabe como funciona?
    por que estuve revisando el buscador y no encontre nada que me ayude a resolver esto.

    desde ya muchas gracias al que me pueda ayudar,
    un saludo.

  • #2
    El problema está en la declaración de la función, cambiala a:

    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long

    Una visita a las Normas del foro nunca viene mal

    Comentario


    • #3
      Originalmente escrito por gilman Ver mensaje
      El problema está en la declaración de la función, cambiala a:

      Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
      sos un genio, funciono perfecto!

      con respecto a este tema, te voy a molestar una vez mas, y te prometo que es lo ultimo.
      si yo quiero hacer esto mismo, pero con la funcion de mciexecute, deberia poner esto?

      Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

      y en la parte de reproducir,

      Call mciExecute(play & Sonido1(0))
      por que cuando lo ejecuto, me dice que la orden de play, es una variable no definida.

      Comentario

      Trabajando...
      X