В палитру компонентов ПО "Подкова" добавлены два объекта TTurnStyleDevice и TTurnStyler.

Компонент TTurnStyleDevice обеспечивает полное управление контроллерами турникетов, подключенных последовательно к Com порту. Компонент TTurnStyleDevice позволяет управлять как локально, так и по протоколу TCP/IP. Компонент генерирует пять событий:

• property OnLog сообщения
  
• property OnError ошибки
  
• property OnCheckStatus сообщения контроллера
  
• property OnCheckSQL проверка на возможность прохода
  
• property OnGetImg возможность фотографировать
  

Пример

CheckSQL(Sender: TObject; Device,
  Cardnumber, Status: String; AIndex: Integer; var AResult: Integer);
begin
 case AIndex of
   0:Memo3.Lines.Add('Проверить вход '+Device+' '+' CardNumber '+CardNumber+' status '+status);
   1:Memo3.Lines.Add('Ошибка прохода '+Device+' '+' CardNumber '+CardNumber+' status '+status);
   3:Memo3.Lines.Add('Прошел '+Device+' '+' CardNumber '+CardNumber+' status '+status);
 end;
 AResult:=1
end;
		

CheckStatus(Sender: TObject; AName,
  Device, Cardnumber, Status1, Status2: String);
var i:integer;
begin
  i:=TurnStyler1.FindItemByGate(Device);
  if i<>-1 then
    begin
     if Status1='TIMEOUT'  then TurnStyler1.Setitemstate(Device,6,'Не прошел...');
     if Status1='FINISH'   then TurnStyler1.Setitemstate(Device,8,'Прошел...');
     if Status1='CLOSE'    then TurnStyler1.Setitemstate(Device,7,'Запрешено...');
     if Status1='PROGRESS' then
      begin
        if TurnStyler1.TurnStylerList.Items[i].GateA=Device
           then TurnStyler1.Setitemstate(Device,3,'Движение...')
           else TurnStyler1.Setitemstate(Device,2,'Движение...');
      end;
     if Status1='OPEN' then
      begin
        if TurnStyler1.TurnStylerList.Items[i].GateA=Device
           then TurnStyler1.Setitemstate(Device,0,'Открыто...')
           else TurnStyler1.Setitemstate(Device,1,'Открыто...')
      end;
    end else Memo3.Lines.Add(AName+'Не найдено Device '+Device);
end;
	

Компонент TTurnStyler обеспечивает визуальное отображение состояния проходов. Также позволяет вручную открывать проходы.

Добавлен новый компонент Podkova Service Application Loader. Это сервис, который позволяет загружать скриптовые библиотеки Подкова для администрирования рутинных задач. Например: рассылка сообщений пользователям, мониторинг состояния базы данных, уведомление о событиях и напоминания и т.д. Логикой работы сервиса можно управлять при помощи "Pidkova IDE".