-
Какой-то косяк с этим плеером. После того как я им пользуюсь, нельзя выключить программу нормально, приходится убивать в процессах.
Я и Close в конце делаю... может еще надо что-то сделать перед выклюением программы?
Еще в добавок к этому хотел бы спросить как регулировать громкость звука общую? ту которая у часов в трее)
Нашел пару функций, но ни одна не работает.
function GetWaveVolume: DWord;
var
Woc : TWaveOutCaps;
Volume : DWord;
begin
result:=0;
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc))=MMSYSERR_NOERROR then
begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
WaveOutGetVolume(WAVE_MAPPER, @Volume);
Result := Volume;
end;
end;
end;
procedure SetWaveVolume(const AVolume: DWord);
var
Woc : TWaveOutCaps;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc))=MMSYSERR_NOERROR then
begin
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;
end;
GetWaveVolume вобще всегда -1 возвращает...
function GetVolume: Word;
var
iErr: Integer;
i: integer;
a: TAuxCaps;
vol: word;
begin
for i := 0 to auxGetNumDevs do
begin
auxGetDevCaps(i, Addr(a), SizeOf(a));
if a.wTechnology = AUXCAPS_CDAUDIO then
break;
end;
iErr := auxGetVolume(i, addr(vol));
GetVolume := vol;
if (iErr‹›0) then
ShowMessage('No audio devices are available!');
end;
вот еще один пример, тоже не работает, всегда говорит что ничего не может найти из девайсов... у друга на компе тоже самое, может проблема в том что мы запускали это на ноутах?
Функции ничего не могут найти, однако ж винамп и всё остальное работает... -
Сергей М. © (15.09.09 09:02) [1]Ты зачем в MMAPI-то полез ?
Тебе что, готовых компонентов мало ?) -
и тут вы...
Каких готовых? один TMeidaPlayer... -
Сергей М. © (15.09.09 22:10) [3]
> и тут вы...
мы везде)
На палитре стандартных компонентов свет клином не сошелся.
http://www.google.ru/search?q=delphi+TAudioMixer&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ru:official&client=firefox
http://symmetrica.net/newac/ -
Сергей М. © (15.09.09 22:14) [4]
> и тут вы
Мы требуем протокол !
http://pda.delphimaster.net/?id=1251710046&n=4
А ты уже на какую-то хрень медийную отвлекся) -
я на неё не отвлекся, это всё одна программа
Скачаю, попробую, звук системный там тоже они умеют регулировать?...) -
Сергей М. © (16.09.09 08:50) [6]
> звук системный там тоже они умеют регулировать?
Что такое "звук системный" ? -
Сергей М. © (16.09.09 08:52) [7]
> это всё одна программа
Похоже, ты пытаешься сотворить нечто вроде "аськи" ? -
что-то вроде аськи я сотворил в начале второго курса, и не что-то вроде, а очень даже напоминующее асю, всё точно так же было.
А щас всё не такое. Системный звук это я имел ввиду общий, который там в трее регулируется. -
Сергей М. © (16.09.09 20:34) [9]
> Системный звук это я имел ввиду общий, который там в трее
> регулируется.
Зашибись определение)
А у меня ничего в трее не регулируется.
А звук есть. И регулируется. Но не в трее. И даже не в панели управления.
Значит у меня нет "системного звука", ТАК надо понимать ? -
ох ну госпади, зачем надо к словам цепляться?) общую громкость мне надо регулировать...
-
так как?)
-
эх:(
как-то я поставил NewAC так что всё утсановилось, а модулей он своих не видит.. -
Сергей М. © (17.09.09 17:09) [13]
> так как?
Чего "так как" ?)
> я поставил NewAC так что всё утсановилось, а модулей он
> своих не видит.
У меня он все видит. Что я делаю не так ? -
не знаю..
Я запихнул папку NewAC в
C:\Program Files (x86)\CodeGear\RAD Studio\6.0\source
оттуда запустил и установил... и в итоге получил то что получил) не видит модулей) я скомпилил и установил как обычно.. -
Сергей М. © (17.09.09 19:39) [15]
> Я запихнул
Я не "пихал".
Я скопировал.
> C:\Program Files (x86)\CodeGear\RAD Studio\6.0\source
Бардак.
3rdParty-компонентам не место в папке с "генофондом" среды разработки.
С это бардака и начинается бардак в алгоритмах.
> я скомпилил и установил как обычно
Я тоже.
У меня все в порядке.
Что я сделал не так ? -
И куда вы скопировали? откуда устанавливали?...
-
Сергей М. © (17.09.09 19:44) [17]
> куда вы скопировали?
Да куда угодно, но только не в (%СРЕДА)\Source
> откуда устанавливали?
Из той папки, куда скопировал) -
Сергей М. © (17.09.09 19:46) [18]
> модулей он своих не видит
Наверно, вот так прямо и говорит - "не вижу я своих модулей" ?
Доколе ты будешь изъясняться на языке приматов, г-н "программист" ?) -
г-н это что за такое?...
[DCC Fatal Error] Unit1.pas(7): F1026 File not found: 'ACS_Classes.dcu'
вот что он говорит... какая разница, одно и тоже сказал... -
ну вот
WaveOut1.FileName:=file_;
WaveOut1.Run;
и в итоге получаю замечательное "Input is not assigned."
Если юзать Mp3Out, то прога ваще даже не запускается, и сразу ошибку загрузки библиотеки выдает.
Если сделать так
for i := 0 to audio.DeviceCount-1 do
begin
ShowMessage('Устройство: '+Audio.DeviceName[i]+'\ Громкость: '+IntToStr(Audio.Volume));
end;
То у всех найденных устройств громкость 0... это нормально?...
Все функции которые я пробовал либо ноль выдают, либо не могут найти устройство.
МОжет это из-за винды или еще чего-то?
Win 7 использую. -
ой блин лапух, забыл закрыть код :(
-
Омлет (18.09.09 06:07) [22]Учись пользоваться поиском.
http://www.delphixfiles.narod.ru/Sounds/VolumeChange.txt -
Сергей М. © (18.09.09 08:25) [23]
> что он говорит
Он говорит, что файл ACS_Classes.dcu не найден.
> ошибку загрузки библиотеки выдает
Ну да)
Вот так дословно и говорит "Нате вам ! Выдаю ошибку загрузки библиотеки !")
> получаю замечательное "Input is not assigned."
Ну так сделай чтобы Input был assigned)
И какое отношение WaveOut имеет к "системной громкости" - вообще не понятно)
> либо ноль выдают, либо не могут найти устройство.
> МОжет это из-за винды или еще чего-то?
Это вполне может означать и то, что в системе нет AC'97-совместимого устройства. -
проверил на двух других компах, где AC97 точно есть и оно определяется как устройство или там вобщем входит в надпись. Такое чувство что без этой штуки ниче звучать не будет?) у меня ж все работает прекрасно, кроме моей программы xD
-
Сергей М. © (18.09.09 16:55) [25]
> Zalm © (18.09.09 02:10) [20]
Ты какой компонент из какого пакета мучаешь-то ?) -
NewAC
TDXAudioOut -
Сергей М. © (18.09.09 17:08) [27]
> TDXAudioOut
Дык он не имеет ни малейшего отношения к AC'97-микшеру) -
ну а что тыкать-то?)
-
Сергей М. © (18.09.09 17:23) [29]Если не знаешь чего тыкать, тыкай чего тебе Омлет сказал - там хотя бы слово Mixer встречается)
-
Взял скомпилил готовое что он предложил, ничего не работает, собственно как и в остальных функциях) походу на моём компе нельзя звук регулировать xD
-
хм... а на XP работает....((( еще один повод в копилку "стереть нафих win 7"
| ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net |
| Конференция "Media" » TMediaPlayer и регулировка звука | |
| ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net |
Есть новые 
Нет новых [134431 +9][b:0][p:0.002]