1С заговорила - голосовой информатор через Skype

Опубликовал Сергей Карташев (Elisy) в раздел Программирование - Работа с интерфейсом

Обработка в статье позволяет получить аудиофайл с речью, сгенерированной компьютером на основе текстовой строки, позвонить собеседнику через Skype и произнести его. Функциональность выполнена на основе .Net framework  и API для Skype. Разработка будет полезна не только для серьезных бизнес-приложений, но и для домашних опытов и шуток друзьям. Для звонков на реальные номера потребуется пополненный баланс на Skype.

Обработка для 1С в статье позволяет получить аудиофайл с речью, сгенерированной компьютером на основе текстовой строки, позвонить собеседнику через Skype и произнести его. Функциональность выполнена на основе .Net framework и API для Skype. Разработка будет полезна не только для серьезных бизнес-приложений, но и для домашних опытов и шуток друзьям. Для звонков на реальные номера потребуется пополненный баланс на Skype.

Предварительная настройка

Если не предусмотрен в системе русский голос, то его необходимо установить. По умолчанию Windows 7 может читать только английские тексты. Для русификации голоса нужно установить дополнительный русский голос. В Интернете удалось найти только голос ScanSoft Katerina Full 22kHz (до конца не понятна правовая возможность использования этого голоса). Многим может показаться голос медленным. Для его убыстрения необходимо сделать запись в реестре:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\ScanSoftKaterina_Full_22kHz]
"pp type"="email"

Скайп позволяет взаимодействовать с собой через библиотеку skype4COM.

Необходимо скачать эту библиотеку и выполнить ее регистрацию в реестре через regsvr32 skype4COM.dll. Для данной операции могут потребоваться права администратора.

После попытки использовать Skype в первый раз появится запрос в Skype’е. Нужно дать разрешение программе 1cv8c.exe на использование Skype. Контроль программ, имеющих доступ, можно выполнить через Настройки-Дополнительно-Расширенные настройки-Контроль доступа других программ к Skype.

Для доступа к .Net framework из 1С необходимо установить .Net Bridge. Сейчас последняя версия 4.0.4.

Описание кода C#

Код класса SkypeSpeech разделен на 2 части: генерация звука через класс SpeechSynthesizer и работа со Skype через SKYPE4COMLib.

Генерация звука:

SpeechSynthesizer reader = new SpeechSynthesizer();
if (!String.IsNullOrEmpty(voiceName))
{
    var voice = reader.GetInstalledVoices().Where(m => m.VoiceInfo.Name == voiceName).FirstOrDefault();
    if (voice != null)
        reader.SelectVoice(voiceName);
}

reader.SetOutputToWaveFile(tempFilePath, new SpeechAudioFormatInfo(
    16000,
    AudioBitsPerSample.Sixteen,
    AudioChannel.Mono
));

reader.Speak(text);
reader.SetOutputToNull();
reader.Dispose();

Особенности кода следующие. На вход в Skype нужно подать wav-файл с определенными параметрами, поэтому параметры устанавливаются явно. Для управления голосами SpeechSynthesizer используются методы GetInstalledVoices и SelectVoice.

Работа со Skype ведется через Skype4COM. В Сети есть много примеров, например: http://habrahabr.ru/post/139319/. Все примеры, какие я смотрел, отличаются, на мой взгляд, усложненной структурой: логика не умещается в один метод, а распределена между разными методами и событиями. Хотелось уместить всю логику в одну процедуру для наглядности.

Подключение к Skype. Второй параметр в skype.Attach заменен на true. Это значит, что скайп возвратит управление, когда произойдет подключение.

Skype skype = new Skype();
if (!skype.Client.IsRunning)
    skype.Client.Start(true, true);

skype.Attach(8, true);

Звонок через Skype:

Call call = skype.PlaceCall(target);
do
{
     if (call.Status == TCallStatus.clsBusy
        || call.Status == TCallStatus.clsCancelled
        || call.Status == TCallStatus.clsFailed)
        break;

    System.Threading.Thread.Sleep(1);
} while (call.Status != TCallStatus.clsInProgress);

if (call.Status != TCallStatus.clsInProgress)
    return;

