Платные хостинги     Раскрутка сайта     Книги по программированию

плавное усиление громкости, как реализовать?

- Нужно плавное усиление громкости звука, но что бы общая громкость системы не изменялась.Если кто пробовал, подскажите как реализовать и чем?Может DelphiX поможет?

- Во-первых очень интересно где ты это реализуешь и с помощью каких средств? Где звук воспроизводится? Какого формата звук?

- Пока я еще ничем не воспроизвожу, хочу определиться чем лучше, какой тип музыкальных файлов лучше подобрать, к примеру если я буду проигрывать wav mediaplayerom. В том и вопрос чем лучше грузить и как увеличивать громкость?к примеру я могу работать с громкостью такКод procedure TForm1.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;highlightSyntax('delphizdhYzd','delphi');

- как тебе надо менять звук, и что значит плавно? Хош, меняй его по таймеру...Вот функцияКод uses MMSystem;const MCI_SETAUDIO = $0873; MCI_DGV_SETAUDIO_VOLUME = $4002; MCI_DGV_SETAUDIO_ITEM = $00800000; MCI_DGV_SETAUDIO_VALUE = $01000000; MCI_DGV_STATUS_VOLUME = $4019; type MCI_DGV_SETAUDIO_PARMS = record   dwCallback: DWORD;   dwItem: DWORD;   dwValue: DWORD;   dwOver: DWORD;   lpstrAlgorithm: PChar;   lpstrQuality: PChar; end; type MCI_STATUS_PARMS = record   dwCallback: DWORD;   dwReturn: DWORD;   dwItem: DWORD;   dwTrack: DWORD; end;procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);                                                  //Volume: 0 - 1000 var p: MCI_DGV_SETAUDIO_PARMS;begin 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;highlightSyntax('delphiTA0OTk','delphi');А вот под таймеромКод procedure TForm1.Timer1Timer(Sender: TObject);Var Gr:Integer;begin  Gr:=Gr+10;  SetMPVolume(MediaPlayer1, Gr);  Gauge1.Progress:=Gr;  If Gr=1000 Then  Timer1.Enabled:=False;end;highlightSyntax('delphi1NjI=','delphi');тока изначальную громкость выставь...Насколько я понял вопрос...

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD