// Пример 1 Сервер="IP-адрес-сайта"; // IP адрес сайта ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных ПарольСервера="пароль-пользователя-базы-данных"; // пароль...
COM-объекты, WMI, WSH
COM-объекты, WMI, WSH
// 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); Подсказал:...
Шелл=СоздатьОбъект("Shell.Application"); Место=Шелл.NameSpace(Путь); Сообщить(Место.GetDetailsOf(Место.ParseName(Файл),26)); А если картинка на интерне сайте, и нужно узнать ее высоту, то: ИЕ=CreateObject("InternetExplorer.Application"); ИЕ.Navigate("Aboutblank");...
РабДата=Лев(СокрЛП(РабочаяДата),10); //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10); НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10); МойЗапрос = " |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC,...
СтрокаПоиска="1c-ovec.ru" АдресПоиска="http://www.yandex.ru/yandsearch?text="+СтрокаПоиска; //Пример через COMОбъект ИЕ = Новый COMОбъект("InternetExplorer.Application"); ИЕ.Navigate(АдресПоиска); ИЕ.Visible = 1; Пока ИЕ.ReadyState4 Цикл ОбработкаПрерыванияПользователя();;...
// Глобальная переменная в которой будем хранить // известные нам типы статусов сетевой карты перем сзТипСтатуса; //...
Иногда необходимо подключиться к другим (не 1С-ным) БД на том же SQL. Вот примерный код такого подключения:...
спКомп = СоздатьОбъект("СписокЗначений"); Попытка ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl"); ScrptCtrl.Language="vbscript"; ScrptCtrl.AddCode(" |Function GetComputers() | Set WinNT = GetObject(""WinNT:"") | WinNT.Filter =...
Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение ИмяФайла = ПолучитьИмяВременногоФайла(".txt"); //строка-образец //http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1 //http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1 СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER"; СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ",""); Попытка //соединяемся...
Для работы с сетевыми ресурсами в WSH предназначен объект WshNetwork. Из "1С:Предприятие" можно напрямую управлять сетевыми ресурсами,...
ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl"); ScriptCtrl.Language = "vbscript"; ScriptCtrl.AddCode(" Function PlayS() | Set Wrap = CreateObject(""DynamicWrapper"") | Wrap.Register...
В системе "1С:Предприятие" часто возникает ситуация, когда нужно закрыть окно сообщений, появляющееся при вызове метода Сообщить. Стандартно...
Ниже приведено несколько способов получения списка баз 1С 7.7 из реестра: Код получения списка баз 1С 7.7...
Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp Данный код для 7.7, при использовании в...
Перем Значение; // В эту переменную запишем значение из реестра RegProv=ПолучитьCOMОбъект( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ); // Читаем значение ключа...