&НаКлиенте

Процедура Команда(Команда)

   Сигнал();

КонецПроцедуры   

 // Способ №1

файлз = "C:\1.wav";

Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");

Скрипт.Language="vbscript";

Скрипт.AddCode("

                    |Function Main()

                    |Set oVoice = CreateObject(""SAPI.SpVoice"")

                    |set oSpFileStream = CreateObject(""SAPI.SpFileStream"")

                    |oSpFileStream.Open """+файлз+"""

                    |oVoice.SpeakStream oSpFileStream

                    |End Function");

Скрипт.Run("Main");

 

// Способ №2

файлз = "C:\1.wav";

oVoice = Новый COMObject("SAPI.SpVoice");

oSpFileStream = Новый COMObject("SAPI.SpFileStream");

oSpFileStream.Open(файлз);

oVoice.SpeakStream(oSpFileStream);

oSpFileStream.Close();





// Способ №3

файлз = "C:\1.wav";

DynamicWrapper = Новый COMОбъект("DynamicWrapperX");

DynamicWrapper.Register("winmm.dll", "sndPlaySoundA", "i=su");

DynamicWrapper.sndPlaySoundA(файлз, 1);





// Способ №4

// Проигрыватель - это ActiveX компонента "Windows Media Player"

Процедура КнопкаВыполнитьНажатие(Кнопка) 

   ПроигратьЗвук("D:\Звуки\123.wav"); 

КонецПроцедуры 





Процедура ПроигратьЗвук(Путь) 

   Попытка 

       ЭлементыФормы.Проигрыватель.settings.autostart = Истина; 

       ЭлементыФормы.Проигрыватель.settings.volume = 100; 

       ЭлементыФормы.Проигрыватель.URL = Путь; 

   Исключение 

   КонецПопытки; 

КонецПроцедуры





// Способ №5

// при помощи html-тега bgsound, на форме должен быть элемент Поле HTML документа

&НаКлиенте

Процедура ВоспроизвестиMP3()

   мФайл = ПолучитьАдресФайла();

 

   ПолеHTML = "

   | <HTML>

   | <BODY scroll='no'>

   | <BGSOUND id='sound_think' balance=0 volume='-1000'></BGSOUND>

   | <div id=paperRaphael></div>

   | <script>

   | function PlaySound() {

   | if (!window.HTMLAudioElement) {

   | document.all.sound_think.volume=0; 

   | document.all.sound_think.src = '"+мФайл+"';

   | }

   | }

   | window.onload = function(){

   | PlaySound();

   | }

   | </script>

   | </BODY>

   | </HTML>";

КонецПроцедуры

 

&НаСервере

Функция ПолучитьАдресФайла()

   Возврат ПоместитьВоВременноеХранилище(Обработки.ЗвукВ1С.ПолучитьМакет("sound"));

КонецФункции   

 // Перекодировка файла из кодировки UTF-8 в ANSI.

// Будет создан файл в кодировке ANSI в этом же каталоге 

// с суффиксом "_ansi" .

// параметры:

// каталогФайла - Каталог где лежит файл без символа "\" на конце

// файлUTF8 	- имя файла для конвертации

Функция ПерекодироватьФайлUTF8_ANSI(каталогФайла, файлUTF8)



	  исходныйФайл = каталогФайла + "\" + файлUTF8;

	  файлЧтение  = Новый ЧтениеТекста(исходныйФайл,КодировкаТекста.UTF8);    

	  txt=файлЧтение.Прочитать();

	  файлЧтение.Закрыть();



	  ФайлANSI = СтрЗаменить(файлUTF8,".","_ansi.");

	  результатФайл  =  каталогФайла + "\" + ФайлANSI;

	  файлЗапись = Новый ЗаписьТекста(результатФайл,КодировкаТекста.ANSI);    

	  файлЗапись.Записать(txt);

	  файлЗапись.Закрыть();

	  

      Возврат ФайлANSI;

КонецФункции



// Запуск 

каталогCSV   = "d:\csv";

файлCSV      = "export_file_.csv"; // в utf-8

файлCSV_ansi = ПерекодироватьФайлUTF8_ANSI(каталогCSV,файлCSV);   

 Процедура ДействияФормыВыгрузка(Кнопка)



    ДиалогФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

    ДиалогФайла.Фильтр = "Файл данных (*.xml)|*.xml";

    ДиалогФайла.ПолноеИмяФайла = "Retail_"+СтрЗаменить(Формат(Дата,"ДФ=dd.MM.yyyy"),".","-");

    Если ДиалогФайла.Выбрать() Тогда

        ИмяФайла = ДиалогФайла.ПолноеИмяФайла;

        Попытка

            ВыгрузитьДанные(ИмяФайла);

            ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);

            ДвоичныеДанные.Записать(ИмяФайла);

        Исключение

            Предупреждение("Внешний файл не сохранен

            |"+ОписаниеОшибки());

        КонецПопытки;

    КонецЕсли;



КонецПроцедуры



// процедура выгрузки 

Процедура ВыгрузитьДанные(ИмяФайлаОбмена)



    Обработка=Обработки.УниверсальныйОбменДаннымиXML.Создать();

    Обработка.РежимОбмена="Выгрузка";

    ВремФайл = ПолучитьИмяВременногоФайла("xml");

    МакетПравилОбмена = ПолучитьМакет("ПравилаВыгрузки");

    МакетПравилОбмена.Записать(ВремФайл);

    Обработка.ИмяФайлаПравилОбмена = ВремФайл;//ФайлПравилОбмена;

    Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;

    Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

    Обработка.ЗапоминатьЗагруженныеОбъекты = Истина;

    Обработка.ИспользоватьОтборПоДатеДляВсехОбъектов = Истина;

    СписокДок = Новый Массив;

    Для каждого Стр Из Документы Цикл

        Если НЕ Стр.Флаг Тогда

            Продолжить;

        КонецЕсли;

        СписокДок.Добавить(Стр.Реализация);

    КонецЦикла;

    Обработка.ДатаНачала = Дата;

    Обработка.ДатаОкончания = КонецДня(Дата);

    Обработка.ВыгружатьТолькоРазрешенные = Истина;

    Обработка.ИмяФайлаОбмена = ИмяФайлаОбмена;

    Обработка.ТипУдаленияРегистрацииИзмененийДляУзловОбменаПослеВыгрузки = 0; // 0 - не снимать регистрацию, 1 - снимать регистрацию

    Обработка.ЗагрузитьПравилаОбмена();

    Обработка.Параметры.Вставить("Документы",СписокДок);

    Обработка.ВыполнитьВыгрузку();



КонецПроцедуры   

  ОбработкаОбмена = Обработки.УниверсальныйОбменДаннымиXML.Создать();

    ОбработкаОбмена.ИмяФайлаОбмена = ФайлЗагрузки;

    ОбработкаОбмена.РежимОбмена = "Загрузка";

    ОбработкаОбмена.ОткрытьФайлЗагрузки(Истина);

    ОбработкаОбмена.АрхивироватьФайл = Ложь;;

    ОбработкаОбмена.ВыполнитьЗагрузку();

    ОбработкаОбмена = Неопределено;