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

Вниз

beep   Найти похожие ветки 

 
I231   (2005-09-20 15:05) [0]

Здравствуйте.Кто ответит: почему не работает функция
(процедура) BEEP?


 
Digitman ©   (2005-09-20 15:07) [1]

не выдумывай, все работает.

Windows.Beep(частота, длительность);


 
Джо ©   (2005-09-20 15:08) [2]


>  I231   (20.09.05 15:05)
> Здравствуйте.Кто ответит: почему не работает функция
> (процедура) BEEP?

У меня работает. А какая именно, кстати, их, собственно, как минимум 2: Windows.Beep и SysUtils.Beep?
И что значит "не работает"?


 
RS232   (2005-09-20 15:11) [3]

Может не хочет ?


 
Digitman ©   (2005-09-20 15:12) [4]


> RS232   (20.09.05 15:11) [3]
> Может не хочет ?


Хочет, но не может)


 
evvcom ©   (2005-09-20 15:13) [5]


> I231

У тебя это... динамик сгорел. :)


 
I231   (2005-09-20 15:15) [6]

MessageBeep(0)
Может есть еще какие-то способы извлечь звук из внутр.динамика?


 
Antonn ©   (2005-09-20 15:16) [7]

у меня кстати, просто "beep" тоже не работает.
ну и ладно.


 
Anatoly Podgoretsky ©   (2005-09-20 15:19) [8]

Digitman ©   (20.09.05 15:12) [4]
Это сволочь.


 
DiamondShark ©   (2005-09-20 15:38) [9]


> Может есть еще какие-то способы извлечь звук из внутр.динамика?

Windows.Beep


 
RS232   (2005-09-20 16:19) [10]

А может под "BEEP" имелась ввиду какаято другая функция - имени которой автор не называет из этичных соображений ?


 
IceBeerg ©   (2005-09-20 16:25) [11]

procedure Beep(Frequency, Duration: Integer);
asm
 push edx
 push eax
 mov eax, Win32Platform
 cmp eax, VER_PLATFORM_WIN32_NT
 jne @@9X
 call Windows.Beep
 ret
@@9X:
 pop eax
 pop edx
 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
 jmp @@3
@@2:
 pop edx
@@3:
 pop ebx
end;


Писал не сам, но у меня работает...
Непомню кто дал мне этот код, но здесь же, на www.delphimaster.ru...



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

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

Наверх




Память: 0.46 MB
Время: 0.051 c
2-1127106166
ilya_ae
2005-09-19 09:02
2005.10.16
освобождение памяти


2-1125092597
ronyn
2005-08-27 01:43
2005.10.16
Как в Делфе анимацию типа *.gif реализовать?


2-1126981545
Melok
2005-09-17 22:25
2005.10.16
Расчёт разницы между двумя датами


14-1126895306
AlterEgo of WondeRu
2005-09-16 22:28
2005.10.16
Сайт DelphiMaster.ru вoзьмeт нa рaбoту тeлeпaтa.


3-1125919282
DSKalugin
2005-09-05 15:21
2005.10.16
Длина строки средствами SQL в FireBird 1.5.2





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский