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

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

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.10.2007, 03:10   #1
snusmumric
 
Регистрация: 28.10.2007
Сообщений: 3
По умолчанию звук и делфи, левый правый звук

на Delphi нужно сделать примерно следующую программку :
2 прогрессбара
первый - отвечает за левый звук
второй - отвечает за правый звук
ну и если что-нить на компе играет, то столбики дожны прыгать соответственно уровню звука левого/правого канала.
snusmumric вне форума Ответить с цитированием
Старый 29.10.2007, 07:58   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Где то когда то нарыл в инете, где не помню

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, MMSystem;

type
TForm2 = class(TForm)
TrackBar1: TTrackBar;
TrackBar2: TTrackBar;
procedure TrackBar2Change(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure SetWaveVolume(const AVolume: DWord);
begin
WaveOUtSetVolume(0,AVolume);
end;
procedure TForm2.TrackBar1Change(Sender: TObject);
begin
SetWaveVolume(MakeLong(TrackBar1.Po sition*255,TrackBar2.Position*255)) ;
end;
procedure TForm2.TrackBar2Change(Sender: TObject);
begin SetWaveVolume(MakeLong(TrackBar1.Po sition*255,TrackBar2.Position*255)) ;
end;

end.
Ну уж на счёт столбиков незнаю
SERG1980 вне форума Ответить с цитированием
Старый 29.10.2007, 11:10   #3
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
столбики дожны прыгать соответственно уровню звука левого/правого канала
если не хочешь заморачиваться, используй BASS например, там такое должно быть, я даже как-то видел тут на форуме кто-то плеер (простенький) с такой штукой делал
можно и с MMSystem уровень звука снимать, правда как именно тоже не знаю
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Звук L_M Gamedev - cоздание игр: Unity, OpenGL, DirectX 2 03.06.2008 23:50
Звук xakkkkker Мультимедиа в Delphi 4 05.05.2008 08:13
звук на клавиатуре Михаил Юрьевич Общие вопросы Delphi 27 02.03.2008 17:34
Звук Cabal777 Помощь студентам 3 28.12.2007 23:42
Звук в программе - воспроизведение wma и ogg LeoN Мультимедиа в Delphi 4 14.06.2007 17:48