Проигрывание звукового файла. Была предпринята попытка определять время звучания по времени, когда файл занят и не доступен для записи.

call.set_InputDevice(TCallIoDeviceType.callIoDeviceTypeFile, waveFilePath);
do
{
    System.Threading.Thread.Sleep(1000);
} while (IsBusy(waveFilePath));

Метод IsBusy выглядит так:

try
{
    using (FileStream stream = File.OpenWrite(filePath))
    {
        stream.Close();
        return false;
    }
}
catch (IOException)
{
    return true;
}

Описание кода 1С

Инициализация происходит в событии формы ПриОткрытии. Создание объекта .Net Bridge.

ПодключитьВнешнююКомпоненту("Elisy.NetBridge4");
AddIn = New("AddIn.ElisyNetBridge4");
net = AddIn.GetNet();

Загрузка сборки из GAC:

net.LoadAssembly("System.Speech, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35");

Загрузка сборки из макета к обработке:

Макет = ПолучитьМакет("Elisy_SkypeSpeech_dll");
ДвоичныеДанные = Base64String(Макет);
assemblyBytes = net.CallStatic("System.Convert", "FromBase64String", ДвоичныеДанные);
net.CallStatic("System.Reflection.Assembly", "Load", assemblyBytes);

За генерацию звука и отправку голосового сообщения через Skype отвечает класс Elisy.SkypeSpeech.SkypeSpeech. Поэтому объект этого типа нужно создать для доступа к нему.

skypeSpeech = net.New("Elisy.SkypeSpeech.SkypeSpeech");

Команда генерации аудио-файла skypeSpeech.CreateSpeech. Первый параметр – имя файла с полным путем, второй параметр – текст сообщения. Третий параметр – имя голоса.

skypeSpeech.CreateSpeech(tempFilePath, Объект.Сообщение, "ScanSoft Katerina_Full_22kHz");

Команда отправки на Skype голосового сообщения skypeSpeech.SendAudioMessage. Первый параметр – номер телефона или имя Skype. Второй параметр – имя аудио-файла.

skypeSpeech.SendAudioMessage(Объект.НомерТелефона, tempFilePath);

Известные проблемы и их решения

Записанный аудиофайл произносит только слова, написанные латинскими буквами, например, Skype. Это означает, что не установлен в систему или не выбран необходимый русский голос. Его необходимо установить. Если это голос не ScanSoft Katerina Full 22kHz, то необходимо подправить вызов skypeSpeech.CreateSpeech(ПутьКФайлу, Объект.Сообщение, "ScanSoft Katerina_Full_22kHz") на нужное имя голоса.

При нажатии «Позвонить по Skype TargetInvokationException с сообщением «Retrieving the COM class factory for component with CLSID {830690FC-BF2F-47A6-AC2D-330BCB402664} failed due to the following error: 80040154 Класс не зарегистрирован (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).». Это означает, что должным образом не зарегистрирована библиотека для доступа к Skype skype4COM.dll. Ее нужно скачать и зарегистрировать с правами администратора через regsvr32 skype4COM.dll.

Что не реализовано

Обработка работает исходя из предположения, что передача голосового сообщения будет вестись стандартным образом: звонок – ответ – передача сообщения – завершение звонка. В текущей версии обработки нет анализа статуса: доставлено или не доставлено. Например, телефон у абонента может быть занят или абонент начал слушать сообщение и самостоятельно прервал разговор.

Пример полученного аудио-файла для ScanSoft Katerina_Full_22kHz: audio.wav (180,78 kb)

Пример полученного аудио-файла для RHVoice Elena (Russian): audio-rhvoice.wav (159,42 kb)

Пример полученного аудио-файла для RHVoice Aleksandr (Russian): audio-rhvoice-alexandr.wav (196,76 kb)

// //

Скачать файлы

Наименование Файл Версия Размер
Обработка для 1С 8.2 (управляемые формы)
.epf 14,24Kb
16.01.13
45
.epf 14,24Kb 45 Скачать

См. также

