Пластиковые карты с открытой памятью. Востриков А.А - 100 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

100
Frame_Data[1]:=Bank;
If Not Send_Frame(Frame_FT, Frame_NA, Frame_Cmd, Frame_Status,
Frame_Data) Then Exit;
If Receive_Frame Then
Begin
If (In_Buf.Status<>astSuccessNote) or
(In_Buf.Data[1]<>sstSuccess) Then
Card_Read:=False
Else
Begin
Card_Read:=True; Move(In_Buf.Data[2], Dump[Bank*64],
64);
End; { of Else}
If In_Buf.FT<>75 Then Card_Read:=False;
End; { of If }
End; { of Card_Read }
Var
NoteType: Byte; NoteSN: LongInt;
Card_In: Boolean;
PPNum: LongInt; Action: Byte;
FIO, Birthday, Home, Appendix: String;
Begin { ———— Основная часть программы —————— }
ClrScr; {Очистить экран}
COMInit(2); {Проинициализировать COM2}
Writeln;
Writeln(‘Сброс сетевых адресов...’);
If Not Note_Address_Reset Then {Сбросить адрес узла}
Begin
Writeln(‘Ошибка! Не удалось передать кадр на сброс
адресов!’); Halt(1);
End; { of If }
TickWait(9); {Ожидание около 0.5 с}
Writeln(‘Запрос узлов с неустановленным адресом...’);
Продолжение прил.

Страницы