Экранная камера

Программа предназначена для записи экрана или его части в формате AVI. Вы же можете использовать ее и для создания демонстративных роликов или встроить в свое по для скрытого наблюдения за действиями пользователя.

Так как программа была написана для слежения за действиями пользователя, работая в скрытом режиме совместно с ПО БухРост. Имеются некоторые особенности которых нет у других программ:
* запись временного файла в каталоге сохранения (Обычно используется TEMP в каталоге пользователя на системном диске, который может быть медленным или небольшим по размеру)
* после записи файла, файл может быть перемещен в каталог который к примеру находится на сервере
* слежение за бездействием пользователя, в большинстве случаев нет смысла записывать информацию, если пользователь не работает за компьютером. Но есть возможность производить запись кадров во время паузы через определенный интервал указанный в миллисекундах.
* программа имеет возможность встраивания или скрытый режим работы.
* приостановка записи, если отсутствует компьютер или сервер в сети. К примеру удаленная вебкамера не отвечает.
* задание длинны видео записи и автоматического повтора
* добавление к имени файла имя компьютера или  имя пользователя или времени создания записи

Скачать (1500 Кб)

Скрытый режим работы

Срытый режим был создан так как не все сообщения являются ошибками. Сообщения бывают : информирующими, спрашивающими, предупреждающие(внимание) и ошибка. В большинстве пользователи не читают сообщения (или плохо читают) и нажимают Отменить(Cancel) или не задумываясь нажимают ОК(если кнопка одна в окне сообщения). А потом говорят, что программа глючит. Но во всех программах есть и скрытые ошибки которые хотелось бы отловить и исправить. В торговле мы следим за операциями при проведении оплаты и при удалении позиций из товарных чеков.

На практике данное ПО помогает:
* найти сложные ошибки которые со слов пользователя тяжело воспроизвести
* найти и исправить неточности работы пользовательского интерфейса
* понять чему надо обучить пользователя, что бы он не совершал одни и ошибки
* выявить неработающее периферийное оборудование

Как связать ваше ПО с экраннай камерой?

1.вам необходимо добавить переменные и процедуры
const WM_CMScreenCamera = CM_BASE + 146; var ScreenCameraOn : Boolean = False;//901 используется запись экрана ScreenCameraH : DWORD = $FFFFFFFF;//901 ИД процесса записи экрана ScreenCameraW : DWORD = 0;//901 заголовок окна процесса записи экрана function CheckIddleTime: DWord; var LastInput: TLastInputInfo; begin LastInput.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(LastInput); Result := GetTickCount - LastInput.dwTime; end; procedure ScreenCameraEvent(Cmd:Integer = 0; Value:Integer = 0); var Form : TForm; Params : String; IsRunning : Boolean; IddleTime: DWord; begin if ScreenCameraOn then begin IsRunning := False; //Если приложение записи закрыто, то запускаем его if (ScreenCameraH = $FFFFFFFF) or ((ScreenCameraH <> $FFFFFFFF) and (GetProcessVersion(ScreenCameraH) = 0)) then begin IsRunning := True; ScreenCameraH := $FFFFFFFF; Params := Params + ' /PrevW='+CardToStr(Application.Handle) + ' /PrevH='+CardToStr(GetCurrentProcessID); //Запускаем экранную камеру ShellExecute(0, 'open', // PWideChar(JoinPath_FileName(ExtractFileDir(ParamStr(0)), 'ScreenCamera.exe')), PWideChar(Params), PWideChar(ChangeFilePath('ScreenCamera.exe', ExtractFileDir(ParamStr(0)))), PWideChar(Params), PWideChar(ExtractFileDir(ParamStr(0))), SW_SHOW); end; if IsRunning then begin IddleTime := GetTickCount; //Ожидаем 10 секунд пока не запустится программа while GetProcessVersion(ScreenCameraH) = 0 do begin Application.ProcessMessages; if GetTickCount - IddleTime > 10000 then Break; end; end; if (Cmd <> 0) or (Value <> 0) then begin //Если есть информация об процессе записе экрана if (ScreenCameraH <> $FFFFFFFF) and (ScreenCameraW <> 0) then begin SendMessage(ScreenCameraW, WM_CMScreenCamera, Value, Cmd); end; end; end else if (ScreenCameraH <> $FFFFFFFF) then begin //Если есть информация об процессе записе экрана if (GetProcessVersion(ScreenCameraH) = 0) then begin//Если процесса нет то обнуляем информацию ScreenCameraH := $FFFFFFFF; ScreenCameraW := 0; end else SendMessage(ScreenCameraW, WM_CLOSE, 0, 0);//Пытаемся остановить процесс end; end; type TMyWndProc = function (hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; var MyWndProcOld : TMyWndProc; begin Result := MyWndProcOld(hwnd, uMsg, wParam, lParam); case uMsg of WM_CMScreenCamera : begin//901 case lParam of //Получаем ИД процесса записи экрана $1001 : ScreenCameraH := wParam; //Получаем Application.Handle записи экрана $1002 : ScreenCameraW := wParam; end; end; end; end;

2.В проекте вам надо добавить строки. //901 перенаправляем сообщения программе MyWndProcOld := Pointer(GetWindowLongPtr(Application.Handle, GWL_WNDPROC)); SetWindowLongPtr(Application.Handle, GWL_WNDPROC, IntPtr(@MyWndProc));

Принцип работы:

При выполнении процедуры ScreenCameraEvent мы запустим экранную камеру и передадим ей ИД процесса и заголовок окна которое будет ловить сообщения от экранной камеры. Как только камера запустится она пошлет нам значения ScreenCameraH, ScreenCameraW которые поймаем в функцией MyWndProc.

И так камера зная наш ИД процесса будет работать пока наш процесс не завершиться. Получается очень удобно не надо отсылать какие то сообщения, что программа закрылась. А еще если произойдет крах Вашей программы, то экранная камера выполнить сохранение видео и закроется автоматически.

Теперь о механизм сохранения видео. Я выбрал оптимальным 20 секунд видео каждый файл, 10 секунд бездействия до авто паузы и частота записи кадров при простое 1000 мс. Таким образом получается запись 3 минуты в 20 секундном ролике, если пользователь не работает. Программа хранить 5 последних файлов при появлении 6 файла 1 удаляется. Таким образом нет переполнения диска ненужными файлами. Вы спросите "а в чем логика?" данные же удаляются. Да записанные файлы удаляются, но чтобы знать, что не надо удалять видео данные нужно из вашей программы выполнить ScreenCameraEvent($2001, 2);
* $2001 это отправляем сообщение камере нужно сохранить файл
* 2 это сколько файлов до и после нельзя удалять
Таким образом при возникновении ошибки (к примеру я использую procedure TB_Exit.ExceptionEvent(Sender: TObject; E: Exception);) остаются 4 файла. Этого достаточно чтобы понять, что произошло до и после ошибки. И еще в торговле мы делаем вызов ScreenCameraEvent($2001, 2); при проведении оплаты и при удалении позиций из товарных чеков.

Внимание!!!
* Если вы будете записываете 1 файл, то знайте видео фал более 2 Гбайт кодеки пишут с ошибками.
* При записи файла на диск запись экрана на диск не производится. На 60 секундный файл уходит от 1 до 3 секунд. По этой причине были выбраны 20 секунд. Что бы вести наблюдение за ошибками. Если вы просто записываете презентацию или демо ролик, то это Вам не помешает.
* Не забудьте установить видео кодеки. Кодек "Microsoft Video 1" используется по умолчанию его файлы в 100 раз больше чем у кодека "Xvid MPEG-4 Codec"