gifts2017

Внешняя компонента - Показать сообщение в трэе

Опубликовал zaverax (zaverax) в раздел Программирование - Внешние компоненты

Простая ВК для отображения сообщений в системном трэе

использование

 

Перем ВК;
Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    ВК.ShowTray(Заголовок,Сообщение,150);
КонецПроцедуры

Процедура ПриОткрытии()
    // Вставить содержимое обработчика.
    Попытка
     ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"\vkshow.dll");
ВК = Новый("AddIn.vkshow");

Исключение
Сообщить("Компонента " + КаталогПрограммы() + "\vkshow.dll Не загружена");
КонецПопытки;
КонецПроцедуры


Скачать файлы

Наименование Файл Версия Размер
vkshow.dll - исправленная версия 104
.1251278204 183,79Kb
30.11.14
104
.1251278204 183,79Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Den (dance000) 19.06.09 09:02
Большое спасибо, кстати давно думал чем выводить оповещения для 1С аськи, если 1С свернуто. А можно ли сделать окошки другого вида или размера?
2. zaverax (zaverax) 19.06.09 09:31
3. Евгений Люлюк (Evg-Lylyk) 19.06.09 09:33
Очень нужно чтобы в трей выводилось только если неактивно окно 1С
4. Евгений Люлюк (Evg-Lylyk) 19.06.09 09:34
Еще бы размер DLL уменьшить почему такая большая?
5. Андрей Скляров (coder1cv8) 19.06.09 09:49
А чем AutoIt не устраивает?... Там есть это и многое другое...
И состояние окна, кстати, можно определить.
6. Евгений Люлюк (Evg-Lylyk) 19.06.09 10:14
(5) да я его и использую, но только проверка активного окна и вывод в трей так что можно и сменить на эту
7. Саня Пупкин (pupkinSana) 19.06.09 14:14
Так-то прикольно. но когда в ХРюше нажимаешь свернуть все окна, сообщение с треем тоже сворачивается...А это не есть хорошо.
9. dushelov (Душелов) 19.06.09 16:19
(5) Кстати, AutoIt не всегда выводит. На одних машинах выводит, на других нет. Закономерности не нашел.
10. Олег Пономаренко (O-Planet) 19.06.09 16:26
(0) Недавно видел заказ на эту ВК на фрилансе... Не ты его случайно сделал? ;)
11. Андрей 1 (andrej260276) 19.06.09 19:07
Очень полезная ВК, спасибо!
12. Анна (klan) 25.06.09 15:51
13. Андрей (vvS@m) 25.06.09 17:51
Спасибо за компоненту. Плюс поставил. Только не понятно про интервал, что ноль, что любое другое - интервал показа один. И еще - при закрытии конфига, в трее остается значок. Чтоб он убрался - надо мышкой по нему просто провести, тогда уберется. Если пользователь открывает и закрывает несколько раз конфиг - значки в трее просто плодятся. Думаю, выход - добавить оператор (команду) выгрузки компоненты.
А так - нужная вещь!!! Спасибо! И если будет в компоненте больше функций, хорошо бы сделать als, описаловку. Новая дополненная версия если выйдет, думаю, обрадуюсь не только я.
14. zaverax (zaverax) 28.06.09 17:45
подправил по 13 комменту ;)
15. Алексей Башта (bashta.aleksey) 04.07.09 18:14
Спасибо.
(14) в трее остается значок если несколько раз перезапускать 1С в режиме отладки.
У сообщений можно задавать заголовок кроме 1С.
16. zaverax (zaverax) 04.07.09 19:07
<У сообщений можно задавать заголовок кроме 1С

нет
17. Ivon (Ivon) 24.07.09 17:03
При выводе сообщения вместо русского текста знаки вопроса. Я бы полученный текст преобразовывал в UTF8. Тогда у всех русские буквы были бы одинаково. Система Windows 7 x64 Eng
18. Ivon (Ivon) 24.07.09 17:18
Обновленный модуль версии 2 на Windows 7 вообще ничего не выводит...
19. Николай (betepon) 21.08.09 15:49
Обновленный модуль версии 2 на Windows XP c 1C v 8.1 выводит значек в трей но ничего не показывает.
20. Николай (betepon) 21.08.09 16:57
использовал так

