Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c