Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
New_programma
0 / 0 / 0
Регистрация: 22.04.2016
Сообщений: 65
#1

Отключение, включение звука у проекта Delphi XE5 - Delphi

30.05.2017, 07:45. Просмотров 156. Ответов 14
Метки нет (Все метки)

Как при нажатии на 1 кнопку звук не работал у проекта, а при нажатии на 2 кнопку, звук снова включился? Дело в том, что я работаю с голосовым движком. И мне нужно, чтобы при нажатии на кнопку, движок выключался.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2017, 07:45
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Отключение, включение звука у проекта Delphi XE5 (Delphi):

Восстановление проекта в Delphi XE5 из exe - Delphi
подскажите такую вещь: вчера работал над один проектом, сделал не мало. затем вырубили свет, когда его включили в проекте прогресс был...

Экспорт проекта из Rad Studio XE5 в Delphi 7 - Delphi
Создал проект в XE5, но на учебных ПК стоит Delphi 7. Попросил друзей протестировать у себя на Delphi 7 компиляцию программы(У меня на...

Компиляция проекта в Delphi XE5 - Delphi
При компиляции проекта хе5 выдал ошибку Hemi.dpr(16): E2029 Declaration expected but identifier 'Unit1' found подскажите что не так и в...

Включение отключение перемещения GroupBox - Delphi
Здраствуйте! В GroupBox1 в параметрах onmousedown есть вот такой код ReleaseCapture; SendMessage(groupbox1.Handle, WM_SYSCOMMAND,...

Какова разница работы одного кода в Delphi 7 и в Delphi XE5? - Delphi
Почему приложение состоящие из одинакового кода, но компилируемое в разных средах работает по разному? Есть клиент-серверное приложение,...

Lpt порт, включение и отключение питания контакта - Delphi
Доброго времени суток. Суть в том, что я хочу подключить лампочку к компьютеру и иметь возможность ее программно включать/выключать. ...

14
qwertehok
1587 / 1578 / 334
Регистрация: 29.08.2013
Сообщений: 10,585
30.05.2017, 07:53 #2
в поиске поискать не судьба?
Управление громкостью Windows
0
New_programma
0 / 0 / 0
Регистрация: 22.04.2016
Сообщений: 65
30.05.2017, 07:57  [ТС] #3
Допустим у меня в Edit.Change прописано следующее:
Delphi
1
2
3
4
5
6
var gpIVTxt: ISpVoice;
Pool: LongWord;
begin
gpIVTxt:=CoSpVoice.Create as ISpVoice;
gpIVTxt.Speak(Pchar(LabeledEdit2.Text),SVSFDefault,Pool);
end;
Как, мне при нажатии на кнопки, отключать и включать звуки, которые выдаются при написании текста в Edit?
0
qwertehok
1587 / 1578 / 334
Регистрация: 29.08.2013
Сообщений: 10,585
30.05.2017, 10:24 #4
то есть ты на каждое изменение эдита создаешь CoSpVoice?
это точно нужно?
0
New_programma
0 / 0 / 0
Регистрация: 22.04.2016
Сообщений: 65
31.05.2017, 06:28  [ТС] #5
Неет, вы меня не правильно поняли.
Когда пишу слово, она переводит его на английском языке голосовой речью. Мне нужна функция выключателя этих самых переводов. То есть, при нажатии на кнопку, я не слышал эти переводы. Если это сложно, то как хотябы отключить звук у всей системы ПК, чтобы всеравно не слушать эти переводы? Это просто мое дополнение, типо, кому не нужен голосовой переводчик, может выключить звук и ВСЕ!
0
qwertehok
1587 / 1578 / 334
Регистрация: 29.08.2013
Сообщений: 10,585
31.05.2017, 14:12 #6
я вообще вас не понял

Не по теме:

и задача у вас, скорее всего, неправильно поставлена

0
New_programma
0 / 0 / 0
Регистрация: 22.04.2016
Сообщений: 65
31.05.2017, 16:30  [ТС] #7
Что не понятного? Отключить звук в Delphi XE5. Все!
0
krapotkin
2666 / 2542 / 643
Регистрация: 14.04.2014
Сообщений: 12,267
Записей в блоге: 7
31.05.2017, 16:59 #8
издеваетесь?
вы сами издаете звук. не надо "ЗАПРЕЩАТЬ". надо НЕ ИЗДАВАТЬ
поставьте условие
ЕСЛИ ПЕРЕМЕННАЯ то издавать звук;
0
Пытливый
1304 / 620 / 148
Регистрация: 29.05.2013
Сообщений: 2,663
31.05.2017, 17:57 #9
Как я понял за преобразование текста в речь(звук) у вас отвечает вот это:
Delphi
1
2
gpIVTxt:=CoSpVoice.Create as ISpVoice;
gpIVTxt.Speak(Pchar(LabeledEdit2.Text),SVSFDefault,Pool);
тогда если на форму поместить чекбокс, можно по его состоянию включать/отключать воспроизведение:
Delphi
1
2
3
4
5
if CheckBox1.Checked 
then begin
       gpIVTxt:=CoSpVoice.Create as ISpVoice;
       gpIVTxt.Speak(Pchar(LabeledEdit2.Text),SVSFDefault,Pool);
       end;
0
krapotkin
2666 / 2542 / 643
Регистрация: 14.04.2014
Сообщений: 12,267
Записей в блоге: 7
01.06.2017, 07:18 #10
правильный кусок, но плохая практика
потом форма поменяется и где мы будем искать этот чекбокс ?
требуется глобальная переменная Settings:TSettings;
и тип TSettings включает в себя все ваши мыслимые настройки
при старте программы они считываются из к-нить файла
при изменении - записываются в файл
и тогда
if Settings.SpeechEnabled then ...
1
Пытливый
1304 / 620 / 148
Регистрация: 29.05.2013
Сообщений: 2,663
01.06.2017, 11:46 #11
требуется глобальная переменная Settings:TSettings;
и тип TSettings включает в себя все ваши мыслимые настройки
при старте программы они считываются из к-нить файла
при изменении - записываются в файл
Интересно, а заполнение этих настроек кто будет делать? Конечно же пользователь. А как он это будет делать? Наверное полезет в файл настроек и там поставит 0 вместо 1, потом подумает, что это неудобно и сделает в программе форму с чекбоксом.
0
krapotkin
2666 / 2542 / 643
Регистрация: 14.04.2014
Сообщений: 12,267
Записей в блоге: 7
01.06.2017, 13:21 #12
вы не поверите, но именно так и делаются настройки
и (вы не поверите-2!) отдельная ФОРМА НАСТРОЕК
0
New_programma
0 / 0 / 0
Регистрация: 22.04.2016
Сообщений: 65
01.06.2017, 20:13  [ТС] #13
Хорошие советы, но я все же применю метод с Чекбоксом. Но хотелось бы спросить - я говорил на счет (нажав на кнопку, звук выключается) я имел ввиду Image, в этом компоненте у меня изображение иконки выключенного звука. Так вот, как можно, применить, этот метод с Чекбоксом и с Image?
0
krapotkin
2666 / 2542 / 643
Регистрация: 14.04.2014
Сообщений: 12,267
Записей в блоге: 7
01.06.2017, 20:51 #14
вот еще даже не написано, а уже то что я говорил, сбылось
теперь нам нужен ЧЕКБОКС для того чтобы щелкнуть по КАРТИНКЕ
0
GoodWeather
131 / 130 / 41
Регистрация: 28.02.2017
Сообщений: 764
01.06.2017, 21:02 #15
У вас некоторые проблемы или с терминологией или с пониманием.
  • Если программа должна сама "не издавать звуки" при каком-то состоянии, то в принципе плохо трогать настройки ОС.
  • Такого понятия как "звук проекта" не бывает, это простите бред.
  • Вы сами лично "запускаете" звук вызывая метод Speak(). Что вам мешает перестать это делать при определённых нужных условиях?
  • В вашем коде в #3 утечка памяти, об чём вам уже говорил qwertehok. Надо сделать gpIVTxt полем формы и создавать только при FormCreate, а при FormDestroy не забывать удалять.
Цитата Сообщение от New_programma Посмотреть сообщение
имел ввиду Image, в этом компоненте у меня изображение иконки выключенного звука
  • Делаете логическое поле класса SpeechEnabled, инициализируете его в FormCreate, устанавливаете картинку в зависимости от установленного значения, меняете SpeechEnabled и картинку при ImageClick.
0
01.06.2017, 21:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2017, 21:02
Привет! Вот еще темы с ответами:

Перенести программу с Delphi 7 на Delphi XE5 - Delphi
Здравствуйте, возник вопрос с программой, она создана на Delphi 7 у меня же стоит Delphi XE 5, есть ли возможность ее запустить и что бы...

Переезд проекта из delphi7 в xe5 / ошибка при работе с бинарным файлом - Delphi
Доброго времени суток. Недавно переехал с семёрки на xe5, перенёс проект и... он вешается. Выяснил, что проблема при считывании...

Delphi xe5 - Delphi
Привет ребята, есть ли еще рабочая крякнутая делфя ХЕ5 ?? если есть скиньте ссылку пожалуйста :)

Delphi xe5 - Delphi
Парни, как в делфи хе5 прописать на кнопку открытие нового окна ? В делфи только начинаю работать. Заранее всем спасибо.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru