Laustärke Visual equalizer

[Garfield]

Muss mal was nachsehen. GetVolume gibt mir einen Wert von knapp 5000 zurück, obwohl er nicht größer als 1000 sein dürfte.

[Garfield]

Bei mir funktioniert weder

Delphi-Quellcode:

SetMPVolume(MediaPlayer1, 800);

noch

Delphi-Quellcode:

SetMPVolume(MediaPlayer1, TrackBar1.Position * 100);

oder

Delphi-Quellcode:

SetMPVolume(MediaPlayer1, TrackBar1.Position);

obwohl ich das letzte mal in einem Projekt verwendet hatte. Da hatte ich allerdings kein WinXP SP2 sondern Win98SE.

Das Setzen der Wave-Lautstärke funktioniert allerdings.

Gefunden auf http://forum.vingrad.ru/index.php?showtopic=34596

Delphi-Quellcode:

procedure SetWaveVolume(const AVolume: DWord);
var Woc : TWAVEOUTCAPS;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = MMSYSERR_NOERROR then
  if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
    WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 SetWaveVolume (MakeLong(TrackBar1.Position, TrackBar1.Position));
end;


function GetWaveVolume: DWord;
var
  Woc : TWAVEOUTCAPS;  
  Volume : DWord;  
begin
  result:=0;  
  if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = MMSYSERR_NOERROR then  
  if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then  
  begin  
    WaveOutGetVolume(WAVE_MAPPER, @Volume);  
    Result := Volume;  
  end;  
end;

Es wird jeweils ein DWord übergeben, wobei das HiWord und das LoWord je einen Stereokanal darstellen.

[ghost007]

hey,
wenn du eine "schöne" möglichkeit zur visualisierung findest, poste sie doch bitte hier, suche schon siet geraumer zeit nach so etwas.

MfG - Ghost007