activex » Поиск

Результаты по ключевому слову: activex

Как воспроизвести звуковой сигнал или проиграть звуковой файл в 1С?

Частенько бывает, что нужно оповестить или обратить внимание пользователя на оповещение звуком, вот несколько решений:

Стандартный вариант:

Синтаксис: Сигнал()

Описание: Воспроизводит звуковой сигнал. Устройство, воспроизводящее звук, а также характер звукового сигнала зависят от программно-аппаратного состава компьютера и звуковых установок ОС.

Недоступен на сервере 1С:Предприятие. Не используется в модуле внешнего соединения.

Код 1C v 8.3

 &НаКлиенте

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

   Сигнал();

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

С использованием внешних компонент:

Код 1C v 8.х

 // Способ №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"));

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

Категория: Полезные, Универсальные Функции

Отображение PDF файлов в 1С используя ActiveX Adobe PDF Reader

Часто при разработке какого-либо функционала в 1С мы делаем прикрепление файлов pdf.
Итак, Первым делом идет Выбор файла, далее нужно быстро просмотреть приложенный файл.
Для решения используются следующие варианты:
файл Выбирается по кнопке Выбор файла и помещается в Реквизит с типом Хранилище Значений

Код 1C v 8.х

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

	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

	Диалог.Заголовок = "Выберите файл";

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

	Фильтр = "Все файлы (*.*)|*.*";

	Диалог.Фильтр = Фильтр; 

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

		Попытка

			ПутьКВнешнемуФайлу = Диалог.ПолноеИмяФайла;

			СканФайл = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ПутьКВнешнемуФайлу));

			СканНазвание = СтрЗаменить(Диалог.ПолноеИмяФайла, Диалог.Каталог,"");

		Исключение

			СканНазвание = "ОШИБКА!";

			Сообщить(ОписаниеОшибки());

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

	КонецЕсли;  

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

Для открытия используем:
1. Открытие файла в программе Adobe Acrobat Reader
для этого используйте код:

Код 1C v 8.х

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

	ИмяМакета = СканФайл;	

	Если Прав(СканНазвание,3)="doc" или Прав(СканНазвание,3)="docx" Тогда

		Состояние("Идет печать в Word");

		УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);

	Иначе

		ИмяКаталога = КаталогВременныхФайлов();

		ИмяФайла = "vrem" + Формат(ТекущаяДата(),"ДФ=yyyyMMddhhmmss")+СокрЛП(Прав(СканНазвание,5));

		ИмяФайла = РаботаСФайлами.ПолучитьИмяФайла(ИмяКаталога, ИмяФайла);

		ДвоичныеДанные = ИмяМакета.Получить();

		Если ДвоичныеДанные = Неопределено Тогда

			Предупреждение("Не могу открыть файл, прикрепите новый внешний файл!");

		Иначе

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

			ЗапуститьПриложение(ИмяФайла);

		КонецЕсли; 

	КонецЕсли;  	

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

2. Добавляем на форму элемент ActiveX Adobe PDF Reader
для этого используйте код:

Код 1C v 8.х

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

	ИмяМакета = СканФайл;	

	Если Прав(СканНазвание,3)="doc" или Прав(СканНазвание,3)="docx" Тогда

		Состояние("Идет печать в Word");

		УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);

	Иначе

		ИмяКаталога = КаталогВременныхФайлов();

		ИмяФайла = "vrem" + Формат(ТекущаяДата(),"ДФ=yyyyMMddhhmmss")+СокрЛП(Прав(СканНазвание,5));

		ИмяФайла = РаботаСФайлами.ПолучитьИмяФайла(ИмяКаталога, ИмяФайла);

		ДвоичныеДанные = ИмяМакета.Получить();

		Если ДвоичныеДанные = Неопределено Тогда

			Предупреждение("Не могу открыть файл, прикрепите новый внешний файл!");

		Иначе

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

			// Вывод в элемент ActiveX Adobe PDF Reader

			ЭлементыФормы.PDFСканДоговор.LoadFile(ИмяФайла);

		КонецЕсли; 

	КонецЕсли;  	

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

