Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
ВнизИспользую ф-ию 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c