ВЫвод звука в типовой

/// Подключаем объекты при открытии, что бы не подключать их каждый раз при вызове
&НаКлиенте
Перем oVoice, oSpFileStream, ИмяФайлаЗвука;


&НаКлиенте
Процедура ПриОткрытии(Отказ) 
	//ИмяФайлаЗвука = "ЗвукОшибки1";
	//ИмяФайлаЗвука = "Голос";   
	ПодключитьЗвукОшибки();
КонецПроцедуры


&НаКлиенте
Процедура Кнопка1(Команда)	
	Контрагент = "";
	/// Если голосовое предупреждение
	Если не ЗначениеЗаполнено(Контрагент) Тогда
		ВоспроизвестиЗвукОшибки("Не заполнен контрагент!");
		Возврат;
	КонецЕсли;		
	
	/// воспроизведение обычного сигнала ошибки или не только ошибки, а успешного выполнения
	Если Контрагент = Справочники.Контрагенты.ПустаяСсылка() Тогда
		ВоспроизвестиЗвукОшибки();
		Возврат;
	КонецЕсли;
	
КонецПроцедуры





#Область РаботаСоЗвуковымОповещением


&НаКлиенте
Процедура ПодключитьЗвукОшибки(ИмяФайлаЗвука = Неопределено)
	
	
	Попытка
		Если oVoice = Неопределено ИЛИ oSpFileStream  = Неопределено Тогда
			oVoice = Новый COMObject("SAPI.SpVoice");           
			oSpFileStream = Новый COMObject("SAPI.SpFileStream");
		КонецЕсли;
	Исключение 
		Возврат;
	КонецПопытки;
	
	Если ИмяФайлаЗвука = Неопределено Тогда
		ИмяФайлаЗвука = "ЗвукОшибки1";         /// ЗвукОшибки1 - это макет с двоичными данными с типом  .wav
	ИначеЕсли ИмяФайлаЗвука = "Голос" Тогда   /// "Голос" - это просто переменная, для воспроизведения голосом
		Возврат;
	КонецЕсли;
	
	ИмяФайла = КаталогВременныхФайлов() + ИмяФайлаЗвука + ".wav";
	ФайлНаДиске = Новый Файл(ИмяФайла);
    Если НЕ ФайлНаДиске.Существует() Тогда
		Звук = ПолучитьЗвукОшибки(ИмяФайлаЗвука);
		Звук.Записать(ИмяФайла);
	КонецЕсли;
	oSpFileStream.Open(ИмяФайла);
	
КонецПроцедуры

&НаСервере
Функция ПолучитьЗвукОшибки(ИмяФайла)
	Возврат Обработки.ПечатьКодовМаркировок.ПолучитьМакет(ИмяФайла);	
КонецФункции


&НаКлиенте
Процедура ВоспроизвестиЗвукОшибки(Текст = "")
	попытка
		Если oVoice = Неопределено ИЛИ oSpFileStream  = Неопределено Тогда
			Возврат;
		КонецЕсли;
		Если ИмяФайлаЗвука = "Голос" Тогда
			oVoice.Rate = 3 ;
			oVoice.Speak("Внимание!" + Текст,1);
		Иначе
			//oSpFileStream.Open(ИмяФайла);
			oVoice.SpeakStream(oSpFileStream,1);
			//oSpFileStream.Close();
		КонецЕсли;
	Исключение
	КонецПопытки;
КонецПроцедуры



#КонецОбласти



&НаКлиенте
Процедура ПриЗакрытии()

	Если НЕ oSpFileStream  = Неопределено Тогда
		Попытка
			oSpFileStream.Close();
		Исключение
		КонецПопытки;
	КонецЕсли;	
КонецПроцедуры