Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / [игнор отключен] [закрыт для гостей] / Внешняя компонента. Не срабатывает IAsyncEvent.ExternalEvent / 3 сообщений из 3, страница 1 из 1
05.04.2012, 12:41
    #37740041
Papadopulos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Внешняя компонента. Не срабатывает IAsyncEvent.ExternalEvent
Добрый день.

Изучаю стандартную тестовую внешнюю компоненту. Скомпилировал в Delphi 2007, подключил, все работает, страница свойств появляется..
Один недостаток есть - 1С никак не реагирует на вызовы ExternalEvent.

Что здесь не так? Внешние вызовы мне нужны для разработки своей компоненты.

1С 8.1.14.72

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
function TAddInObject.put_Enabled(IsEnabled : Integer): HResult; stdcall;
begin
     boolIsEnabled := IsEnabled;
     if (boolIsEnabled = 0) then
       pEvent.ExternalEvent('Компонента','Включение','0')
       else pEvent.ExternalEvent('Компонента','Включение','1');
     put_Enabled := S_OK;
end;

procedure TAddInObject.OnMyTimer(Sender: TObject);
begin
     if (pEvent <> nil)then
       pEvent.ExternalEvent('Компонента','Таймер',FormatDateTime('hh:mm:ss',Time));
end;



Код: pascal
1.
2.
3.
Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
	Сообщить("Получено сообщение извне: " + Источник + Событие + Данные);
КонецПроцедуры
...
Рейтинг: 0 / 0
11.04.2012, 10:12
    #37747986
shurikvz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Внешняя компонента. Не срабатывает IAsyncEvent.ExternalEvent
Papadopulos
Код: pascal
1.
2.
3.
Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
	Сообщить("Получено сообщение извне: " + Источник + Событие + Данные);
КонецПроцедуры



Как создавали процедуру? Этот обработчик сопоставлен с формой (в свойствах формы), или просто в модуле формы код написан?
...
Рейтинг: 0 / 0
11.04.2012, 16:18
    #37748922
Papadopulos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Внешняя компонента. Не срабатывает IAsyncEvent.ExternalEvent
shurikvz, этот код был просто в модуле формы написан. Связал с событием, заработало.
Спасибо!
...
Рейтинг: 0 / 0
Форумы / [игнор отключен] [закрыт для гостей] / Внешняя компонента. Не срабатывает IAsyncEvent.ExternalEvent / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]