Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

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

← →
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;

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

---

← →
Kloksus ©   (2003-05-04 17:15) [3]

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

---

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

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c