Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-08-2004
kalisto kalisto is offline
Miembro
 
Registrado: jul 2004
Posts: 62
Poder: 20
kalisto Va por buen camino
Como cambiar volumen de la tarjeta de sonido

Quisiera saber como se puede cambiar el volumen general de la tarjeta de sonido.
he probado con lo siguiente pero el volumen sigue siendo el mismo.
Código Delphi [-]
 
Type
  TVolume = packed record
    Left : Word;
    Right : Word;
    End;
const
  DeviceIndex=5;
 
var
  Vol: TVolume;
 
begin
    Vol.Left := strtoint(edit1.text) shl 8;
    Vol.Right:= Vol.Left;
    auxSetVolume(UINT(DeviceIndex), Vol.Right) ;
end;

Agradeceria ayuda, mi version de delphi es la 7.
Responder Con Cita
  #2  
Antiguo 04-08-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Prueba con éste codigo (no lo he probado).

Código Delphi [-]
var
  waveCaps: TWaveOutCaps;
  Volume: DWORD;
begin
  {Get Device Caps}
  waveOutGetDevCaps(0, @waveCaps, SizeOf(waveCaps));
  { If Volume Control Supported }
  if (waveCaps.dwSupport and WAVECAPS_VOLUME <> 0) then begin
    waveOutGetVolume(0, @Volume);
    // Asignar volumen
    waveOutSetVolume(0, $F000F000);
    // $F000F000 => Máximo
    // $00000000 => Mínimo
    // 4 números para cada canal (izq. y der.).
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 04-08-2004
kalisto kalisto is offline
Miembro
 
Registrado: jul 2004
Posts: 62
Poder: 20
kalisto Va por buen camino
Funciona pero solo cambia el volumen de los dispositivos de onda (archivos wav, mp3 etc), pero no cambia el volumen general, por ejemplo si estamos escuchando un cd audio no podremos variar el volumen.
Gracias de todas formas.


Cita:
Empezado por Neftali
Prueba con éste codigo (no lo he probado).

Código Delphi [-]
var
waveCaps: TWaveOutCaps;
Volume: DWORD;
begin
{Get Device Caps}
waveOutGetDevCaps(0, @waveCaps, SizeOf(waveCaps));
{ If Volume Control Supported }
if (waveCaps.dwSupport and WAVECAPS_VOLUME <> 0) then begin
waveOutGetVolume(0, @Volume);
// Asignar volumen
waveOutSetVolume(0, $F000F000);
// $F000F000 => Máximo
// $00000000 => Mínimo
// 4 números para cada canal (izq. y der.).
end;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:12:51.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi