Keep Your Customers or all energies will be lost in time... Admin Logout
 
g


Мы не просто предлагаем готовые решения...
Мы предлагаем опыт 10 лет разработки и внедрения
 
 
 
 

Продукты

Решения для

Спецоборудование

Торговое оборудование

Наши клиенты

 

Новости


Deprecated: Function eregi() is deprecated in /home/bagelcom/public_html/pidkova.biz/news/show_news.php on line 16

Deprecated: Function eregi() is deprecated in /home/bagelcom/public_html/pidkova.biz/news/show_news.php on line 36

Deprecated: Function eregi() is deprecated in /home/bagelcom/public_html/pidkova.biz/news/inc/shows.inc.php on line 23

Deprecated: Function eregi() is deprecated in /home/bagelcom/public_html/pidkova.biz/news/inc/shows.inc.php on line 23
Подкова

В палитру компонентов ПО "Подкова" добавлены два объекта 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".