Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Вниз

sound   Найти похожие ветки 

 
comintegrator   (2003-06-27 19:00) [0]

Плиз подскажите как программно генерировать звук нужной частоты через звуковую карту? что-то вроде sound(частота)


 
Fenik   (2003-06-27 20:46) [1]

http://delphibase.endimus.com/?action=viewfunc&topic=mediasound&id=10348


 
Rocker   (2003-06-28 08:53) [2]

beep(<частота>,<длительность>)


 
comintegrator   (2003-06-28 21:06) [3]

beep отрабатывает винда если указать beep(<частота>,<длительность>) то пишет что слишком много параметров
а просто beep проигрывается звук из звуковой темы винды...ладно всем спасибо придумаю что-нить


 
Rocker   (2003-06-29 11:45) [4]


> comintegrator © (28.06.03 21:06)


> если указать beep(<частота>,<длительность>) то пишет что
> слишком много параметров


Ничего не пишет, а работает как надо. Вот, например,


program Project1;

uses windows;

begin
beep(800,1000);
sleep(1000);
( 1000,1000)

> comintegrator © (28.06.03 21:06)


> если указать beep(<частота>,<длительность>) то пишет что
> слишком много параметров


Ничего не пишет, а работает как надо. Вот, например,


program Project1;

uses windows;

begin
beep(800,1000);
sleep(1000);
beep(1000,1000);
end.


 
Rocker   (2003-06-29 11:52) [5]

А если надо бипнуть в полноценной проге Delphi таким способом, то убери из uses sysutils, так как beep есть и в sysutils, и в windows. По умолчанию принимается beep из sysutils, который следует без параметров! А я привел beep именно из windows!


 
Fenik   (2003-06-29 12:11) [6]

SysUtils можешь не убирать, а написать Windows.Beep(..);


 
Evgeny V   (2003-06-30 04:55) [7]

Смотри хелп WaveOutWrite в дельфи Windows SDK, там пример кода, вместо чтения из файла, подсунь свой буфер со своим сигналом нужной частоты и длительности


 
Rocker   (2003-07-02 09:18) [8]


> SysUtils можешь не убирать, а написать Windows.Beep


Но если, все-таки, убрать, exe-шник "полегчает"!



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.008 c
1-8359
Alfred
2003-10-23 09:49
2003.11.03
Обмен данными между двумя программами


7-8686
PaHaN
2003-08-23 15:49
2003.11.03
Windows XP


3-8285
Анатолий
2003-10-13 08:59
2003.11.03
Ненашел нужного метода


3-8264
Yrtimd
2003-10-15 04:35
2003.11.03
Как узнать тип сервера БД?


3-8295
Александр Иванов
2003-10-12 10:41
2003.11.03
Глюк MSSQL или моя ошибка?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский