Иес! Спасибочки, сейчас запробую!


А что в не состав в 1cpp?

Arta писал(а) 12. Июля 2006 :: 06:26:

Если очень надо, можно и в 1С++.
Я там использовал реализацию ILanguageExtender а-ля CMyContextBase : CBLContext   в 1С++ (карты методов и свойств).
Так что технически это делается просто.

Добавлю: поскольку обработка событий в 1С идет в асинхронном режиме, следует соблюдать осторожность при использовании параметров, восстановленных из ссылки ObjRef, т.к. к тому времени, когда у 1С появится время обработать внешнее событие, объект может прекратить свое существование.

Кстати ObjRef-ссылку можно передать каким-либо образом на другую машину и провести там десериализацию .
При этом будет создано RPC-соединение к объекту .

ЗЫ: Я вот думаю, может добавить метод сериализовать для создания ObjRef-ссылок на произвольные объекты?

steban писал(а) 12. Июля 2006 :: 07:58:

Сделал. Изменил 1-й пост. Качать там-же.

Взято из admscript.chm

Const POPUP_DURATION = 10
Const OK_BUTTON = 0
Set objWSHShell = Wscript.CreateObject("Wscript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
objWMIService.InstancesOfAsync objSink, "Win32_NTLogEvent"
Error = objWshShell.Popup("Starting event retrieval", POPUP_DURATION, _
    "Event Retrieval", OK_BUTTON)
Sub SINK_OnCompleted(iHResult, objErrorObject, objAsyncContext)
    WScript.Echo "Asynchronous operation is done."
End Sub
Sub SINK_OnObjectReady(objEvent, objAsyncContext)
    Wscript.Echo "Category: " & objEvent.Category
    Wscript.Echo "Computer Name: " & objEvent.ComputerName
    Wscript.Echo "Event Code: " & objEvent.EventCode
    Wscript.Echo "Message: " & objEvent.Message
    Wscript.Echo "Record Number: " & objEvent.RecordNumber
    Wscript.Echo "Source Name: " & objEvent.SourceName
    Wscript.Echo "Time Written: " & objEvent.TimeWritten
    Wscript.Echo "Event Type: " & objEvent.Type
    Wscript.Echo "User: " & objEvent.User
End Sub

Попробовал отлавливать события изменения реестра - получилось.
[code]Перем Обработчик, ОбработчикСобытий;

Процедура ПриОткрытии()
     ЗагрузитьВнешнююКомпоненту("EventProxy.dll");
     ОбработчикСобытий=СоздатьОбъект("Addin.EventProxy");
     ОбработчикСобытий.ГлубинаБуфераСобытий=200;
     Обработчик=СоздатьОбъект("WbemScripting.SWbemSink");
     ОбработчикСобытий.Источник(Обработчик,"WbemScripting.SWbemSink","WMISink");
     personate}!\\.\root\default");
     objWMIServices.ExecNotificationQueryAsync(Обработчик,
     "Select * from RegistryValueChangeEvent Where
     |Hive = 'HKEY_LOCAL_MACHINE' and
     |KeyPath = 'SYSTEM\\ControlSet001\\Control' and
     |ValueName = 'CurrentUser'");
КонецПроцедуры      // ПриОткрытии

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
     Если (Источник="WMISink") и (Событие="OnObjectReady") Тогда
           Д=ЗначениеИзСтрокиВнутр(Данные);
           WMIObj=ОбработчикСобытий.ПолучитьОбъект(Д.ПолучитьЗначение(1));
           Сообщить(WMIObj.GetObjectText_());
     КонецЕсли;
КонецПроцедуры      // ОбработкаВнешнегоСобытия[/code]

А может параметры передавать Структурой/СЗ или еще каким вариантом?
Уж очень не хочется парсить строку, к ошибкам в итоге может приведет...

Погоди, погоди... Надо подумать тщательнее... Я уже столкнулся в ULE с передачей через "|" и славливал пару раз косяки.

Может и строка для СЗ... А не проще тогда сразу компонентой создавать СЗ и передавать его в качестве списка параметров?

У списка значения вроде есть ВСтрокуСРазделителями/ИзСтрокиСРазделителями, а радужные хейдеры вроде подключены. Хотя автору виднее.

steban
Может, вместо сериализации данные события сохранять в самом обработчике?
Например так:

// Данные - это ключ хэш-таблицы.
Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
	Если (Источник="Аутглюк") и (Событие="ItemSend") Тогда
		Письмо=ОбработчикСобытий.ПолучитьДанные(Данные);
		Сообщить(Письмо.Subject);
	КонецЕсли;
КонецПроцедуры	// ОбработкаВнешнегоСобытия  

Палыч писал(а) 12. Июля 2006 :: 13:12:

Очень удобный вариант! Я всеми руками за!

artbear писал(а) 12. Июля 2006 :: 14:13:

IAsyncEvent удобен тем, что содержит очередь событий. Нудобен тем, что всего один текстовый параметр и нет возможности вернуть источнику параметр, переданный по ссылке.
При написании сего в составе 1С++ (или как ВК по технологии Rainbow) возникает соблазн не использовать IAsyncEvent, а вызывать обработчик напрямую (с нужным количеством параметров нужных типов и с возможностью вернуть источнику параметры, переданные по ссылке).
Вот только я не представляю как поведет себя 1С при попытке выполнить код через CBLModule::CallAsFunc во время формирования какого-нибудь отчета. Событие ведь может возникнуть в любой момент.

Дык может другим потоком? Вроде реализовывали в 1cpp?

Другим потоком можно собирать данные и запихивать в очередь, но без обращения к 1С.
Но отправлять в 1С, видимо, нужно основным потоком...

"Ошибка при выполнении метода объекта компоненты"
По каким причинам может выдавать такое ?

Да я просто запускаю обработку "EventProxy.ert" - и сразу это получаю.
И еще: какой ProgID указать для 1С? Да и вообще: как применить эту ВК к 1С - к текущей БД, к другим?

Цитата:

А она есть?

Цитата:

Никак. 1С не генерирует событий при работе в качестве Automation-сервера.

Дык один хрен.

Цитата:

Кстати , Steban, в параллельной ветке на мой вопрос "выполнить процедуру/функцию у всех" ты мне ответил: "ВК для асинхронной обработки событий". Так что, круг замкнулся?

Цитата:

Не в сообшениях дело.
В глобальном модуле есть процедура ОбновитьТаблицу()
Нужно, чтобы при записи документа у любого пользователя (если в проыедуре ПриЗаписи есть команда), эта процедура запустилась у ВСЕХ активных пользователей. Вот и всё.
Казалось бы проще не бывает...

steban писал(а) 18. Сентября 2006 :: 09:21:



Чуть поподробней можно?

Ок! теперь все понятно!

InternetExplorer.Application почему-то не реализует интерфейс IProvideClassInfo
Следовательно получить имена событий компонента не может.

Вот так проходит без ошибок:

ЗагрузитьВнешнююКомпоненту("EventProxy.dll");
ЗагрузитьВнешнююКомпоненту("RBrowser.dll");

Браузер = СоздатьОбъект("RBrowser");
Браузер.Open("http://robert.by.ru");

Обработчик = Браузер.WebBrowser.Document;

ОбработчикСобытий = СоздатьОбъект("Addin.EventProxy");
ОбработчикСобытий.ГлубинаБуфераСобытий = 200;
ОбработчикСобытий.Источник(Обработчик, "RBrowser.Document.1", "RB"); 

... только почему-то никак не могу попасть в обработчик событий

А на кой? Не проще Активикс WebBrowser пользовать?

Перем Д;
Перем Скрипт;
Перем гРФорма;
//***************************************************************
//***************************************************************
Процедура ПриОткрытии()
	Форма.Заголовок("Проверка гарантийности Qtek");
КонецПроцедуры
//***************************************************************
//***************************************************************
Процедура ПослеОткрытия()
	Попытка
		_Форма = СоздатьОбъект("Форма");
		Д = _Форма.СоздатьЭлементУправленияНаФорме(Форма, СоздатьОбъект("АктивИкс"), "HTTP");
		Д.СоздатьЭУ("Shell.Explorer.2");
		Д.Объект.Visible = - 1;
		Д.Объект.Navigate2("http://service.myqtek.com/rmsLoginBPFI.asp", 4 + 8);
		Д.Объект.StatusBar = -1;
	Исключение
	КонецПопытки;
КонецПроцедуры
//***************************************************************
//***************************************************************
Процедура HTTP_DocumentComplete()
	Если (Д.Объект.Document.URL = "http://service.myqtek.com/rmsLoginBPFI.asp") И (Д.Объект.Document.ReadyState = "complete") Тогда
		Док = Д.Объект.Document;
		IMEI = Док.getElementsByName("txtIMEI");
		IMEI.item(0).Value = Форма.Параметр;

		Отправка = Док.getElementById("cmdSearch");
		Скрипт.Reset();
		Скрипт.AddObject("Отправка", Отправка);
		Скрипт.Eval("Отправка.click()");
	ИначеЕсли (Д.Объект.Document.URL = "http://service.myqtek.com/rmsVerifyIMEI.asp") И (Д.Объект.Document.ReadyState = "complete") Тогда
		Док = Д.Объект.Document;
		Если Найти(Д.Объект.Document.body.innertext, "The IMEI number was confirmed") > 0 Тогда
			Форма.Параметр = "QTEKBP";
		Иначе
			Форма.Параметр = "";
		КонецЕсли;
		Форма.Закрыть();
	КонецЕсли;
КонецПроцедуры
//***************************************************************
//***************************************************************
Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.Language = "javascript";
 

Arta писал(а) 27. Февраля 2007 :: 13:45:

Спасибо! Очень помогло.
Единственное намучался с установкой DataSource у грида... Пришлось через ж... делать...

	Грид = СоздатьОбъект("АктивИкс") ;
	АтрФормы.УстановитьАтрибут(Форма,"тАтрГрид");
	АтрФормы.СоздатьЭлементУправления(Грид);
	ОбъектГрид = Грид.СоздатьЭУ("MSDataGridLib.DataGrid.1");
	Грид.ОбработкаСобытий = 1;

	Данные = СоздатьОбъект("АктивИкс") ;
	АтрФормы.УстановитьАтрибут(Форма,"тАтрДанные");
	АтрФормы.СоздатьЭлементУправления(Данные);
	ОбъектДанные = Данные.СоздатьЭУ("MSAdodcLib.Adodc");
	Данные.ОбработкаСобытий = 1;
    
	ОбъектДанные.ConnectionString = "Driver={SQL Server};Server=(local); Database=prj1;Trusted_Connection=Yes;";
	ОбъектДанные.CommandType = 1;
	ОбъектДанные.RecordSource = "select * from table";
	ОбъектДанные.Refresh();

	Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
	Скрипт.Language="vbscript";
	Скрипт.AddObject("o1", ОбъектГрид);
	Скрипт.AddObject("o2", ОбъектДанные);
	Скрипт.ExecuteStatement("set o1.DataSource = o2");  

artbear писал(а) 28. Февраля 2007 :: 05:48:

Узрел 
На том сайте если проходит,  то гарантия БрайтПоинта, эта компания официально ввозит в Россию аппараты.
Кидай в аську имей, пробью аппарат

steban писал(а) 24. Февраля 2007 :: 13:59:

Добавлена поддержка объектов, не реализующих IProvideClassInfo.

Arta писал(а) 20. Марта 2008 :: 18:15:

все

А как использовать с ADODB.Connection?
           

ОбработчикСобытий=Новый ("Addin.EventProxy");
ОбработчикСобытий.ГлубинаБуфераСобытий=200;
Обработчик= Новый COMОбъект("ADODB.Connection");
Обработчик.ConnectionString = СтрокаПодключения;
Обработчик.ConnectionTimeout=0;
Обработчик.CursorLocation=3;
Обработчик.Open();
ОбработчикСобытий.Источник(Обработчик,"ADODB.Connection","ADO");
АсинхронныйОбъект=ОбработчикСобытий.ПолучитьОбъект(" ");  

Что передать в функцию ПолучитьОбъект чтобы вернуть объект?

Пытаюсь взлететь на 8.1

В данных по событию "ConnectComplete" получаю след строку  
{"S","0","0","0","0","0","???"},""}}}

