Foros Club Delphi - volumen para mi reproductor

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - volumen para mi reproductor (https://www.clubdelphi.com/foros/showthread.php?t=49365)

Lucass

19-10-2007 16:04:14

volumen para mi reproductor

Hola amigos!

sigo aca luchando con mi repr de musica, estoy viendo el tema del volumen..ese tema se hablo en el foro
http://www.clubdelphi.com/foros/showthread.php?t=6807

pero no se que es lo que estoy haciendo mal que no me funciona, ese codigo esta bien??
y sino, otra forma habria?

gracias!

Delphius

19-10-2007 16:16:02

Hola Lucass,
Yo no probé el código alli expuesto pero te hago recordar que el tema se trato en reiteradas ocasiones. De hecho he participado en otros hilos sobre el tema y el código que allí se dejó funciona.

Si buscas adecuadamente encontrarás los hilos, y no solo ese.

Saludos,

Lucass

19-10-2007 16:20:16

Código PHP:


		
			
function TPrincipal.GetWaveVolume(var LVol: DWORD; var RVol: DWORD): Boolean;
var
  WaveOutCaps: TWAVEOUTCAPS;
  Volume: DWORD;
begin
  Result := False;
  if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf
    if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
    begin
      Result := WaveOutGetVolume(-1, @Volume) = MMSYSERR_NOERROR;
      //Result := WaveOutGetVolume(WAVE_MAPPER, @Volume) = MMSYSERR_NOERROR;
      LVol   := LoWord(Volume);
      RVol   := HiWord(Volume);
    end;
end;

en esta parte me salta error, mas explicito en: if WaveOutGetDevCaps

esta funcion como la otra de set la llamo desde
procedure TPrincipal.TrackBar11Change(Sender: TObject);

me explico??

mierda

19-10-2007 17:26:34

Ejemplo del que yo utilizo

uso delphi 7 y yo utilizo esta funcion:

mira a ver si te sirve

Código Delphi [-] 
procedure TForm1.SetMPVolume(MP: TMediaPlayer; Volume: Integer);
var p: MCI_DGV_SETAUDIO_PARMS; 
begin 
   { Volume: 0 - 1000 } 
   p.dwCallback := 0; 
   p.dwItem := MCI_DGV_SETAUDIO_VOLUME; 
   p.dwValue := Volume; 
   p.dwOver := 0; 
   p.lpstrAlgorithm := nil; 
   p.lpstrQuality := nil; 
   mciSendCommand(MP.DeviceID, MCI_SETAUDIO, 
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;

para llamarla

Código Delphi [-]SetMPVolume(MediaPcanciones,(TrackBcanciones.Position)*50)

ya me cuen ... un saludo.

Lucass

19-10-2007 18:01:37

y que seria : MCI_DGV_SETAUDIO_PARMS ¿¿

mierda

19-10-2007 18:22:56

Pos no tengo ni idea

pos macho ... ni idea ...a mi me funciona y con eso me basta. Por lo menos de momento. :D suerte

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