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

Вниз

Аналог паскального Sound   Найти похожие ветки 

 
Dimmu   (2003-12-15 10:52) [0]

Как воспроизвести звук определенной частоты, через встроенный динамик? В паскале есть кажется Sound с частотой в качестве параметра. Нужно подобное из дельфи.


 
alex_***   (2003-12-15 11:22) [1]

WinAPI:
BOOL Beep(
   DWORD dwFreq, // sound frequency, in hertz
   DWORD dwDuration  // sound duration, in milliseconds
  );


 
Ruslan Solovyev   (2003-12-15 11:25) [2]

Мне такие функции не известны, может меня поправят.

В свое время я делал эмулятор Морзе используя waveOutXXXXX функции (Windows API): открываешь устройство и генеришь буфер в памяти (синусоиду), а затем проигрываешь.

Это коротко.


 
Ruslan Solovyev   (2003-12-15 11:26) [3]

Ops, мое сообщение можно игнорировать


 
Dimmu   (2003-12-15 12:14) [4]


> alex_***

Спасибо, нашел я это в хелпе и написал такой код?

var h:THandle; w:Integer; pr:function(a,b:DWord):DWord;
begin
 h:=0;
 h:=LoadLibrary("kernel32.dll");
 if h>0 then
  begin
   pr:=nil;
   @pr:=GetProcAddress(h,"Beep");
   if @pr<>nil then
   w:=pr(5000,10000);
   ShowMessageFMT("%d",[w]);
  end;
end;


Но функция возвращает ноль и ессно ничего не пикает.


 
Anatoly Podgoretsky ©   (2003-12-15 12:23) [5]

А просто Beep(5000,10000) не пикает, тогда нет динамика в компьютере.


 
Mihey ©   (2003-12-15 14:34) [6]

Гм, параметры Beep работают только в NT. В остальных Windows может издаваться только коротенький beep. Нормальные бипалки ищем на Торри:

http://www.torry.net/pcspeaker.htm



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

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

Наверх




Память: 0.48 MB
Время: 0.029 c
1-1080135078
Erik
2004-03-24 16:31
2004.04.11
В каком класе описан thread для создания com подразделений?


3-1081425872
Rule
2004-04-08 16:04
2004.04.11
Есть в IBDataSete свойстов фильтеред, я им не пользовался со врем


3-1081845149
Dynamit
2004-04-13 12:32
2004.04.11
Проблема загрузки данных из файла в компонент ClientDataSet


14-1081961623
Fay
2004-04-14 20:53
2004.04.11
Что случилось с орешником?


1-1079886820
Batoon
2004-03-21 19:33
2004.04.11
Тильда и VK_...