Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

Звук системным динамиком...   Найти похожие ветки 

 
V.Turecky   (2002-07-27 12:16) [0]

Добрый день.

Не подскажите как подать звук системным динамиком? При этом нужно регулировать его частоту и длительность. Плюс работа кода во всех ОСЯХ.


 
V.Turecky   (2002-07-27 12:18) [1]

Или может компонент какой-то посоветуете. Если будете советовать компонент, то обязательно дайте на него ссылку!


 
Win32.hlp   (2002-07-27 13:08) [2]

Beep(bla-bla-bla)


 
Феликс   (2002-07-27 16:05) [3]

>Win32.hlp
:))))))))))))))))))))
А вообще
http://www.xatka.vov.ru/sound.htm


 
Anatoly Podgoretsky   (2002-07-27 16:28) [4]

Как насчет того, что бы взять из FAQ


 
mukha   (2002-07-27 17:13) [5]

Если сильно надо, сообщи мыло. Отправлю как раз то, что тебе надо.В примере показана возможность регулировать частоту и длительность звука системного динамика.


 
VEG   (2002-07-28 17:24) [6]

procedure Sound(Frequency, Duration: Integer);//Frequency - частота, Duration - длительность
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;



-<>-<>-<>-<>-<<<Фраза>>>-<>-<>-<>-<>-
Зверь, самый лютый, жалости не чужд.
Я чужд. Значит я не зверь.



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

Форум: "Система";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
1-8012
pvasya
2002-09-21 09:51
2002.10.03
waveOutGetVolume


3-7871
Alibaba
2002-09-13 16:22
2002.10.03
TDBNavigator


1-7956
AFrolov
2002-09-24 10:14
2002.10.03
Как сделать кнопку которая оставалась бы нажатой?


3-7779
woland
2002-09-14 23:35
2002.10.03
Как в QuickReport вывести надписть вертикально?


14-8118
TTCustomDelphiMaster
2002-09-07 19:21
2002.10.03
Кино не показывает





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский