volumen para mi reproductor

[[Delphius]]

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]

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]

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]

y que seria : MCI_DGV_SETAUDIO_PARMS ¿¿

[mierda]

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