Вот так это выглядит:
title

Категория: OLE, ActiveX

Управляем 1С со стороны используя web-сервис Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Проверка правописания и орфографии

Код 1C v 8.х

 ТекстДляПроверки = "Данный текст садержит как минемум три ошипки !";



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

   // Создадим объект MS Word, он должен быть установлен  

   Попытка

      Word = Новый COMОбъект("Word.Application");

   Исключение

      Предупреждение("Microsoft Word не установлен!",,"Ошибка!");

      Возврат;

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

   

   НетОшибок = Word.CheckSpelling(ТекстДляПроверки);

   Если НетОшибок Тогда // Все правильно  

      Сообщить("Нет ошибок");

   Иначе // текст содержит ошибки. Проверим каждое слово и выведем ошибочные.  

      Док = Word.Documents.Add(); // Создадим новый документ  

      Область = Док.Range(0,0); // Получим пустую область в начале документа  

      Область.I_nsertBefore(ТекстДляПроверки); // Добавим в документ текст  

      Для каждого Слово Из Область.Words Цикл

         СловоДляПроверки = СокрЛП(Слово.Text);

         НетОшибок = Word.CheckSpelling(СловоДляПроверки);

         Если НЕ НетОшибок Тогда // Слово ошибочно  

            // покажем возможные замены неправильного слова  

            СтрокаВариантов = "";

            // Получим варианты правописания  

            Варианты = Слово.GetSpellingSuggestions( ,1, ,0);

            Для каждого Вариант Из Варианты Цикл

               СтрокаВариантов = СтрокаВариантов + ", " + Вариант.Name;

            КонецЦикла;

            СтрокаВариантов = ". Варианты замены: " + Сред(СтрокаВариантов, 2);

            Сообщить("Ошибка в слове: " + СловоДляПроверки + СтрокаВариантов);

         КонецЕсли;

      КонецЦикла;

   КонецЕсли;

   Док.Close(0,,); // закроем документ без сохранения wdDoNotSaveChanges  

   Word.Quit(); // закроем Word  

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

Еще посмотрите ActiveX-компоненту, которая проверяет правописание текста.
Основана на технологии OpenOffice MySpell. Не требует установленного офиса.
В комплекте словари для 10 языков, включая русский (с "ё"). Автор: dushelov

Категория: Полезные, Универсальные Функции

Использование программы rundll32.exe в 1С Категория: COM-объекты, WMI, WSH

Как использовать элементы управления ActiveX?

Для вставки в диалог формы элемента управления ActiveX необходимо воспользоваться пунктом главного меню Форма Вставить ActiveX...
В открывшемся диалоге выбора отметим нужный нам объект, например Microsoft Media Player (для прослушивания музыкальных файлов, воспроизведения видеофайлов).

Определим имя элемента управления: WMP.
Кроме этого разместим в диалоге кнопку, при нажатии на которую будет вызываться обработчик события, содержащий приведенный ниже текст:

Код 1C v 8.х

 

Режим = РежимДиалогаВыбораФайла.Открытие;

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

ДиалогВыбораФайла.Фильтр 	= "Все файлы (все)|*.*";	

ДиалогВыбораФайла.Заголовок = "Выберите медиафайл";



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

	ПутьКМедиаФайлу = ДиалогВыбораФайла.ПолноеИмяФайла;

	// В зависимости от варианта объекта запись полного пути к файлу производится либо в свойство FileName, либо в свойство URL.

	Попытка

		ЭлементыФормы.WMP.FileName = ПутьКМедиаФайлу;

	Исключение	

		ЭлементыФормы.WMP.URL = ПутьКМедиаФайлу;

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

КонецЕсли;

В указанной процедуре большинство строк кода работают с объектом ДиалогВыбораФайла, позволяющим организовывать удобный диалог выбора файла.
Запуск выбранного файла производится кнопкой Воспроизведение/Play элемента управления WMP.

Категория: OLE, ActiveX

Подключение к 1С из JavaScript Категория: COM-объекты, WMI, WSH