FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Ayuda sobre WaveOutGetVolumen
Disculpen, necesito ayuda para saber como usar las APIs WaveOutGetCVolumen y WaveOutSetVolumen en Delphi.
La verdad es que ya use dichas APIs en VB y sé como implementarlas, es más me hice una clase que maneja el volumen del sistema (en VB). Pero tengo inconvenientes para usar dichas APIs en Delphi (uso la versión 6 professional). Tengo un reproductor que requiere manejar el volumen del sistema, y se que dichas funciones lo hacen... ¡Pero hasta el momento no sé cómo hacer uso de ellas en Delphi! Si alguien tiene un ejemplo estaría muy agradecido... |
#2
|
||||
|
||||
De VB a Delphi...
Como dije antes, se usar las APIs WaveOutSetVolume y WaveOutGetVolume en VB, pero me vi en la necesidad de llevar dicho uso en Delphi... como tengo una clase hecha en VB me dije que sería de mucha utilidad "llevarla" a Delphi...
No se si alguien en el foro sabe algo de VB, pero aquí está el código de la clase que yo mismo realicé: 'variables locales para almacenar los valores de las propiedades Private mvarMultiplicador As Integer 'copia local Private mvarPorcVolumem As String 'copia local Private mvarVolumen As String 'copia local Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer Public Sub Cambiar_Volumen(Multiplo As Integer) Dim AUX As Long Dim TEMP, TEMP1 As String ' Obtengo el multiplicador If Multiplo > 15 Then Multiplicador = 15 Else: Multiplicador = Multiplo End If If Multiplo < 0 Then Multiplicador = 0 Else: Multiplicador = Multiplo End If TEMP1 = CInt(Multiplicador) TEMP = Right((Hex$(TEMP1 * 4369)), 4) ' Obengo volumen TEMP = CLng("&H" & TEMP & TEMP) AUX = waveOutSetVolume(0, TEMP) Volumen = Hex$(TEMP) ' Obtengo el porcentaje PorcVolumen = CStr((Multiplicador * 100) \ 15) + " %" End Sub Public Function Imprimir_Volumen(Multiplo As Integer) As String If Multiplo > 15 Then Multiplo = 15 Else: If Multiplo < 0 Then Multiplo = 0 End If End If Imprimir_Volumen = CStr((Multiplo * 100) \ 15) + " %" End Function Public Sub Volume_Inicial() Dim AUX, AUX1 As Long Dim TEMP As String AUX = waveOutGetVolume(0, AUX1) ' Obtengo volumen Volumen = Hex$(AUX1) TEMP = "&H" & Right(Hex$(AUX1), 4) ' Obtengo el multiplicador Multiplicador = TEMP / 4396 ' Obtengo el porcentaje PorcVolumen = CStr((Multiplicador * 100) \ 15) + " %" End Sub Friend Property Let Volumen(ByVal vData As String) 'se usa al asignar un valor a la propiedad, en la parte izquierda de una asignación. 'Syntax: X.Volumen = 5 mvarVolumen = vData End Property Friend Property Get Volumen() As String 'se usa al recuperar un valor de una propiedad, en la parte derecha de una asignación. 'Syntax: Debug.Print X.Volumen Volumen = mvarVolumen End Property Friend Property Let PorcVolumem(ByVal vData As String) 'se usa al asignar un valor a la propiedad, en la parte izquierda de una asignación. 'Syntax: X.PorcVolumem = 5 mvarPorcVolumem = vData End Property Friend Property Get PorcVolumem() As String 'se usa al recuperar un valor de una propiedad, en la parte derecha de una asignación. 'Syntax: Debug.Print X.PorcVolumem PorcVolumem = mvarPorcVolumem End Property Public Property Let Multiplicador(ByVal vData As Integer) 'se usa al asignar un valor a la propiedad, en la parte izquierda de una asignación. 'Syntax: X.Multiplicador = 5 If vData > 15 Then mvarMultiplicador = 15 Else: If vData < 0 Then mvarMultiplicador = 0 Else: mvarMultiplicador = vData End If End If End Property Public Property Get Multiplicador() As Integer 'se usa al recuperar un valor de una propiedad, en la parte derecha de una asignación. 'Syntax: Debug.Print X.Multiplicador Multiplicador = mvarMultiplicador End Property Agradecería cualquier ayuda que pudieran darme... como dije antes, en VB se usar esas APIs pero no encuentro manera de cómo usarlas en Delphi... si alguien sabe algo sería de muchísima ayuda. |
#3
|
||||
|
||||
Problema Resuelto!
Listo!... he encontrado la solución, y la respuesta la tuve siempre a mis narices...
Mi naturaleza de toquete me llevó a curosiar por intentar trasformar valores de una tipo a otro... y comparandolos con los tipos de datos que reciben dichas APIs y leyendo detenidamente la ayuda de Delphi saqué la respuesta. Era tal mi motivación que hice un componente que maneja el volumen... Si alguien lo desea, deje su e-mail y se lo envío. (NOTA: Trabajo con Delphi 6) |
#4
|
||||
|
||||
Te envío un privado con mi mail...
__________________
:) |
#5
|
|||
|
|||
Yoooo
Cita:
Yo lo deseo, si tienes el tiempo lo espero y te felicito je, estoy kuchando hace unas horas con eso... gracias... mi mail es gonzapinamar@hotmail.com |
#6
|
||||
|
||||
Dejo el zip con el componente aqui
Guau... hace tiempo que no se abrìa este hilo...
gonzapinamar te adjunto el archivo por aqui... ya que si alguien mas tropieza por este hilo y lo quiere... se ahora un tiempo... Estoy seguro de que hay implementaciones mucho mejores que la que yo ofrezco. Espero que te sirva Saludos, |
|
|
|