В 8 список значений

ЗначениеВСтрокуВнутр(Новый СписокЗначение())="{""#"",4772b3b4-f4a3-49c0-a1a5-8cb5961511a3,
|{3,1e512aab-1b41-4ef6-9375-f0137be9dd91,0,0,
|{0},
|{""Pattern""}
|}
|}" 

Соотвественно ЗначениеИзСтрокиВнутр(Данные) всегда возвращает неопределенно.
Как всетаки получить объект ?

---

И примера метода Сериализовать тоже нигде не нашел

C нетерпением жду.

перем ИсточникСобытий, ОбработчикСобытий;

Процедура ПриОткрытии()
	ЗагрузитьВнешнююКомпоненту("EventProxy.dll");
	ОбработчикСобытий = СоздатьОбъект("Addin.EventProxy");
	ОбработчикСобытий.ГлубинаБуфераСобытий = 200;
	ИсточникСобытий = СоздатьОбъект("MyProxyServer.MyProxy");
	ОбработчикСобытий.Источник(ИсточникСобытий, "MyProxyServer.MyProxy", "Proxy");
КонецПроцедуры	// ПриОткрытии

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
	Сообщить(Источник + ": " + Событие + "('" + Данные + "')");
КонецПроцедуры
 

Вот этот код. Валится на вызове ОбработчикСобытий.Источник(...)
Ошибка при выполнении метода объекта компоненты EventProxy.dll

