[Мониторинг изменения файлов] - ActiveX-компонента для 1С 8.х + ВК для 7.7
Администрирование - Мониторинг
Бесплатные
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО
| Наименование | Скачано | Бесплатно |
|---|---|---|
|
-
.1236256555 19,13Kb
363
|
363 | Скачать бесплатно |
|
ВК для 7.7
.1236928929 20,25Kb
185
|
185 | Скачать бесплатно |
Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Насколько я знаю, подобная ВК есть, но...
Т.к. в 8-ке в контексте сервера нет возможности использовать внешние компоненты в стандартном представлении 1С, то пришлось написать аналог в виде ActiveX, который прекрасно работает в серверном режиме (т.е. регламентные и прочие задания).
*** Для работы компоненты потребуется установленный Microsoft .NET Framework 2.0, который можно скачать отсюда.
Чтобы зарегистрировать компоненту в Windows - запустить reg.bat
(для удаления информации о компоненте в Windows - запустить unreg.bat)
или использовать совместно с хранилищем внешних компонент: //infostart.ru/projects/2863/
*** Использование в 1С 8.х:
v8: Меню "Форма" - "Вставить ActiveX..." - Выбрать элемент "Душелов.FileWatcher" или Новый COMObject("Душелов.FileWatcher");
*** Использование в 1С 7.7:
Перем Мониторинг;
ИмяВК="AddIn.FileWatcher";
Попытка
ПодключитьВнешнююКомпоненту(ИмяВК);
Исключение
Сообщить("Не удалось подключить компоненту "+ИмяВК);
КонецПопытки;
Попытка
Мониторинг = СоздатьОбъект(ИмяВК);
Исключение
Сообщить("Ошибка создания объекта внешней компоненты: "+ ИмяВК);
КонецПопытки;
СИНТАКСИС:
*** Контекст компоненты:
*** Методы:
Работа с элементами мониторинга:
- Добавить(ИмяЭлемента); //возвращает объект типа "Элемент мониторинга"
- Удалить(ИмяЭлемента);
- УдалитьВсе();
- Получить(ИндексЭлемента);
- ПолучитьПоИмени(ИмяЭлемента);
- Количество();
*** События ActiveX:
- ПриСоздании(ИмяЭлемента, ИмяФайла, Путь)
- ПриИзменении(ИмяЭлемента, ИмяФайла, Путь)
- ПриУдалении(ИмяЭлемента, ИмяФайла, Путь)
- ПриПереименовании(ИмяЭлемента, ИмяФайла, Путь, СтароеИмяФайла, СтарыйПуть)
*** Внешнее событие ВК:
- Источник = "FileWatcher"
- Событие (ПриСоздании, ПриИзменении, ПриУдалении, ПриПереименовании, Ошибка)
- Данные (ИмяЭлемента + ИмяФайла + Путь), при переименовании еще "СтароеИмяФайла + СтарыйПуть"
*** Элемент мониторинга:
*** Параметры:
- Имя //только чтение, имя элемента
- Активирован //булево, запуск и остановка мониторинга
- Фильтр //строка фильтра, используемая для определения файлов, контролируемых в каталоге
- ФильтрИзменений //типы отслеживаемых изменений
(Атрибуты, ВремяСоздания, ИмяКаталога, ИмяФайла, Доступ, Модификация, Безопасность, Размер) - Путь //контролируемый каталог
Вступайте в нашу телеграмм-группу Инфостарт
См. также
Мониторинг Системный администратор Бухгалтерский учет 7.7 1C77 Россия Абонемент ($m)
Данная обработка является аналогом системного монитора активных пользователей, но позволяет просматривать активных пользователей в N базах(перечень интересующих баз прописывается в ini-файле). Имеется возможность просмотреть какие(из списка) базы загружены на конкретном ПК.
1 стартмани
17.09.2010 14084 137 RinGo 15
Т.к. в 8-ке в контексте сервера нет возможности использовать внешние компоненты в стандартном представлении 1С, то пришлось написать аналог в виде ActiveX, который прекрасно работает в серверном режиме (т.е. регламентные и прочие задания).
то есть например... я "плюнул" сообщение, оно "стало" в очередь (где-то в виндах"), по факту появления данного сообщения в очереди в запущенных экземплярах 1ски генерится внешнее событие....
или меня не туда несет?
В свой файлик записал сообщение - все, у кого открыты обработки увидели, что файлик изменен и давай его кучно читать :)
Так и не удалось запустить ЭТОТ!
Перем Мониторинг;
// ==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==
Процедура ПриОткрытии()
ЗагрузитьВнешнююКомпоненту("FileWatcher.dll");
Попытка
Мониторинг = СоздатьОбъект("AddIn.FileWatcher");
Исключение
Сообщить("Ошибка создания объекта внешней компоненты: FileWatcher");
КонецПопытки;
ЭлемМониторинга = Мониторинг.Добавить("ПапкаФТП");
ЭлемМониторинга.Фильтр = "*@cbd.zip";
ЭлемМониторинга.Путь = "N:\Base\Obmin\";
//ЭлемМониторинга.ФильтрИзменений = "";
ЭлемМониторинга.Активирован = 1;
КонецПроцедуры // ПриОткрытии
// ==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==
// - Источник = "FileWatcher"
// - Событие (ПриСоздании, ПриИзменении, ПриУдалении, ПриПереименовании, Ошибка)
// - Данные (ИмяЭлемента + ИмяФайла + Путь), при переименовании еще "СтароеИмяФайла + СтарыйПуть"
//
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные);
Сообщить("ОбработкаВнешнегоСобытия: "+Источник);
Если Источник = "FileWatcher" Тогда
Сообщить("Событие "+Событие);
Сообщить("Данные "+Данные);
КонецЕсли;
КонецПроцедуры
ПоказатьВылетает с ошибкой:
ЭлемМониторинга = Мониторинг.Добавить("ПапкаФТП");
{N:\COPYCB\EXTFORMS\МОНИТОРИНГФТП.ERT(13)}: Поле агрегатного объекта не обнаружено (Добавить)
Есть рабочий вариант от Romix-а, НО - проблема в том, что какой именно файл создан у него не видно, нужно парсить папку.
Спасибо.
Есть пример клиентов для 7.7 и 8.1
В примерах есть все команды, кроме одной, ее просто не успел включить:
КлиентСобытий.ОтправитьПриватно(Ник, Текст)
На базе этого сервера можно сделать чат (в примере он таким и является), а так же всякие выгонялки, оповестелки и прочее.
ОбработкаОжидания - отметаем сразу, ради того чтобы обработать событие которое может быть раз в 2 часа (а может раз в 10 минут) - постоянно крутить ожидание - это какое-то извращение! Я хочу, чтобы, работая в базе, мне извне "генерилось" событие - и вот когда оно пришло - вот тогда я и сделаю что надо... так вот - единственное решение придложил Садовников - чат по ссылке как раз и является примером.. Но! там тоже не все гламурно!
...
и вот еще: соответсвенно, работая в ИБ, я хочу иметь "глобальный" обработчик событий (независимо от того в какой я форме нахожусь) - как я понял из беседс Василием - это можно сделать активиксом, но для него надо держать постоянно открытой форму... - тоже изврат...
..
так вот.. еще один вариант - но смотрел только поверхностно (ибо не спец) - чат может быть построен на очереди сообщений виндов (но для этого добен нужен...)
Сервер с портом по умолчанию. Клиент с портом по умолчанию. Первое соединение происходит нормально. Второе соединение, равно как и последующие, выдает ошибку. Не помогает даже закрытие/переоткрытие обработки клиента. Помогает закрытие/переоткрытие сеанса 1С. В остальном все нормально - клиенты видят друг друга, обмен сообщениями происходит. Если нажать "отсоединиться", а затем "соединиться", то на первом клиенте идет без ошибки, второй клиент высвечивает все ту же ошибку.
Процедура ПриНачалеРаботыСистемы()
Попытка
Мониторинг = СоздатьОбъект("AddIn.FileWatcher");
Исключение
Сообщить("Ошибка создания объекта внешней компоненты: AddIn.FileWatcher");
КонецПопытки;
ЭлМон = Мониторинг.Добавить("файло");
ЭлМон.Путь = "C:\temp\";
ЭлМон.Фильтр = "*.csv";
ЭлМон.ФильтрИзменений = "Модификация";
ЭлМон.Активирован = 1;
КонецПроцедуры
ПоказатьПри проверке работоспособности (создании или изменении существующего в папке файла) 1С вылетает...
Подскажите в чем может быть проблема?
Далее в глобальнике:
Попытка
ПодключитьВнешнююКомпоненту("AddIn.FileWatcher");
Сообщить("Внешняя компонента мониторинга папки успешно загружена!");
Исключение
Сообщить("Не удалось подключить компоненту ""AddIn.FileWatcher""");
КонецПопытки;
и еще что выше написал в первом сообщении...
Хотел насладиться в отладчике пойманным событием, но увы...
Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.
№ 19235
Создание 05.03.09 15:35
Обновление 13.03.09 00:00
Просмотры 33508
Загрузки 548
Рейтинг
39
Комментарии 53
Код открыт Не указано
Рубрики Мониторинг
Кому Разработчик
Тип файла Компонента, плагин (dll, vbs,..)
Платформа
1С:Предприятие 7.7
,
1С:Предприятие 8
Конфигурация
1C:Бухгалтерия
,
1C77
Операционная система Windows
Страна Не имеет значения
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)