|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.10.2007, 03:10 | #1 |
Регистрация: 28.10.2007
Сообщений: 3
|
звук и делфи, левый правый звук
на Delphi нужно сделать примерно следующую программку :
2 прогрессбара первый - отвечает за левый звук второй - отвечает за правый звук ну и если что-нить на компе играет, то столбики дожны прыгать соответственно уровню звука левого/правого канала. |
29.10.2007, 07:58 | #2 |
Участник клуба
Регистрация: 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. Ну уж на счёт столбиков незнаю |
29.10.2007, 11:10 | #3 | |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Цитата:
можно и с 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)
Проверь себя! Онлайн тестирование | Мой блог |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Звук | 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 |