Альтернативная реализация функции Сигнал(Beep)

11 Comments

1. Abadonna 30.05.2012 at 20:13

   WinAPI BOOL Beep(DWORD dwFreq,DWORD dwDuration) предназначена для вывода звука через системный динамик.
   
   В современных компьютерах он наличествует далеко не всегда (хоть внешний, хоть встроенный на материнской плате).
   
   А в терминальном режиме кто будет слушать писк динамика на сервере? Уборщица в серверной?

   Reply ↓
2. Dnki 11.06.2012 at 22:45

   А! динамик.. Я надеялся найти для звуковых файлов. Та, что я пользуюсь, сбоит в терминале.

   Reply ↓
3. Avalanche 18.06.2012 at 09:48

   (2) Dnki, если вы хотите проигрывать звуковые файлы, то можно подключить ActiveX mediaplayer. Или вам нужно что бы это делала именно ВК?)

   Reply ↓
4. Dnki 19.06.2012 at 23:37

   (3) Да, как говорится, попалась под руку ВК (Miracle) — использовал. Благо знаю как.
   
   А Activ пока не употреблял. Это пример надо поискать.

   Reply ↓
5. Serg3141 21.05.2015 at 15:12

   еле нашел подходящую мне компоненту. Нужно сигнал выводить именно на спикер. Спасибо за разработку.

   Reply ↓
6. RinGo 08.12.2016 at 08:38

   Добрый день, Сергей! Прочитал Ваш комент к beeper.dll — «еле нашел подходящую мне компоненту. Нужно сигнал выводить именно на спикер. Спасибо за разработку…» ==> просьба: не могли бы Вы скинуть ее мне в личку? Ну не у меня этих монетов(sm), а очень нуно юзеров звуком предупреждать!… Заранее благодарен!

   (5)

   Reply ↓
7. agent00mouse 20.12.2016 at 21:54

   В терминале на работает. Грусть.

   Reply ↓
8. ivisor_fil 08.04.2017 at 16:17

   Искал себе как сделать звуковую индикацию ошибочного ввода в 1с через спикер (потому как может не быть колонок, или выключен звук, или использоваться схема без звука)

   Вот посылка звукового сигнала на спикер:

   Процедура глБиип(КолЗвуков=0)
   Если КолЗвуков=0 Тогда Возврат; КонецЕсли;
   
   Shell = Новый COMОбъект(«WScript.Shell»);
   Команда = «%comspec% /c @echo «;
   Для Ном = 1 по КолЗвуков Цикл
   Команда = Команда + Символ(7);
   КонецЦикла;
   Shell.Run(Команда,0,0);
   КонецПроцедуры

   Показать

   Reply ↓
9. ivisor_fil 08.04.2017 at 16:25

   (6)
   
   Искал себе как сделать звуковую индикацию ошибочного ввода в 1с через спикер (потому как может не быть колонок, или выключен звук, или использоваться схема без звука)

   Вот в итоге получиась такая небольшая процедурина:
   

   Процедура глБиип(КолЗвуков=0)
   Если КолЗвуков=0 Тогда Возврат; КонецЕсли;
   
   Shell = Новый COMОбъект(«WScript.Shell»);
   Команда = «%comspec% /c @echo «;
   Для Ном = 1 по КолЗвуков Цикл
   Команда = Команда + Символ(7);
   КонецЦикла;
   Shell.Run(Команда,0,0);
   КонецПроцедуры
   

   Показать

   Reply ↓
10. agent00mouse 09.04.2017 at 10:51

    Хочется звук иметь асинхронно. сказал компьютеру: — пищи. и дальше своими делами занимаешься, особенно актуально при работе со сканером ШК.

    и немного лирики.:

    По загадочным причинам, в сфере вычислительной техники слово «асинхронный» означает «синхронный». Например, «асинхронный запрос» — это когда синхронно (т. е. одновременно) с ним может выполняться другой. А вот если синхронность в выполнении отсутствует, и запросы выполняются последовательно друг за другом, то их с какого-то бодуна называют «синхронными».

    стырено из интернета.

    Reply ↓
11. SONICUS 21.05.2018 at 16:37

    Не работает ваша библиотека. Зря потраченые мани.Пробовали на семерке и десятки. А если она работает только на ХР, то и без этой библиотеки там нормально работает.

    Reply ↓