Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.03;
Скачать: CL | DM;

Вниз

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 вся ветка

Текущий архив: 2003.11.03;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.008 c
4-8729
konstantinov
2003-08-30 23:04
2003.11.03
Помогите с указателями


1-8356
denick
2003-10-23 10:40
2003.11.03
Подскажите пожалуйста, как найти решение?


14-8586
Vovchik_A
2003-10-15 16:10
2003.11.03
Я плакалъ :))


1-8358
Russko
2003-10-23 10:04
2003.11.03
ExcelApplication


14-8608
Е-Моё имя
2003-10-15 09:25
2003.11.03
Китай стал космической державой





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский