CamsCapture - это небольшое и бесплатное приложение можно использовать для фото фиксации любых событий, как-то: продажа в магазине, прием/выдача товара, открытие денежного ящика и т.д., с дальнейшим занесением данных снимков в учетную систему предприятия.
Программа проста в использовании, не требует установки, запускается как консольное приложение с параметрами командной строки. Всего 6 параметров, они должны быть разделены пробелами:
1)ip адрес объекта видеонаблюдения, если Acumen, то ip без последней цифры (октета)
2)тип оборудования для Линия – linia, Линия6 – linia6, Acumen – ip, E-Castle – dvr
3)имя пользователя для доступа к объекту видеонаблюдения
4)пароль пользователя
5)номера камер и названия файлов, в которые будут сохраняться снимки. Для Линии и E-Castle нумерация камер идет с 0. Для Acumen вместо номера необходимо указать последнюю цифру ip адреса камеры (октет). Имя файла указывается в скобках. Номеров и названий, можно указать любое нужное количество, через запятую. Пример для Acumen: если ip камер 192.168.0.231, 192.168.0.232 и 192.168.0.233, то этот параметр будет: 231(fistcam.jpg),232(secondcam.jpg),233(thirdcam.jpg)
6)Путь, с указанием директории, куда будут сохранены файлы, локальный, либо сетевой. Если в пути есть пробелы, то его необходимо заключить в кавычки.
Пример использования в программе 1С, при записи документа «Реализация в розницу» фиксируем фото обстановки в магазине:
Процедура СделатьСнимки()
РасположениеЗапускаемогоФайла = """C:\work\CamsCapture.exe""";
ОбщаяПапкаДляСнимков = """\\s-file\Capture\""";
ИмяПользователя = "admin";
Пароль = "pass";
ИмяФайла1 = ЭтотОбъект.Номер + "_" + Формат(ТекущаяДата(), "ДФ=ддММгггг") + "_1.jpg";
ИмяФайла2 = ЭтотОбъект.Номер + "_" + Формат(ТекущаяДата(), "ДФ=ддММгггг") + "_2.jpg";
ИмяФайла3 = ЭтотОбъект.Номер + "_" + Формат(ТекущаяДата(), "ДФ=ддММгггг") + "_3.jpg";
ИмяФайла4 = ЭтотОбъект.Номер + "_" + Формат(ТекущаяДата(), "ДФ=ддММгггг") + "_4.jpg";
//Для Линии и Линии 6
IPАдрес = "192.168.1.2";
ТипОборудования = "linia6"; // или "linia"
Камера1 = "0" + "(" + ИмяФайла1 + ")";
Камера2 = "1" + "(" + ИмяФайла2 + ")";
Камера3 = "2" + "(" + ИмяФайла3 + ")";
Камера4 = "3" + "(" + ИмяФайла4 + ")";
//Для камер Acumen
IPАдрес = "192.168.2.";
ТипОборудования = "ip";
Камера1 = "230" + "(" + ИмяФайла1 + ")";
Камера2 = "231" + "(" + ИмяФайла2 + ")";
Камера3 = "232" + "(" + ИмяФайла3 + ")";
Камера4 = "233" + "(" + ИмяФайла4 + ")";
//Для видеорегистраторов E-Castle
IPАдрес = "192.168.3.50";
ТипОборудования = "dvr";
Камера1 = "0" + "(" + ИмяФайла1 + ")";
Камера2 = "1" + "(" + ИмяФайла2 + ")";
Камера3 = "2" + "(" + ИмяФайла3 + ")";
Камера4 = "3" + "(" + ИмяФайла4 + ")";
//Запускаем CamsCapture
Команда = РасположениеЗапускаемогоФайла + " " + IPАдрес + " " + ТипОборудования + " " + ИмяПользователя + " " + Пароль + " " + Камера1 + "," + Камера2 + "," + Камера3 + "," + Камера4 + " " + ОбщаяПапкаДляСнимков;
КомандаСистемы = Новый ComОбъект("wscript.shell");
КомандаСистемы.Run("cmd /c " + """" + Команда + """", 0);
//Заполняем реквизиты
СнимокКамера1 = СтрЗаменить(ОбщаяПапкаДляСнимков, """", "") + ИмяФайла1;
СнимокКамера2 = СтрЗаменить(ОбщаяПапкаДляСнимков, """", "") + ИмяФайла2;
СнимокКамера3 = СтрЗаменить(ОбщаяПапкаДляСнимков, """", "") + ИмяФайла3;
СнимокКамера4 = СтрЗаменить(ОбщаяПапкаДляСнимков, """", "") + ИмяФайла4;
КонецПроцедуры
В форме списка, при выборе документа смотрим снимки:
Процедура СписокПриАктивизацииСтроки(Элемент)
Строка = ЭлементыФормы.Список.ТекущаяСтрока;
Если Строка = Неопределено ИЛИ Строка.СнимокКамера1 = "" Тогда
Возврат;
КонецЕсли;
ФайлСнимокКамера1 = Новый ДвоичныеДанные(Строка.СнимокКамера1);
ФайлСнимокКамера2 = Новый ДвоичныеДанные(Строка.СнимокКамера2);
ФайлСнимокКамера3 = Новый ДвоичныеДанные(Строка.СнимокКамера3);
ФайлСнимокКамера4 = Новый ДвоичныеДанные(Строка.СнимокКамера4);
СнимокКамера1 = Новый Картинка(ФайлСнимокКамера1);
СнимокКамера2 = Новый Картинка(ФайлСнимокКамера2);
СнимокКамера3 = Новый Картинка(ФайлСнимокКамера3);
СнимокКамера4 = Новый Картинка(ФайлСнимокКамера4);
Элементыформы.ПолеКартинки1.Картинка = СнимокКамера1;
Элементыформы.ПолеКартинки2.Картинка = СнимокКамера2;
Элементыформы.ПолеКартинки3.Картинка = СнимокКамера3;
Элементыформы.ПолеКартинки4.Картинка = СнимокКамера4;
КонецПроцедуры
Данный код представлен для примера работы приложения, при рабочем использовании он должен быть скорректирован.
