Про звук

badaninslava · Сообщение **badaninslava** » 17.12.2005 11:47:55

Народ, подскажите, пожалуйста как в FPC из бипера можно выдавливать писки и как заставить проиграть wave и MP3-файл?

Alexander · Сообщение **Alexander** » 17.12.2005 15:32:32

Под какую ОС ?

SergKam · Сообщение **SergKam** » 17.12.2005 19:18:16

MP3 через бипер

гдето на форуме lazarusa встречал что ктото делает кросплатформеный мультимедийный компонент. не знаю как у него дела, можно поинтересоваться. еще есть SDL для FP там точно есть кросплатформенный звук.
можно еще запустить дочерний невидимый процесс с mp123 и управлять им через стандартный ввод вывод.

badaninslava · Сообщение **badaninslava** » 17.12.2005 23:27:37

Под какую ОС ?

Вообще для винды.

badaninslava · Сообщение **badaninslava** » 17.12.2005 23:29:03

MP3 через бипер

Не, MP3 - через колонки... :lol:

Alexander · Сообщение **Alexander** » 18.12.2005 17:58:32

А для какой винды ? 95-98 или НТ и далее ?

В последнем случае всё совсем просто, через windows.Beep(tone, delay);
("Бипов" два в разных юнитах ! Этот пример работает для Делфи,
какой юнит надо использоать для ФП (windows или нет) я ещё не знаю.)

А в случае, если нужно для 95-98, напрямую, через порты.

А вообще что играть то будем ? Интересно

))))

Иван Шихалев · 19.12.2005 07:48:03

Не, MP3 - через колонки

Через колонки и в винде - см. модуль mmsystem. Документацию лучше поискать на MSDN.

badaninslava · Сообщение **badaninslava** » 20.12.2005 18:25:22

А для какой винды ? 95-98 или НТ и далее ?

Для НТ.

windows.Beep(tone, delay);

не работает.
Пытаюсь компилить пример на ассемблере(с инета скачал)- выбаёт по русски- не знакомая команда процессора...

Alexander · Сообщение **Alexander** » 20.12.2005 23:36:42

не работает.

То есть как не работает ?

bw · Сообщение bw » 21.12.2005 06:25:07

Beep(tone, delay);
Под w2k работает. Причем именно на PC speaker'е, как я люблю ;-)

. Вот блин. А я не знал. Драйвер на asm писал. Хотя, конечно с пользой время провел :-)

.

..bw

Alexander · Сообщение **Alexander** » 21.12.2005 13:50:48

Я когда понял, что доступ к портам закрыт и надо писать драйвер
поначалу офигел, а потом нашел эту функцию. В итоге ставишь проверку
НТ - не НТ и либо функция, либо порты. А сейчас перехожу в Линукс, чтобы
с такими маразмами больше не возится.

не работает.

Работает, работает. А прямой доступ к портам в НТ закрыт

Кстати, а сам спикер то есть, или его с лёгкой руки оторвали ?

И что играть то будем ?

badaninslava · Сообщение **badaninslava** » 22.12.2005 20:37:19

И что играть то будем ?

Да так- хочу программу-тестирование сделать и чтобы когда студент ответит на все вопросы звучала мелодия, соответствующая балу, чтобы препод сразу понял.

windows.Beep(tone, delay);

Ну не работает и всё тут..

Alexander · Сообщение **Alexander** » 23.12.2005 13:36:10

Обязанно работать. Надеюсь ты понимаешь смысл записи:

windows.Beep(tone, delay);

tone - частота звука
delay - длительность звука

То есть вначале uses ..., windows; а уже затем windows.Beep(tone, delay);

Это значит, что мы использовали бип из этого юнита. У меня конкретно так
играет. У [bw] тоже заиграло. Играть обязанно. Почитай стандартную доку
про АПИ. Я так и нашел.

Есть ещё вариант, что раз уж хрюша контролирует спикер, то возможно в
ней есть его блокировка и она включена ? Тогда вопрос - а хоть когда
нибудь спикер от этого вин пищал ?

Хорошую задачу ты решаешь.

badaninslava · Сообщение **badaninslava** » 23.12.2005 21:18:12

Тогда вопрос - а хоть когда
нибудь спикер от этого вин пищал ?

Да, когда долго "shift" жмакаешь...

Гость_Alexander · 24.12.2005 12:11:21

Тогда скачай мой органайзер. Там эта функция и работает. Если не играет -
проблема на 100 процентов в Вин. www.aralni.narod.ru