Комментарии
1. Роман Мишкин (smilejka) 29 16.01.13 11:59 Сейчас в теме
Читал утром на Хабре. Интересная вещь, нужно будет поизучать как работает. Спасибо!
2. Сергей Карташев (Elisy) 871 16.01.13 14:14 Сейчас в теме
(1) smilejka,
Читал утром на Хабре. Интересная вещь, нужно будет поизучать как работает. Спасибо!

На Хабре обсуждение что-то свелось к комментариям об 1С и ее месте в современном мире ))))))
3. Роман Мишкин (smilejka) 29 16.01.13 14:33 Сейчас в теме
(2) Elisy,
Это да. Давно заметил, что на Хабре не любят 1С :)
4. Елена Пименова (Bukaska) 121 16.01.13 14:40 Сейчас в теме
(3) smilejka, Я на том сайте когда нашла матюкальную статью про 1С, я долго смеялась пот столом.
5. Сергей Карташев (Elisy) 871 16.01.13 15:04 Сейчас в теме
(3) (4)
Я одно понять не могу, как можно рассуждать о чем-то, о недостатках архитектуры, если лично не знаком с предметом обсуждения? Стереотипы? ))))))) У 1С есть свои недостатки, но голословно тоже обвинять не стоит.
6. Елена Пименова (Bukaska) 121 16.01.13 15:17 Сейчас в теме
Я не говорю про недостатки 1С. А про то как богат наш русский язык. А плюсы и недостатки есть везде. Просто нужно уметь пользоваться чем есть)
7. Владимир Каракозов (karakozov) 21.01.13 08:49 Сейчас в теме
Не перестаю удивляться областями покрытия нашей замечательной 1С, появляются идеи, которые в конце-концов становятся частью нашего рабочего процесса.Пока не придумал что сделаю по данной методологии.Но автору твердое 5+.
8. Сергей Карташев (Elisy) 871 21.01.13 08:58 Сейчас в теме
Не перестаю удивляться областями покрытия нашей замечательной 1С, появляются идеи, которые в конце-концов становятся частью нашего рабочего процесса.Пока не придумал что сделаю по данной методологии.

Первое, что приходит на ум - это на кассе автоматически сказать покупателю: "К оплате 100 рублей, оплачено 40 рублей, сдача составила 60 рублей". В интернет-магазин можно экспортировать голосовое описание продукта и запускать его при открытии страницы.
Холодные звонки с рекламой что-то накладно выходят через Скайп, лучше поискать другое решение.
9. Денис Кузнецов (kuza_87) 24 25.01.13 12:03 Сейчас в теме
С кассой - это хорошая мысль. Но ты представь каково будет кассиру весь день слушать монотонную речь из колонок. Через пару месяцев она так же будет разговаритвать))))))))Или в дурдом угодит
10. Сергей Карташев (Elisy) 871 25.01.13 12:54 Сейчас в теме
(9) kuza_87,
Это точно ))))) кассиру не позавидуешь. Можно чередовать голоса и опцию выставить - для покупателей-мужчин произносить женским голосом, а для покупательниц - мужским
11. Роман (Raminus) 25.01.13 13:59 Сейчас в теме
На самом деле, отличная задумка, где-то видел нечто похожее по функционалу... какая то WMS система (может быть 1С Логистика или Адресный склад), девушка информировала о поступлении заказа на сборку, в общем забавно:), придумать можно много применений было бы желание.
12. Владимир Б (antares_of) 13 25.01.13 14:34 Сейчас в теме
Интересная идея. Получать оповещения в виде голосовых сообщений может быть востребовано во многих ситуациях. Особенно когда находишься не перед компьютером, а информацию нужно получить оперативно и не как сигнал, а с подробной информацией из первых уст!)
13. Константин (maverick76) 10 16.02.13 02:07 Сейчас в теме
Думаю пригодиться...интересно
14. VictorK (VictorK) 03.04.13 19:52 Сейчас в теме
Очень полезная идея для информирования ответственных лиц организации о сроках оплаты или о важных датах, таких как сдача отчетности , ..., о днях рождения сотрудников.
15. Lena Lesnik (lelusha) 09.02.14 17:50 Сейчас в теме
Голосовые оповещения очень полезны и это востребовано. особенно когда пользователи не обращают внимание на простые предупреждения и сообщения. Автору +1
Оставьте свое сообщение