Озвучивание текста в контроле Clariona
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- Активист
- Сообщения: 128
- Зарегистрирован: 01 Декабрь 2005, 20:47
- Откуда: Минск
- Поблагодарили: 1 раз
- Контактная информация:
Озвучивание текста в контроле Clariona
Привет, всем профи Clariona!
Наклюнулась идея озвучивания текста в RTF либо TxText контроле.
Искал на форуме, но запрос на фразу "озвучивание" ничего не показал. Говорилок имеется достаточно, а хотелось бы иметь свою родную, созданную в среде Clariona, либо другую не "родную" , но озвучивающую текст из вышеуказанных контролов.
Может кто решал похожую задачу ? Просветите в данном вопросе.
С уважением Stalker.
Наклюнулась идея озвучивания текста в RTF либо TxText контроле.
Искал на форуме, но запрос на фразу "озвучивание" ничего не показал. Говорилок имеется достаточно, а хотелось бы иметь свою родную, созданную в среде Clariona, либо другую не "родную" , но озвучивающую текст из вышеуказанных контролов.
Может кто решал похожую задачу ? Просветите в данном вопросе.
С уважением Stalker.
Re: Озвучивание текста в контроле Clariona
В принципе, разговаривать умеют персонажи MS Agent (скрепки, колобки, киски-собачки и так далее). Выводили тексты со звуком - душераздирающее зрелище (ушераздирающее слышищеStalker писал(а):Привет, всем профи Clariona!
Наклюнулась идея озвучивания текста в RTF либо TxText контроле.
Искал на форуме, но запрос на фразу "озвучивание" ничего не показал. Говорилок имеется достаточно, а хотелось бы иметь свою родную, созданную в среде Clariona, либо другую не "родную" , но озвучивающую текст из вышеуказанных контролов.
Может кто решал похожую задачу ? Просветите в данном вопросе.
С уважением Stalker.

Размещаешь на экране OCX ('agent.control.2'), загружаешь файл (например, merlin.acs) и командуешь....
-
- Активист
- Сообщения: 128
- Зарегистрирован: 01 Декабрь 2005, 20:47
- Откуда: Минск
- Поблагодарили: 1 раз
- Контактная информация:
Re: Озвучивание текста в контроле Clariona
В принципе, разговаривать умеют персонажи MS Agent (скрепки, колобки, киски-собачки и так далее). Выводили тексты со звуком - душераздирающее зрелище (ушераздирающее слышище Но если очень надо-можно вывести персонажа за краем экрана и попросить его сказать...
Размещаешь на экране OCX ('agent.control.2'), загружаешь файл (например, merlin.acs) и командуешь....
Спасибо за подсказку, но MS Agent не устраивает, да и запустить его пока не получается, если можно то подскажите как запустить более подробно. Нужен какой-либо движок для озвучивания типа Sam, чтобы читал либо весь текст в контроле, либо выделенную часть.
С уважением Stalker.
Размещаешь на экране OCX ('agent.control.2'), загружаешь файл (например, merlin.acs) и командуешь....
Спасибо за подсказку, но MS Agent не устраивает, да и запустить его пока не получается, если можно то подскажите как запустить более подробно. Нужен какой-либо движок для озвучивания типа Sam, чтобы читал либо весь текст в контроле, либо выделенную часть.
С уважением Stalker.
Специализация - программы для образования, делопроизводство, складской учет
Re: Озвучивание текста в контроле Clariona
Добрый день!
0. Надо найти русифицированный интерфейс TTS (Text to speech). Когда мне надо было, я нашёо минут за 20.
Говорят, что есть на http://activex.microsoft.com/activex/co ... ttsrur.exe . Врут, наверное...
1.Во-первых, в системе должен быть установлен MS Agent. Обычно это находится в каталоге Windows\MsAgent
2.Надо найти персонажа. Обычно это файл с расширением Acs. Персонаж Merlin.acs обычно есть в Windows. Другие могут быть поставлены вместе с MS Word.
3.Создаём OCX
Agent# = Create(0,Create:ole)
Agent#{Prop:Create}='Agent.Control.2'}
4.Загружаем персонажа. Будем считать, что файл в текущем каталоге
FileName = LongPath() & '\merlin.acs'
Agent#{'Character.Load("Merlin","' & Filename & '")'}
5. Активизируем агента
Agent#{'Connected'}=-1
6. Даём команды агентам
Text = 'Произносимый текст'
Agent#{'Characters("Merlin").Speak("' & Text & '")'}
А остальное всё в документации. Или в Интернете. Удачи!
0. Надо найти русифицированный интерфейс TTS (Text to speech). Когда мне надо было, я нашёо минут за 20.
Говорят, что есть на http://activex.microsoft.com/activex/co ... ttsrur.exe . Врут, наверное...
1.Во-первых, в системе должен быть установлен MS Agent. Обычно это находится в каталоге Windows\MsAgent
2.Надо найти персонажа. Обычно это файл с расширением Acs. Персонаж Merlin.acs обычно есть в Windows. Другие могут быть поставлены вместе с MS Word.
3.Создаём OCX
Agent# = Create(0,Create:ole)
Agent#{Prop:Create}='Agent.Control.2'}
4.Загружаем персонажа. Будем считать, что файл в текущем каталоге
FileName = LongPath() & '\merlin.acs'
Agent#{'Character.Load("Merlin","' & Filename & '")'}
5. Активизируем агента
Agent#{'Connected'}=-1
6. Даём команды агентам
Text = 'Произносимый текст'
Agent#{'Characters("Merlin").Speak("' & Text & '")'}
А остальное всё в документации. Или в Интернете. Удачи!
- Admin
- Администратор
- Сообщения: 4010
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 53 раза
- Поблагодарили: 33 раза
- Контактная информация:
Re: Озвучивание текста в контроле Clariona
Если есть возможность - купи EasyCOM2INC
С ним легко управлять MS Agen`ом, пример в наличии. Ну и для других целей пригодится!
С ним легко управлять MS Agen`ом, пример в наличии. Ну и для других целей пригодится!
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
-
- Активист
- Сообщения: 128
- Зарегистрирован: 01 Декабрь 2005, 20:47
- Откуда: Минск
- Поблагодарили: 1 раз
- Контактная информация:
Re: Озвучивание текста в контроле Clariona
Большое спасибо за помощь Бальшому Гуру и Admin!
Два разных совета но как раз дополнили друг друга.
Первое, сделал как советовал Бальшой Гуру! Все скачалось с буржуйского сайта и установилось. Как ни странно ничего не заглючило и не ругнулось, то есть совет очень верный, но к сожелению не пошло.В окне создал кнопку и вписал выполнить код по ее нажатию.Ничего не глючит, но и ничего и не говорит. Работаю 6.3. Пробовал в XP и в Win 2000. Merlin есть, путь задан коректно, колонки работают но не говорит ничего. Буду дальше копаться в литературе, должно все-таки пойти, чуствую направление верное.
Попробовал второй путь. скачал софт *сом с ingasoft, по совету Admin. Просмотрел пример работы с агентом.Пример простой, загрузился нормально, проблемм нет.Из примера можно взять, метод работы с агентом в качестве помощника.Выводит необходимый текст, который прописываешь, тоесть можно организовать хорошую красивую справку по функциям программы, но тоже не проговаривает. Издает красивые звуки, хорошая анимация, но опять не проговаривает необходимый текст. Возможно в примере показаны ограниченные возможности.
Тем не менее, большое спасибо за помощь и лампочку в конце длинного темного туннеля.
С глубоким уважением ко всем откликнувшимся Stalker!
Два разных совета но как раз дополнили друг друга.
Первое, сделал как советовал Бальшой Гуру! Все скачалось с буржуйского сайта и установилось. Как ни странно ничего не заглючило и не ругнулось, то есть совет очень верный, но к сожелению не пошло.В окне создал кнопку и вписал выполнить код по ее нажатию.Ничего не глючит, но и ничего и не говорит. Работаю 6.3. Пробовал в XP и в Win 2000. Merlin есть, путь задан коректно, колонки работают но не говорит ничего. Буду дальше копаться в литературе, должно все-таки пойти, чуствую направление верное.
Попробовал второй путь. скачал софт *сом с ingasoft, по совету Admin. Просмотрел пример работы с агентом.Пример простой, загрузился нормально, проблемм нет.Из примера можно взять, метод работы с агентом в качестве помощника.Выводит необходимый текст, который прописываешь, тоесть можно организовать хорошую красивую справку по функциям программы, но тоже не проговаривает. Издает красивые звуки, хорошая анимация, но опять не проговаривает необходимый текст. Возможно в примере показаны ограниченные возможности.
Тем не менее, большое спасибо за помощь и лампочку в конце длинного темного туннеля.
С глубоким уважением ко всем откликнувшимся Stalker!
Специализация - программы для образования, делопроизводство, складской учет
- Admin
- Администратор
- Сообщения: 4010
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 53 раза
- Поблагодарили: 33 раза
- Контактная информация:
Re: Озвучивание текста в контроле Clariona
MS SAPI стоит? (без этого по моему MS Agent не умеет спикать)Stalker писал(а):не проговаривает необходимый текст
Может сходить на MS и скачать все что нужно?
Языки кстати тоже нужно ставить.
Ссылки по теме:
http://www.microsoft.com/msagent/downloads/
http://activex.microsoft.com/activex/co ... pchapi.exe
http://activex.microsoft.com/activex/co ... Sagent.exe
http://speech-soft.ru/index.php?a=stat& ... 1181101979
P.S. Кстати гугль как обычно - рулит

Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
- Дед Пахом
- Старичок
- Сообщения: 3289
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 15 раз
- Поблагодарили: 49 раз
- Контактная информация:
Re: Озвучивание текста в контроле Clariona
Помнится, у меня чего-то не хватало для озвучивания текста на момент написания примера, какого-то девайса что-ли или api, вот я и не стал её реализовывать.Попробовал второй путь. скачал софт *сом с ingasoft, по совету Admin. Просмотрел пример работы с агентом.Пример простой, загрузился нормально, проблемм нет.Из примера можно взять, метод работы с агентом в качестве помощника.Выводит необходимый текст, который прописываешь, тоесть можно организовать хорошую красивую справку по функциям программы, но тоже не проговаривает. Издает красивые звуки, хорошая анимация, но опять не проговаривает необходимый текст. Возможно в примере показаны ограниченные возможности.
С уважением, ДП
Re: Озвучивание текста в контроле Clariona
Возможно, надо добавить ещё команду Agent#{'Characters("Merlin").Show'} и Agent#{'Characters("Merlin").Moveto(...)''}
К сожалению, рабочий пример мне сейчас недоступен...
К сожалению, рабочий пример мне сейчас недоступен...
-
- Активист
- Сообщения: 128
- Зарегистрирован: 01 Декабрь 2005, 20:47
- Откуда: Минск
- Поблагодарили: 1 раз
- Контактная информация:
Re: Озвучивание текста в контроле Clariona
На ниже указанной ссылке можно найти неплохой контрол по работе с агентом.А ключик можно найти в привате в соответствующей capesoft папке
http://www.capesoft.com/accessories/downloads.htm
Stalker
http://www.capesoft.com/accessories/downloads.htm
Stalker
Специализация - программы для образования, делопроизводство, складской учет