Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2008, 15:20   #1
xakkkkker
Форумчанин
 
Аватар для xakkkkker
 
Регистрация: 15.12.2007
Сообщений: 226
По умолчанию Звук

Я вот пишу плеер вот не знаю как реализовать прогрессбар который бы отвечал за громкость звука.
xakkkkker вне форума Ответить с цитированием
Старый 04.05.2008, 15:38   #2
Трофимов Александр
Форумчанин
 
Аватар для Трофимов Александр
 
Регистрация: 03.11.2006
Сообщений: 321
По умолчанию

В uses - MMSystem,
Код:
procedure GetVolume(var volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  volL := 0;
  volR := 0;
  FillChar(waveF, SizeOf(waveF), 0);
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  waveOutGetVolume(hWO, @vol);
  volL := vol and $FFFF;
  volR := vol shr 16;
  waveOutClose(hWO);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var l,r:word   ;
begin
    GetVolume(l,r);
    form1.Label1.Caption:=inttostr( l);
end;
[/QUOTE]
только здесь к label привязка и это регулятор, называемый "Звук". Изменяется от 0 до 65535.
Трофимов Александр вне форума Ответить с цитированием
Старый 04.05.2008, 18:30   #3
StartMis
Форумчанин
 
Регистрация: 21.04.2008
Сообщений: 175
По умолчанию

Если конечно можно выложити исходник

Попробуи реализовать это с помощью компонента VolumeControl гараздо проще вот ссылка там и пример есть http://www.realcoding.net/downloads/view/475

Последний раз редактировалось Stilet; 05.05.2008 в 10:37.
StartMis вне форума Ответить с цитированием
Старый 04.05.2008, 19:42   #4
xakkkkker
Форумчанин
 
Аватар для xakkkkker
 
Регистрация: 15.12.2007
Сообщений: 226
По умолчанию

Респект StartMis
xakkkkker вне форума Ответить с цитированием
Старый 05.05.2008, 08:13   #5
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию Volume

Посмотрите здесь
Вложения
Тип файла: rar Volume.rar (5.9 Кб, 28 просмотров)
SERG1980 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Звук L_M Gamedev - cоздание игр: Unity, OpenGL, DirectX 2 03.06.2008 23:50
звук на клавиатуре Михаил Юрьевич Общие вопросы Delphi 27 02.03.2008 17:34
Звук Cabal777 Помощь студентам 3 28.12.2007 23:42
звук и делфи, левый правый звук snusmumric Win Api 2 29.10.2007 11:10
Нужен звук s-force Свободное общение 6 31.08.2007 17:16