Генерирования звука в Delphi7

[Пепел Феникса]

beep полюбому АПИ.
с двумя параметрами, работает начиная с NT

[Miha85193]

beep полюбому АПИ.
с двумя параметрами, работает начиная с NT

Есть еще Beeb - Objct Pasca без параметров, и дает он стандартный звуковой сигнал. А Beeb - WinAPI генерирует звуковой сигнал в диапазоне от 37 до 32767 Герц, длительностью... Так что Beeb не только WinAPI.

[Пепел Феникса]

то что паскалевцы придумали все равно на АПИ основано.
я говорил именно про АПИшный.(я паскалевское не особо знаю, и не горю желанием)

[Miha85193]

notHaker

Ну допустим я написал:

procedure TForm1.Button1Click(Sender : TObject); //Не помню как точно
var
CurAmp : integer;
begin
for i := 0 to Form1.ClientWidth - 1 do
begin
CurAmp := BuildSinForm(2, Form1.ClientWidth, i, Form1.ClientHeght div 2);
Form1.Canvas.LineTo(i, CurAmp + Form1.ClientHeght div 2); //Рисуем график
end;
end;

А как заставить звуковую карту повторить всё это через динамики?

[raxp]

не поленитесь и сходите таки на вторую ссылку во втором посте и внимательно почитайте всю тему, в частности генерацию WAVEFORM/

[Demi]

Вот тебе пример.
полностью всё скачаешь тут
http://www.un4seen.com/

[Stilet]

Есть еще Beeb - Objct Pasca без параметров

Пиши полный путь к функции Windows.Beep(..,...); Тогда вызовется ВинАпишный бипик.

[notHaker]

А как заставить звуковую карту повторить всё это через динамики?

Ну уж сам догадывайся...

Могу дать совет:
1) Юзай waveOutX в MMSystem, чтобы вывести звук на звуковую или как предложил уважаемый raxp (sndPlaySound)
2) Изучи функу. С её помощью можно синусаидального чёрта построить в памяти.

[Miha85193]

Спасибо парни!