Fade em arquivo mp3...
Ola...
Eu fiz um player para a execução de mp3 e gostaria que, ao clicar em Stop, a música não parasse derrepente...Mas fosse abaixando aos poucos, como se fosse um Fade Out...
Alguém poderia me ajudar nessa???
Valeu!!!
Eu fiz um player para a execução de mp3 e gostaria que, ao clicar em Stop, a música não parasse derrepente...Mas fosse abaixando aos poucos, como se fosse um Fade Out...
Alguém poderia me ajudar nessa???
Valeu!!!
José Alves
Curtidas 0
Respostas
José Alves
19/11/2003
Olá pessoal...
Consegui solucionar meu problema...
Segue abaixo o código que utilizei....
Pode ser útil para alguém...
Valeu!
procedure SetVolume(const volL, volR: Word);
var
hWO: HWAVEOUT;
waveF: TWAVEFORMATEX;
vol: DWORD;
begin
FillChar(waveF, SizeOf(waveF), 0);
waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
vol := volL + volR shl 16;
waveOutSetVolume(hWO, vol);
waveOutClose(hWO);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
H :integer;
begin
H := 65500; [color=blue:dec48b03c0]//Volume Máximo[/color:dec48b03c0]
while not(H <= 1)do
begin
SetVolume(H,H);
H := (H - 30)
end;
SetVolume(65500,65500); [color=blue:dec48b03c0]//Retorna ao volume máximo[/color:dec48b03c0]
end;
Consegui solucionar meu problema...
Segue abaixo o código que utilizei....
Pode ser útil para alguém...
Valeu!
procedure SetVolume(const volL, volR: Word);
var
hWO: HWAVEOUT;
waveF: TWAVEFORMATEX;
vol: DWORD;
begin
FillChar(waveF, SizeOf(waveF), 0);
waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
vol := volL + volR shl 16;
waveOutSetVolume(hWO, vol);
waveOutClose(hWO);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
H :integer;
begin
H := 65500; [color=blue:dec48b03c0]//Volume Máximo[/color:dec48b03c0]
while not(H <= 1)do
begin
SetVolume(H,H);
H := (H - 30)
end;
SetVolume(65500,65500); [color=blue:dec48b03c0]//Retorna ao volume máximo[/color:dec48b03c0]
end;
GOSTEI 0