Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Использую ф-ию windows.Beep(16000,15000), но какое бы число [D6, Win95/98]

iNew © (2002-12-18 09:26:00)
не подставлялось в качестве 1-го параметра звук один и тот же.

zavdim (2002-12-18 11:42:00) [1]
Можно так, только он через PlaySound меньше 1000 мс звуки не ведет, хотя из записанного файла вполне. Ну в общем разбирайся - да и ошибки может есть.

procedure MyBeep(n1,n2 : integer);
var s,s1 : string;
i,j,k : integer;
f : textfile;
begin
j := n2*11025*1 div 1000;
s :="RIFF"+chr(n2 div $ff)+chr(n2 mod $ff)+#0#0+"WAVEfmt "+ #$10#0#0#0#1#0#1#0;
s := s+ #$11#$2b#0#0+#$11#$2b#0#0+#1#0#8#0+"data"+chr(j div $ff)+chr(j mod $ff)+#0#0;
i :=length(s);
SetLength(s,i+j);
for k:=i+1 to i+j do
begin
s[k] := chr(round($FF*sin(pi*k*n1/11025)))
end;
assignfile(f,"1.wav");
rewrite(f);
rewrite(f);
write(f,s);
closefile(f);

PlaySound(pChar(s),0,SND_MEMORY or SND_SYNC);
end;

Dimka Maslov (2002-12-18 10:40:00) [2]
http://delphibase.endimus.com/?action=viewfunc&topic=mediasound&id=10124

iNew (2002-12-18 10:25:00) [3]
Юнит нашел, не могу понять что в PlaySound пихать надо.
Если можно примерчик?

iNew (2002-12-18 10:23:00) [4]
Какой нужно юнит прописать для PlaySound?

zavdim (2002-12-18 10:03:00) [5]
создаешь в памяти нужную Wav и игрешь ее, например, PlaySound;

iNew (2002-12-18 09:54:00) [6]
А что тогда делать?

FreeLancer (2002-12-18 09:28:00) [7]
Это работает только для NT-образных систем, а для 9x параметры игнорируются.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »