| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
sound
comintegrator © (2003-06-27 19:00:00)
Плиз подскажите как программно генерировать звук нужной частоты через звуковую карту? что-то вроде sound(частота)
Rocker (2003-07-02 09:18:00) [1]
> SysUtils можешь не убирать, а написать Windows.Beep
Но если, все-таки, убрать, exe-шник "полегчает"!
Evgeny V (2003-06-30 04:55:00) [2]
Смотри хелп WaveOutWrite в дельфи Windows SDK, там пример кода, вместо чтения из файла, подсунь свой буфер со своим сигналом нужной частоты и длительности
Fenik (2003-06-29 12:11:00) [3]
SysUtils можешь не убирать, а написать Windows.Beep(..);
Rocker (2003-06-29 11:52:00) [4]
А если надо бипнуть в полноценной проге Delphi таким способом, то убери из uses sysutils, так как beep есть и в sysutils, и в windows. По умолчанию принимается beep из sysutils, который следует без параметров! А я привел beep именно из windows!
Rocker (2003-06-29 11:45:00) [5]
> 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.
comintegrator (2003-06-28 21:06:00) [6]
beep отрабатывает винда если указать beep(<частота>,<длительность>) то пишет что слишком много параметров
а просто beep проигрывается звук из звуковой темы винды...ладно всем спасибо придумаю что-нить
Rocker (2003-06-28 08:53:00) [7]
beep(<частота>,<длительность>)
Fenik (2003-06-27 20:46:00) [8]http://delphibase.endimus.com/?action=viewfunc&topic=mediasound&id=10348
| |
