Controlar el Volumen de sonido con Auxsetvol() y AuxGetVol()

[Javier LLoris]

Sigo utilizando: Fw24+Clipper53+Blinker5.0.

Estoy desarrollando un gestor multimedia y tengo el siguiente problema que ya estoy 2 dias con el. Funciona todo correctamente, Videos, MP3, Imagenes, Etc, EXCEPTO las funciones del control del sonido AuxSetVol() y AuxGetVol(), no logro poder que funcione para poder aumentar y disminuir el sonido.

¿ Funcionan correctamente? ¿ en el caso que no funcionen, alguien podria crear un ejecutable con un fichero INI con harbour para poder controlar el sonido aunque sea desde otro programa ? ( el INI seria solo para que almacene el sonido actual, aumentar y disminuir el sonido en funcion de los paramentros que yo grabe en ese ini ).

Muchas gracias anticipadamente.

[Antonio Linares]

Javier,

Si buscas en fw\samples\mmedia\*.prg por AuxSetVol encontrarás varios ejemplo de uso. Revísalos por si te sirven de ayuda.

[Javier LLoris]

Antonio:

Antes de mandar el mensaje ya busque y comprobe todos los ejemplos y documentacion respectos a temas multimedia. Los ejemplos de \MMEDIA funciona todo excepto el control de volumen.

Lo unico que si no comente es que corro el programa en XP.

[Antonio Linares]

Javier,

Con que parámetros estás llamando a AuxSetVol() ?

[Javier LLoris]

Antonio:

Respecto a las pruebas sobre el volumen todavia no lo he implementado en mi programa porque en las pruebas de \mmedia\avivideo.prg no funciona.

El codigo de pruebas es:


REDEFINE SCROLLBAR oSBRight ID 130 RANGE 0,32 ;
ON UP (AuxGetVol(5,@nVolL,@nVolR),;
AuxSetVol(5,if(nVolL<63000,nVolL+2040,nVolL),nVolR),;
AuxGetVol(5,@nVolL,@nVolR),;
oTextLV:SetText(Str(nVolL)),oTextRV:SetText(Str(nVolR)) ) ;
ON DOWN (AuxGetVol(5,@nVolL,@nVolR),;
AuxSetVol(5,if(nVolL>2040,nVolL-2040,nVolL),nVolR),;
AuxGetVol(5,@nVolL,@nVolR),;
oTextLV:SetText(Str(nVolL)),oTextRV:SetText(Str(nVolR)) ) OF oDlg

Gracias de antemano.