Мой объект создавался в Builder 2007 c помощью мастера (поскольку сам я в COM пока-что чайник), подозреваю что должно быть нормально все там с IProvideClassInfo, а даже если и нет, то все равно последняя версия EventProxy.dll должна работать...
Не подскажешь в какую сторону копать ?

Кто-нибудь делал с помощью этой компоненты подписку на событие отсоединения сессии на терминальном сервере? Поделитесь кодом, а то задолбался искать. Не получилось даже тест запустить (событие если нагрузка процессора больше 40%, и несколько других примеров):

	    ОбработчикСобытий = СоздатьОбъект("Addin.EventProxy");
	    ОбработчикСобытий.ГлубинаБуфераСобытий = 200;
	    Обработчик = СоздатьОбъект ( "WbemScripting.SWbemSink" );
	    ОбработчикСобытий.Источник ( Обработчик, "WbemScripting.SWbemSink", "WMISink" );
	    objWMIServices = ОбработчикСобытий.ПолучитьОбъект ( "winmgmts:{impersonationLevel=impersonate}!\\.\root\default" );
		т = "SELECT * from __InstanceModificationEvent WITHIN 2 WHERE TargetInstance ISA 'Win32_Processor' and TargetInstance.LoadPercentage > 40";
	    objWMIServices.ExecNotificationQueryAsync ( Обработчик, т ); 

