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

UptoLike

ВУЗ: 

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

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

Рубрика: 

98
End; { of If }
End; { of Set_Note_Address }
Function Generate_Beep: Boolean;
{ Дать команду на генерацию кратковременного звукового сигнала}
Begin
COMFrameLen:=16; Generate_Beep:=False;
Frame_FT:=COMFrameLen;
Frame_NA:=Note.Address; Frame_Cmd:=acmGenerateBeep;
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 Then
Generate_Beep:=False
Else
Generate_Beep:=True;
End; { of If }
End; { of Generate_Beep }
Function Check_Card(Var Present: Boolean): Boolean;
{ Проверить наличие карты в считывателе путем попытки чтения с
карты из нулевого банка}
Begin
COMFrameLen:=16; Check_Card:=False;
Frame_FT:=COMFrameLen;
Frame_NA:=Note.Address; Frame_Cmd:=acmReadWOCoding;
Frame_Data[1]:=0;
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 Then
Check_Card:=False
Else
Check_Card:=True;
If In_Buf.Data[1]=sstNoCard Then Present:=False
Else
Begin
If (In_Buf.Data[1]=sstSuccess) or
Продолжение прил.

Страницы