Перейти к основному контенту

Принцип декодирования с использованием FastScript

Также как в любом другом случае декодирование на стороне TCPCardReader'a включается строкой.

useDecodeCards=1 

в TCPCardReader.ini в настройках конкретного считывателя:

[READER1]
COMPORT=6
COMPORTPARAMS=baud=9600 data=8 parity=N stop=1
Prefix=;
Postfix=?
useDecodeCards=1
StartTermChars=i
FinishTermChars=?#13;#10;#0;

Таким образом при включении декодирования TCPCardReader отправляет часть трека начинающегося с символа следующего за StartTermChars и заканчивающимся символом стоящим перед одним из FinishTermChars в Decodecards.

Итак Decodecards получает только эту часть и декодирует (преобразовывает/выделяет идентификатор) её.

В decodecards.ini В секции [mask] перечисляются маски по префиксам которых можно разделять декодирование разных карт

[mask]
card_em = ne*
card_mifare = fare*
card = *

В данном примере если пришедший от TCPCardReader'a трек содержит префикс "ne" ,то обработка такого трека будет описана  в секции [cards.card_em]. Соответственно если трек содержит префикс "fare" то обработка такого трека описана в секции [cards.card_mifare]. Символ  "*"  в данном случае означает любое количество символов.

Чтение данной секции происходит последовательно, то есть при первом совпадении пришедшего трека с маской дальнейшей просмотр секции не ведётся

Далее в секциях с названием "cards." и левой частью до знака равенства в секции [mask] конкретного типа трека настраивается декодирование.

[cards.Card]
code=2
CardDecodeType = FastScript
DecodeTypeEx = 0


Опцией CardDecodeType = FastScript    выбираем алгоритм декодирования с использованием FastScript.

В таком случаем алгоритм декодирования программируется в функции decodecard во внешнем файле, задаваемым параметром fsUnit в секции [frf].

[frf]
fsUnit=fsdecodecard.upas

Сначала удаляется часть не участвующая в декодировании используя параметр ExcludedPrefix.

Пример внешнего файла fsdecodecard.upas

function fsUnitVersion:integer;
begin
  result := 1;
end;

function DecodeCard(Track:string; var Code:integer):string;
begin
	if ( Length(track) >= 4 ) then
		result :1= copy( track, length(track)-3, 4 )                            
	else
		result := track;
end;

begin

end.

Для программирования алгоритма декодирования  доступен весь или почти весь синтаксис языка delphi.

Вся обработка происходит в функции DecodeCard в которую передаются трек без ExcludedPrefix и code указанный в соответствующей секции файла decodecards.ini. Чаще всего это code=2 как в данном примере.

// under consraction

 

Наверх