-
Какой-то косяк с этим плеером. После того как я им пользуюсь, нельзя выключить программу нормально, приходится убивать в процессах.
Я и 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'
вот что он говорит... какая разница, одно и тоже сказал...
| ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net |
| Конференция "Media" » TMediaPlayer и регулировка звука | |
| ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net |
Есть новые 
Нет новых [134431 +8][b:0][p:0.001]