VPF::плавное усиление громкости - Форум программистов

Darksquall

Дата 20.1.2005, 17:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 22.1.2004
Где: Москва

Репутация: нет
Всего: 4

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

--------------------

www.bankcards.su

Illusion Dolphin

Дата 21.1.2005, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 13
Всего: 63

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

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Darksquall

Дата 21.1.2005, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 22.1.2004
Где: Москва

Репутация: нет
Всего: 4

Пока я еще ничем не воспроизвожу, хочу определиться чем лучше, какой тип музыкальных файлов лучше подобрать, к примеру если я буду проигрывать 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;

--------------------

www.bankcards.su

Мебель

Дата 30.1.2005, 02:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 14.11.2004
Где: Великие Луки

Репутация: нет
Всего: нет

как тебе надо менять звук, и что значит плавно? smile

Хош, меняй его по таймеру...
Вот функция

Код


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;

А вот под таймером

Код


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;

тока изначальную громкость выставь...
Насколько я понял вопрос... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »