Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
1-70372
Nikos
2003-05-08 14:11
2003.05.22
Как правильно объявить массив объектов?


14-70429
MortalScorpion
2003-05-05 13:13
2003.05.22
Синтез речи


3-70103
Levan Varshanidze
2003-04-29 12:46
2003.05.22
SQL, Stored Procedures (MS SQL server 7.0)


1-70263
P.Kert
2003-05-12 13:09
2003.05.22
Вложенные меню


1-70363
FZ*XupypG
2003-05-10 04:08
2003.05.22
Сохранение типа TColor в текстовый файл и чтение его оттуда