VPF::как просмотреть текущий уровень звука

Мебель

Дата 25.1.2005, 12:09 (ссылка)

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

Загрузка ...

Новичок

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

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

Здавствуйте уважаемые профессионалы в данной среде разработки!!! smile

Помогите, как можно осуществить просмотр текущего уровня звука в системе или
хотя бы в TMediaPlayer. Хочу добавить в свой player. smile

Добавлено @ 12:15
Такая фишка показывает уровень системного TrackBar'а, но не текущий уровень (изменяющийся с воспроизведением звука).

Код


var
 v : DWORD;
 lv, rv : word; // громкость левого и правого каналов
begin
 v := GetWaveVolume;
 lv := v shr 16;
 rv := v and $FFFF;
// в lv - громкость левого канала
// в rv - громкость правого канала
 TrackBar1.Position := lv;
 TrackBar2.Position := rv;
end;

Эт не то...
а как?

Stalker Ghost

Дата 26.1.2005, 22:42 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 11.11.2004
Где: между столом и ст улом

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

http://www.un4seen.com/ Здесь есть bass.dll с которой можна менять звук в независимости от системы (ну и воиспроизводить практически все). Конечно ответ не тот smile

, но может поможет (мне послужило smile

). Пример использования:

Код


procedure TfrmMain.FormCreate(Sender: TObject);
begin
  // Chequear si BASS 2.0 se ha cargado
  if (BASS_GetVersion <> DWORD(MAKELONG(2,0))) then
  begin
    MessageBox(0, 'BASS versión 2.0 no ha sido cargada', 'Incorrecta BASS.DLL', 0);
    Halt;
  end;

  // Inicializar BASS; - dispositivo por defecto
  if (not BASS_Init(1, 44100, 0, Handle, nil)) then
  begin
    MessageBox(0, 'Imposible inicializar el dispositivo', 'Error', 0);
    Halt;
  end;
  
  gbVolume.Position:=-BASS_GetVolume;
end;

procedure TfrmMain.gbVolumeChange(Sender: TObject);
begin
  BASS_SetVolume(-gbVolume.Position);
end;

Min:=-100; Max=0; TrackBar вертикальным был.

P.S. мне кажется что в Тмедиа плеере звук определялся по процедуре что ты написал, хотя не уверен smile

Это сообщение отредактировал(а) Stalker Ghost - 26.1.2005, 22:42

Guest

Дата 28.1.2005, 01:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Чтож, посмотрю спасибо!!! smile

Мебель

Дата 9.2.2005, 10:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Ну скачал я ее, а куда мне ее терь деть? smile

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