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!

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

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

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

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

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