EventProxy - ВК для асинхронной обработки событий COM-объектов.

Содержит единственный объект [b]EventProxy[/b].

Свойства:
[list][*][b]ГлубинаБуфераСобытий[/b](EventBufferDepth) - глубина буфера событий интерфейса IAsyncEvent
[*][b]ГлобальныйКонтекст[/b](GlobalContext) - собственно он и есть[/list]

Методы:
[list][*][b]Источник[/b] (Source)  Устанавливает источник событий.
  параметры:
  [list][*]Источник - собственно источник событий.
  [*]ProgID - ProgID источника (По этому ProgID определяются DISPID и имена событий)
  [*]ИмяИсточника - имя источника событий, как оно будет передано в процедуру ОбработкаВнешнегоСобытия[/list]
[*][b]ПолучитьОбъект[/b] (GetObject)
  передает свой единственный параметр в ф-ю CoGetObject и возвращает полученный объект
  (аналог GetObject в VB)
[*][b]Сериализовать[/b]
  сериализует переданный параметр при помощи ObjRefMoniker[/list]

При вызове метода "Источник", EventProxy подписывается на события источника.
При получении события оно передается в 1С через IAsyncEvent.
В процедуре [i]ОбработкаВнешнегоСобытия(Источник, Событие, Данные)[/i]
аргумент [i]"Данные"[/i] содержит сериализованный список значений с параметрами события.
Для десериализации параметров события необходимо вызвать функцию ЗначениеИзСтрокиВнутр(Данные).
Параметры с типом VT_DISPATCH сериализуются при помощи ObjRefMoniker и могут быть десериализованы
методом [i]"ПолучитьОбъект"[/i].

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

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

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

Принимаются предложения как покрасИвше реализовать сериализацию параметров (чтобы было легко разбирать строку).
А также чтобы обойти грабли с параметрами типа строка, в которой встречается разделитель "|"

Кстати, метод ПолучитьОбъект можно использовать и не по назначению .
Например так:

Док=ОбработчикСобытий.ПолучитьОбъект("ПрайсЛист.xls") 

или так:

6:") 

или даже так:

Стек=ОбработчикСобытий.ПолучитьОбъект("dm.net:['mscorlib']System.Collections.Stack") 

последний вариант заработает если установить dm.net COM Moniker

Т.е. можно обрабатывать события WMI в в 1С коде?

jbond писал(а) 12. Июля 2006 :: 08:07:

Наверное..... покажи как это делается в нормальных языках....

Const POPUP_DURATION = 120
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.ExecQueryAsync objSink, "Select * from CIM_DataFile"
objPopup = objWshShell.Popup("Starting event retrieval", _
    POPUP_DURATION, "Event Retrieval", OK_BUTTON)
Sub SINK_OnObjectReady(objEvent, objAsyncContext)
    Wscript.Echo objEvent.Name
End Sub

     

steban писал(а) 12. Июля 2006 :: 06:27:

Ну что никаких идей?
Может что-нибудь типа MIME?

Arta писал(а) 12. Июля 2006 :: 10:02:

HRESULT ExternalEvent(BSTR bstrWho, BSTR bstrWhat, BSTR bstrData) 

Так определен интерфейс IAsyncEvent и я тут ничего поделать не могу.
Все параметры нужно утрамбовать в одну строку с возможностью получить их значения из этой строки (а возможно и имена). Так что структура не подойдет.

Может попробовать в таком формате, чтобы потом можно было сделать

СписокПараметров=ЗначениеИзСтрокиВнутр(Данные) 

?