Процедура ЗапуститьПриложениеShell(Команда) Попытка Shell = Новый COMОбъект("Shell.Application"); Shell.ShellExecute(Команда, "", "", "open", 1); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; КонецПроцедуры //Пример...
COM-объекты, WMI, WSH
COM-объекты, WMI, WSH
// Переменная База - строка содержащая путь к базе 1С 7.7 // Возвращает переменную содержащую в себе...
WScript = Новый COMОбъект("WScript.Shell"); SpecialFolders = WScript.SpecialFolders; КаталогАвтозагрузки = SpecialFolders.item("AllUsersStartup"); ИмяФайлаСсылки = ПолучитьИмяФайла(КаталогАвтозагрузки, "1Cstart.lnk"); Shortcut = WScript.CreateShortcut(ИмяФайлаСсылки);...
Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL) СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer + (";UID=") +...
При разработке отчетов или обработок рано или поздно приходится сталкиваться с необходимостью определения имени локального диска, сменного...
Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) Экспорт МД = Новый Структура; Состояние("Подключение к " + КаталогИБ); V7 = Новый...
ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив; ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF"); ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF"); Попытка objShell = Новый COMОбъект("Shell.Application"); objFolder = objShell.Namespace(20); ПутьККаталогуШрифтов = objFolder.Items().Item().Path;...
V77 = Новый COMОбъект("V77M.Application"); Если V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда Сообщить("Успех"); Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")"); ДокОсн= V77.EvalExpr("CreateObject(""Документ"")"); Накл.ВыбратьДокументы(); Пока Накл.ПолучитьДокумент()=1 Цикл Номер=СокрЛП(Накл.НомерДок);...
App = Новый COMОбъект("Shell.Application"); // Дополнительные данные получаем так: // Название - App.Namespace(26).Title // Путь - App.Namespace(26).Self.Path...
//п_Текст - ТекстЗапроса... вернётся соответственно ТЗ Функция Прямой_запрос_к_jabber(п_Текст) Экспорт л_ТЗ = Новый ТаблицаЗначений; л_число_попыток = 0; л_Запрос_выполнен...
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe...
На Рабочем столе Shell = Новый COMОбъект("WScript.Shell"); РабочийСтол = Shell.SpecialFolders("Desktop"); Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk"); Ярлык.TargetPath =...
Процедура ЗаполнитьНажатие(Элемент) запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса ТаблицаВывода = Новый ТаблицаЗначений; ТаблицаВывода.Очистить(); ТаблицаВывода =...
Если это какая-нибудь обработка и запускается на клиенте(у пользователя) то можно использовать обработчик ожиданий у встроенных функций:...
// Пример 1 Сервер="IP-адрес-сайта"; // IP адрес сайта ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных ПарольСервера="пароль-пользователя-базы-данных"; // пароль...
// maharbA Функция Hex(Пар) Результат=""; Пока Пар>0 Цикл Результат=Сред("0123456789ABCDEF",Пар+1,1)+Результат; Пар=Цел(Пар/16) ; КонецЦикла; Возврат ""+Результат; КонецФункции Функция ПолучитьПринтерПоУмолчанию()...
Код //Подключается делает выборку прогоняет по циклу количество записей соответствует истине function dataload() { var v8=new ActiveXObject("V81.COMConnector");...
Данный пример работает для 1С Предприятия v8 и реализует соединение с ним через COM интерфейс посредство PHP...
Функция ПодключитьCOMОбъект(Путь) Экспорт Отказ = Ложь; COMСоединение = Новый COMОбъект("ADODB.Connection"); COMСоединение.ConnectionString = "....."; COMСоединение.ConnectionTimeOut = 1200; COMСоединение.CursorLocation...
//работает под толстым и тонким клиентами ремоте= Новый COMОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); ремоте= Новый COMОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); ремоте=СоздатьОбъект("rcbdyctl.setting"); Сообщить(ремоте.GetIpAddress); Подсказал:...