Всем привет !
Такая проблема: сделал dll, зарегил.
Создаю внешнюю обработку, подключаю dll, обращаюсь к ВК - все отлично ! Отрабатывает внешнее событие... НО, как только закрываю обработку и снова открываю - уже не отрабатывает ! почему ? приходиться только заново открывать 1с-клиент..
код обработки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
Перем ExtComponent;
//*******************************************
Процедура LoadComponent()
Попытка
Если ПодключитьВнешнююКомпоненту("AddIn.abez_decode") = 1 Тогда
Предупреждение("Component AddIn.DotNetAddIn successfuly loaded");
Иначе
Предупреждение("Error while loading AddIn.DotNetAddIn");
КонецЕсли;
Исключение
Предупреждение("Error while loading AddIn.DotNetAddIn");
КонецПопытки;
КонецПроцедуры
Процедура UnloadComponent()
Если ExtComponent <> Неопределено Тогда
ExtComponent.Done();
ExtComponent = Неопределено;
КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура GetExtEvent()
Попытка
ExtComponent = НОВЫЙ COMОбъект("AddIn.abez_decode");
Исключение
ExtComponent = Неопределено;
Предупреждение(ОписаниеОшибки());
КонецПопытки;
Если ExtComponent <> Неопределено Тогда
ExtComponent.TestExtEvent("DotNetAddInSample");
КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура ПриОткрытии()
LoadComponent();
КонецПроцедуры
Процедура ПриЗакрытии()
UnloadComponent();
КонецПроцедуры
//*******************************************
Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
Сообщить("Source = " + Источник + Символы.ПС +
"Event = " + Событие + Символы.ПС +
"Data = " + Данные);
КонецПроцедуры
Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
GetExtEvent()
КонецПроцедуры
а вот код dll
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
using System;
using System.Reflection;
using System.Runtime.InteropServices;
namespace AddIn
{
internal static class ExternalAddIn
{
internal static Object App; //Объект внешней компоненты
internal static IAsyncEvent ExtEvent; //Внешнее событие
}
[Guid(@"AB634001-F13D-11D0-A459-004095E1DAEA"),
InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IInitDone //Жизненно важный интерфейс
{
void Init([MarshalAs(UnmanagedType.IDispatch)] Object pConnection);
void Done();
void GetInfo([MarshalAs(UnmanagedType.SafeArray,
SafeArraySubType = VarEnum.VT_VARIANT)] ref Object[] pInfo);
}
[Guid("AB634004-F13D-11D0-A459-004095E1DAEA"),
InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IAsyncEvent
{
void SetEventBufferDepth(Int32 depth);
void GetEventBufferDepth(ref Int32 depth);
void ExternalEvent([MarshalAs(UnmanagedType.BStr)] String source,
[MarshalAs(UnmanagedType.BStr)] String message,
[MarshalAs(UnmanagedType.BStr)] String data);
void CleanBuffer();
}
[ComVisible(true), ProgId(@"AddIn.abez_decode"),
Guid(@"9F0CF3B4-B799-4852-8293-9BB9500A3098"),
ClassInterface(ClassInterfaceType.AutoDispatch)]
public class DotNetAddInSample : IInitDone
{
public DotNetAddInSample() { }
public void Init([MarshalAs(UnmanagedType.IDispatch)] Object pConnection) //Инициализация внешней компоненты
{
try
{
ExternalAddIn.App = pConnection;
ExternalAddIn.ExtEvent = (IAsyncEvent)pConnection;
}
catch
{
throw new COMException(@"Unknown object context");
}
}
public void Done() //Освобождение ресурсов при уничтожении экземпляра компоненты в 1С
{
ExternalAddIn.App = null;
ExternalAddIn.ExtEvent = null;
}
public void GetInfo([MarshalAs(UnmanagedType.SafeArray,
SafeArraySubType=VarEnum.VT_VARIANT)] ref Object[] pInfo)
{
pInfo[0] = @"2000";
}
public void TestExtEvent([MarshalAs(UnmanagedType.BStr)] String msg) //Метод компоненты, вызываемый в 1С
{
try
{
ExternalAddIn.ExtEvent.ExternalEvent(@"DotNetAddInSample", @"TestExtEvent", @"Test message for, " + msg + @" !");//Генерация внешнего события -- ВОТ ТУТ ВОЗНИКАЕТ ИСКЛЮЧЕНИЕ ПРИ ПОВТОРНОМ ОТКРЫТИИ..
}
catch
{
throw new COMException(@"!!!! Failed to execute TestExtEvent() method");
}
}
}
}
Что делать ? можно подключать Com-объект при запуске системы... Но как обработкой это делать ?
