Как работать со спикером

← →
Kloksus © (2003-05-04 13:16) [0]

Подскажите, пожалуйста, как вывести звук на спикер для Windows 9х для Делфи-6. Подойдет компонент(где он лежит и как называется) или пример команд. Если это можно сделать только из ассемблера, то нужен полный код.

← →
Anatoly Podgoretsky © (2003-05-04 15:15) [1]

И ты конечно уже посмотрел местный FAQ раз сюда обращаешься.

← →
Manulo © (2003-05-04 15:34) [2]

Копирайт не мой...

procedure BPSnd(Frequency, Duration: Integer); asm cmp Win32Platform, VER_PLATFORM_WIN32_NT jne @@9X push edx push eax call Windows.Beep ret @@9X: push ebx push edx mov bx, ax mov ax, 34DDh mov dx, 0012h cmp dx, bx jnc @@2 div bx mov bx, ax in al, 61h test al, 3 jnz @@1 or al, 3 out 61h, al mov al, 0B6h out 43h, al @@1: mov al, bl out 42h, al mov al, bh out 42h, al call Windows.Sleep in al, 61h and al, 0FCh out 61h, al @@2: pop ebx end;

Первое -- частота писка, второе -- время писка. Ещё раз спасибо товарищу, который поделился со мной данным чудом (к сожалению запамятывал кто)

Спасибо, сейчас буду пробовать...

Как работать со спикером Найти похожие ветки