Процедура ПриОткрытии()
Попытка
ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"\vkshow.dll");
ВК = Новый("AddIn.vkshow");
ВК.ShowTray("Компонента " + КаталогПрограммы() + "\vkshow.dll Загружена");
Исключение
Сообщить(""Компонента " + КаталогПрограммы() + "\vkshow.dll Не загружена");
КонецПопытки;
КонецПроцедуры
21. zaverax (zaverax) 21.08.09 18:33
betepon
на вход функции Showtray нужно подать 3 параметра...
ВК.ShowTray(<Title>,<Message>,<TimeOut>)
Пример:
ВК.ShowTray("Загрузка","Компонента " + КаталогПрограммы() + "\vkshow.dll Загружена",10)
22. zaverax (zaverax) 21.08.09 18:47
на Windows 7 не тестил...ибо такую ОС пока еще наставил...
23. Николай (betepon) 24.08.09 14:45
ПутьККомпоненте = КаталогПрограммы() + "\vkshow.dll";
Попытка
ЗагрузитьВнешнююКомпоненту(ПутьККомпоненте);
ВК = Новый ("AddIn.vkshow");
BK.ShowTray("Загрузка","Компонента " + ПутьККомпоненте + "Загружена",10);
Исключение
Сообщить("Не удалось загрузить компоненту: " + ПутьККомпоненте );
КонецПопытки;

При выполнении строчки
ЗагрузитьВнешнююКомпоненту(ПутьККомпоненте);
1С вылетает без объяснения причин. Версия 1С 8.1.12.98
24. Епрст (Ёпрст) 24.08.09 14:51
(23) КаталогПрограммы уже идёт с "\" на конце... это для начала...
25. Николай (betepon) 24.08.09 14:58
(24) Не важно. Делал и так и так (кстати надо обратить внимание на пример).
26. Николай (betepon) 26.08.09 11:37
Сменил версию платформы на 1С 8.1.14.72

При выполнении строчки
ЗагрузитьВнешнююКомпоненту(ПутьККомпоненте);
1С вылетает без объяснения причин

ПутьККомпоненте = "C:\Program Files\1cv81\bin\vkshow.dll"

Следует обратить внимание на то, что если-бы попытка не удалась, тогда сработало бы исключение. (23)
Однако исключение не срабатывает (не успевает). 1С просто завершает работу при вызове внешней компоненты.
27. zaverax (zaverax) 26.08.09 13:18
Перекомпилировал и теперь работает...
28. Николай (betepon) 26.08.09 16:06
1С больше не вылетает.
Подключение проходит штатно.
В трее появляется значек 1С ...
И ВСЕ...

Какие-бы сообщения не отправлялись и какой-бы таймаут не выставлялся. Сообщения не появляются.
Для контроля подключил Вашу обработку.
Эффект тот-же.

Может в системе не хватает какой-то библиотеки?
29. zaverax (zaverax) 02.09.09 20:05
<Может в системе не хватает какой-то библиотеки?

Операционка какая?
30. Николай (betepon) 04.09.09 11:29
31. zaverax (zaverax) 04.09.09 12:23
значит глюк у тебя какой-то...никаких дополнительный библиотек не надо...только стандартный набор операционки...
32. Николай (betepon) 07.09.09 10:33
Проверил на разных машинах.
Эффект одинаковый. На всех машинах стоит Win XP Alternative SP3
33. dushelov (Душелов) 07.09.09 11:11
(32) Попробуй мою http://infostart.ru/projects/3277/
Если не заведется, то дело в системе...
34. Николай Турищев (winsnik) 11.01.10 08:48
Как быть???
Пишет что в строке "ВК = Новый("AddIn.vkshow");"
процедура вызывается как функция... И все больше ничего...
35. Yevgen Yuschenko (yus12) 14.10.11 15:04
А можно посмотреть скрин работы компоненты?
36. Владислав Ентц (vladen) 03.04.12 10:47
хм... / а что может быть причиной ошибки "Ошибка при загрузке внешней компоненты" при открытии обработки???
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа