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

Использую ф-ию windows.Beep(16000,15000), но какое бы число   Найти похожие ветки 

← →
iNew ©   (2002-12-18 09:26) [0]

не подставлялось в качестве 1-го параметра звук один и тот же.

---

← →
FreeLancer ©   (2002-12-18 09:28) [1]

Это работает только для NT-образных систем, а для 9x параметры игнорируются.

---

← →
iNew ©   (2002-12-18 09:54) [2]

А что тогда делать?

---

← →
zavdim   (2002-12-18 10:03) [3]

создаешь в памяти нужную Wav и игрешь ее, например, PlaySound;

---

← →
iNew ©   (2002-12-18 10:23) [4]

Какой нужно юнит прописать для PlaySound?

---

← →
iNew ©   (2002-12-18 10:25) [5]

Юнит нашел, не могу понять что в PlaySound пихать надо.
Если можно примерчик?

---

← →
Dimka Maslov ©   (2002-12-18 10:40) [6]

http://delphibase.endimus.com/?action=viewfunc&topic=mediasound&id=10124

---

← →
zavdim   (2002-12-18 11:42) [7]

Можно так, только он через 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;

---

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

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



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