пишет

objWMIServices.ExecNotificationQueryAsync ( Обработчик,
{Глобальный модуль(938)}: SWbemServicesEx: Недопустимый класс  

ВК супер. Пробовал ловить события от Skype4COM. Всё ловится замечательно. Только иногда 1С-ина падает. Пока непонятно почему. Использую платформу 8.1.

Вот набор функций для замены семерочного ЗначениеИзСтрокиВнутр

Функция ЗначениеИзСтрокиВнутр77(Стр)
     
     Список = РазобратьСтроку(Стр);
     Возврат ПреобразоватьДанныеСписка(Список);
КонецФункции

Функция ПреобразоватьДанныеСписка(Список)
     
     Если Список[0].Значение = "VL" Тогда
           
           Результат = Новый СписокЗначений;
           Для Каждого ЭлементСписка Из Список[1].Значение Цикл
                 
                 Данные = ПреобразоватьДанныеСписка(ЭлементСписка.Значение[0].Значение);
                 Результат.Добавить(Данные, ЭлементСписка.Значение[1].Значение);
           КонецЦикла;
     ИначеЕсли Список[0].Значение = "S" Тогда
           
           Результат = Список[6].Значение;
     ИначеЕсли Список[0].Значение = "N" Тогда
           
           Результат = Число(Список[6].Значение);
     КонецЕсли;
     Возврат Результат;
КонецФункции

Функция РазобратьСтроку(Знач Стр)
     
     Стр = Сред(Стр, 2, СтрДлина(Стр) - 2);
     Список = Новый СписокЗначений;
     
     Пока СтрДлина(Стр) > 0 Цикл
           Поз = НайтиРазделитель(Стр);
           Символ = Сред(Стр, Поз, 1);
           
           Если Символ = "," Тогда
                 Список.Добавить(Сред(Стр, 2, Поз - 3));
                 Стр = Сред(Стр, Поз + 1);
           ИначеЕсли Символ = "{" Тогда
                 // Ищем равное количество открывающих и закрывающих скобок
                 Открывающих = 1;
                 Закрывающих = 0;
                 Поз2 = Поз + 1;
                 Пока Открывающих <> Закрывающих Цикл
                       
                       Символ = Сред(Стр, Поз2, 1);
                       Если Символ = "{" Тогда
                             Открывающих = Открывающих + 1;
                       ИначеЕсли Символ = "}" Тогда
                             Закрывающих = Закрывающих + 1;
                       КонецЕсли;
                       Поз2 = Поз2 + 1;
                 КонецЦикла;
                 Список.Добавить(РазобратьСтроку(Сред(Стр, Поз, Поз2 - Поз)));
                 Стр = Сред(Стр, Поз2);
                 Если Лев(Стр, 1) = "," Тогда
                       Стр = Сред(Стр, 2);
                 КонецЕсли;
           Иначе
                 Список.Добавить(Сред(Стр, 2, СтрДлина(Стр) - 2));
                 Стр = "";
           КонецЕсли;
     КонецЦикла;
     Возврат Список;
КонецФункции

Функция НайтиРазделитель(Стр)
     
     Для Поз = 1 По СтрДлина(Стр) Цикл
           
           Символ = Сред(Стр, Поз, 1);
           Если Символ = "," ИЛИ Символ = "{" Тогда
                 Возврат Поз;
           КонецЕсли;
     КонецЦикла;
     Возврат 0;
КонецФункции



Еще одна проблема - при попытке использования XMLHTTP восьмерка слетает совсем. Семерка выдает сообщение

Код для 8-ки

Соединение = Новый COMОбъект("Microsoft.XMLHTTP");
ПодключитьВнешнююКомпоненту("Addin.EventProxy");
ОбработчикСобытий = Новый ("Addin.EventProxy");
ОбработчикСобытий.ГлубинаБуфераСобытий = 200;
ОбработчикСобытий.Источник(Соединение,"Microsoft.XMLHTTP","XMLHTTP");

Сори. Не знаю как выделить код.