中控指纹开发DLEPHI版demo源码

demo:unit comsdktest;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, zkemkeeper_TLB, Menus, Buttons, Grids,ValEdit, ExtCtrls;typeTForm1 = class(TForm)CZKEM1: TCZKEM;Label1: TLabel;btnConnect: TButton;Memo1: TMemo;SaveDialog1: TSaveDialog;gbOP: TGroupBox;btnSetTime: TButton;vleDevInfo: TValueListEditor;btnLoadDevInfo: TBitBtn;btnSaveDevInfo: TBitBtn;Button3: TButton;GroupBox1: TGroupBox;btnClearData: TButton;Button5: TButton;Button6: TButton;btnBackupUser: TButton;btnRestore: TButton;Button9: TButton;OpenDialog1: TOpenDialog;btnDeleteUser: TButton;btnSetName: TButton;Button10: TButton;btnAutoTest: TButton;edtNetAddress: TLabeledEdit;edtNetPort: TLabeledEdit;edtBaudRate: TEdit;sbtnRS232: TSpeedButton;sbtnTCPIP: TSpeedButton;Label5: TLabel;btnACUnlock: TButton;edtPassword: TEdit;Label2: TLabel;chkEnabled: TCheckBox;Button7: TButton;Button8: TButton;Button12: TButton;Button11: TButton;Button14: TButton;Button13: TButton;Button15: TButton;Button16: TButton;Button17: TButton;Button18: TButton;Button19: TButton;Button20: TButton;btnSMS: TButton;Button1: TButton;SaveDialog2: TSaveDialog;OpenDialog2: TOpenDialog;Button2: TButton;procedure FormCreate(Sender: TObject);procedure btnConnectClick(Sender: TObject);procedure btnLoadDevInfoClick(Sender: TObject);procedure btnSaveDevInfoClick(Sender: TObject);procedure btnSetTimeClick(Sender: TObject);procedure btnClearDataClick(Sender: TObject);procedure Button5Click(Sender: TObject);procedure Button6Click(Sender: TObject);procedure Button9Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure btnBackupUserClick(Sender: TObject);procedure btnRestoreClick(Sender: TObject);procedure vleDevInfoValidate(Sender: TObject; ACol, ARow: Integer; const KeyName, KeyValue: String);procedure btnSetNameClick(Sender: TObject);procedure btnDeleteUserClick(Sender: TObject);procedure btnAutoTestClick(Sender: TObject);procedure sbtnRS232Click(Sender: TObject);procedure sbtnTCPIPClick(Sender: TObject);procedure btnACUnlockClick(Sender: TObject);procedure chkEnabledClick(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure btnSMSClick(Sender: TObject);procedure Button7Click(Sender: TObject);procedure Button8Click(Sender: TObject);procedure Button12Click(Sender: TObject);procedure Button11Click(Sender: TObject);procedure Button14Click(Sender: TObject);procedure Button13Click(Sender: TObject);procedure Button15Click(Sender: TObject);procedure Button16Click(Sender: TObject);procedure Button17Click(Sender: TObject);procedure Button18Click(Sender: TObject);procedure CZKEM1FingerFeature(ASender: TObject; Score: Integer); procedure CZKEM1Verify(ASender: TObject; UserID: Integer);procedure Button19Click(Sender: TObject);procedure Button20Click(Sender: TObject);procedure Button2Click(Sender: TObject);//procedure GroupBox1Click(Sender: TObject);private{ Private declarations }DevID: integer;Commport: integer;Modified: string;AppPath:string;procedure AddInfo(const s: string);procedure ReadDeviceStatus;procedure BackupUser(const fn: string);procedure RestoreUser(const fn: string);function SaveGLogs(const fn: string): integer;function BTimeEncode(MinuteSecond: integer): string;function BTimeDecode(const TimeStr: string): integer;function BNetSpeedEncode(speed: integer): string;function BNetSpeedDecode(const speed: string): integer;public{ Public declarations }end;varForm1: TForm1;function decodedata(const s: string): string;function encodedata(const BinData; size: integer): string;function LoadFile(const fn: string): string;procedure SaveFileData(const fn: string; const Data; size: integer); procedure SaveFile(const fn: string; Data: string);implementationuses inifiles, uUser;{$R *.dfm}HexOfNum: array[0..15] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');StatusNames: array[1..12] of string=('Tatal administrator','Tatal users','Tatal FP','Tatal Password','Tatal manage record','Tatal In and out record','Nominal FP number','Nominal user number','Nominal In and out record number','Remain FP number','Remain user number','Remain In and out record number');Languages: array[0..2] of string=('English','Simplified Chinese','Traditional Chinese');BaudRates: array[0..6] of string=('1200 bps','2400 bps','4800 bps','9600 bps','19200 bps','38400 bps','115200 bps');CRCs: array[0..2] of string=('Nothing','Even','Odd');StopBits: array[0..1] of string=('One','Two');DateSps: array[0..1] of string=('"/"','"-"');MSpeeds: array[0..2] of string=('Low speed','High speed','Auto');OnOffs: array[0..1] of string=('Off',YesNos: array[0..1] of string=('No','Yes');DateFormats: array[0..9] of string=('YY-MM-DD','YY/MM/DD','YY.MM.DD','MM-DD-YY','MM/DD/YY','MM.DD.YY','DD-MM-YY','DD/MM/YY','DD.MM.YY','YYYYMMDD');NetSpeeds: array[0..4] of string=('10M_H','100M_H','10M_F','100M_F','AUTO');NetSpeedValues: array[0..4] of integer=(0,1,4,5,8);procedure TForm1.FormCreate(Sender: TObject);vars: widestring;i,j: integer;beginAppPath:= ExtractFilePath(application.exename);CZKEM1.GetSDKVersion(s);label1.Caption := s;vleDevInfo.ItemProps[2].EditStyle := esPickList;for i:=0 to length(Languages)-1 dovleDevInfo.ItemProps[2].PickList.Add(Languages[i]);vleDevInfo.ItemProps[8].EditStyle := esPickList;for i:=0 to length(BaudRates)-1 dovleDevInfo.ItemProps[8].PickList.Add(BaudRates[i]);vleDevInfo.ItemProps[9].EditStyle := esPickList;for i:=0 to length(CRCs)-1 dovleDevInfo.ItemProps[9].PickList.Add(CRCs[i]);vleDevInfo.ItemProps[10].EditStyle := esPickList;for i:=0 to length(StopBits)-1 dovleDevInfo.ItemProps[10].PickList.Add(StopBits[i]);vleDevInfo.ItemProps[11].EditStyle := esPickList;for i:=0 to length(DateSps)-1 dovleDevInfo.ItemProps[11].PickList.Add(DateSps[i]); for j := 12 to 15 dovleDevInfo.ItemProps[j].EditStyle := esPickList;for i:=0 to length(OnOffs)-1 dovleDevInfo.ItemProps[j].PickList.Add(OnOffs[i]); end;vleDevInfo.ItemProps[16].EditStyle := esPickList;for i:=0 to length(MSpeeds)-1 dovleDevInfo.ItemProps[16].PickList.Add(MSpeeds[i]); end;function LoadFile(const fn: string): string;varf: tmemorystream;beginresult := '';f := tmemorystream.Create;tryf.LoadFromFile(fn);f.Position := 0;if f.Size>0 thenbeginsetlength(result, f.size);f.Read(result[1], length(result));end;finallyf.Free;end;end;procedure SaveFile(const fn: string; Data: string);varf: tmemorystream;beginf := tmemorystream.Create;tryif length(data)>0 thenf.Write(Data[1], length(data));f.Position := 0;f.SaveToFile(fn);finallyf.Free;end;end;procedure SaveFileData(const fn: string; const Data; size: integer);varf: tmemorystream;beginf := tmemorystream.Create;tryif size>0 thenf.Write(Data, size);f.Position := 0;f.SaveToFile(fn);finallyf.Free;end;end;procedure TForm1.btnConnectClick(Sender: TObject);varErrorCode: integer;c: boolean;beginif btnConnect.Tag = 1 thenbeginCZKEM1.RefreshData(DevId);CZKEM1.EnableDevice(DevId, TRUE);CZKEM1.Disconnect;btnConnect.Tag := 0;btnConnect.Caption := 'Connect';endelsebegindevid:=strtoint(edtNetPort.Text);if edtPassword.Text>'' thenCZKEM1.SetCommPassword(strtoint(edtPassword.Text));if pos('COM', uppercase(edtNetAddress.text))=1 thenbegincommport:=ord(edtNetAddress.text[4])-ord('0');mPort := commport;c:=CZKEM1.Connect_Com( commport, DevID, strtoint(edtBaudRate.text)); endelsebeginc:=CZKEM1.Connect_net(edtNetAddress.text, Devid);Devid:=1;end;if c thenbeginAddInfo('Device Connected.');ReadDeviceStatus;btnConnect.Tag := 1;btnConnect.Caption := 'Disconnect';endelsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! ConnectDevice ErrorNo.=%d',[ErrorCode]));end;AddInfo(' ');end;end;procedure TForm1.AddInfo(const s: string);beginmemo1.Lines.Add(s);memo1.Refresh;end;procedure TForm1.btnLoadDevInfoClick(Sender: TObject);varErrorCode, Value, i: integer;beginfor i:=1 to vleDevInfo.RowCount-1 doif CZKEM1.GetDeviceInfo(devid, i, value) thenbeginif i=29 thenbeginvleDevInfo.Strings.ValueFromIndex[i-1]:=BNetSpeedEncode(Value);endelse if vleDevInfo.ItemProps[i-1].HasPickList thenbeginif (value>=0) and (value<vleDevInfo.ItemProps[i-1].PickList.Count) thenvleDevInfo.Strings.ValueFromIndex[i-1]:=vleDevInfo.ItemProps[i-1].PickList[value] elsevleDevInfo.Strings.ValueFromIndex[i-1]:=inttostr(Value);endelse if (i>=19) and (i<=22) thenvleDevInfo.Strings.ValueFromIndex[i-1]:=BTimeEncode(Value)elsevleDevInfo.Strings.ValueFromIndex[i-1]:=inttostr(Value);endelsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetDeviceInfo(%d) ErrorNo.=%d',[i, ErrorCode]));end;Modified:=stringofchar(#0,100);{Modified:=stringofchar(#0,100);for i:=1 to 17 doif CZKEM1.GetDeviceInfo(devid, i, value) thenbeginif vleDevInfo.ItemProps[i-1].HasPickList thenbeginif (value>=0) and (value<vleDevInfo.ItemProps[i-1].PickList.Count) thenvleDevInfo.Strings.ValueFromIndex[i-1]:=vleDevInfo.ItemProps[i-1].PickList[value] elsevleDevInfo.Strings.ValueFromIndex[i-1]:=inttostr(Value);endelsevleDevInfo.Strings.ValueFromIndex[i-1]:=inttostr(Value);endelsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetDeviceInfo(%d) ErrorNo.=%d',[i, ErrorCode]));end;}end;procedure TForm1.btnSaveDevInfoClick(Sender: TObject);varErrorCode, Value, i: integer;beginfor i:=1 to vleDevInfo.RowCount-1 doif Modified[i]='1' thenbeginif i=29 thenbeginValue := BNetSpeedDecode(vleDevInfo.Strings.ValueFromIndex[i-1]);endelse if vleDevInfo.ItemProps[i-1].HasPickList thenbeginfor value:=0 to vleDevInfo.ItemProps[i-1].PickList.Count-1 doif vleDevInfo.ItemProps[i-1].PickList[value]=vleDevInfo.Strings.ValueFromIndex[i-1] then break;if value>=vleDevInfo.ItemProps[i-1].PickList.Count thenvalue:=0;endelse if (i>=19) and (i<=22) thenValue := BTimeDecode(vleDevInfo.Strings.ValueFromIndex[i-1])elsevalue:=strtoint(vleDevInfo.Strings.ValueFromIndex[i-1]);if not CZKEM1.SetDeviceInfo(devid, i, value) thenbeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! SetDeviceInfo(%d) ErrorNo.=%d',[i, ErrorCode]));exit;endelseModified[i]:=#0;if i=2 thenbeginedtNetAddress.Text := vleDevInfo.Strings.ValueFromIndex[i-1];DevId:=value;end;end;AddInfo('SetDeviceInfo OK');end;procedure TForm1.btnSetTimeClick(Sender: TObject);varErrorCode,dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond: integer;beginif CZKEM1.SetDeviceTime(devid) thenbeginAddInfo('SetDeviceTime OK.');if CZKEM1.GetDeviceTime(devid, dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond) thenAddInfo(Format('DeviceTime=%d-%d-%d %d:%d:%d',[dwYear, dwMonth, dwDay, dwHo ur, dwMinute, dwSecond]))elsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetDeviceTime ErrorNo.=%d',[ErrorCode]));end;endelsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! SetDeviceTime ErrorNo.=%d',[ErrorCode]));end;end;procedure TForm1.btnClearDataClick(Sender: TObject);beginCZKEM1.ClearKeeperData(devid);end;procedure TForm1.Button5Click(Sender: TObject);beginCZKEM1.ClearGLog(devid);end;procedure TForm1.Button6Click(Sender: TObject);beginCZKEM1.ClearAdministrators(DevId);end;procedure TForm1.Button9Click(Sender: TObject);vardwTMachine, dwEnrollNumber,dwEMachineNumber,dwVerifyMode: Integer;dwInOutMode,dwYear,dwMonth,dwDay,dwHour,dwMinute: Integer;s: string;f: tfilestream;beginif SaveDialog1.Execute thenbeginf:=tfilestream.Create(SaveDialog1.FileName, fmOpenWrite or fmCreate);tryif CZKEM1.ReadGeneralLogData(DevId) thenwhile CZKEM1.GetGeneralLogData(DevId,dwTMachine, dwEnrollNumber,dwEMachineNumb er,dwVerifyMode,dwInOutMode,dwYear,dwMonth,dwDay,dwHour,dwMinute) dobegins:=format('%5d %d %d %4d-%2d-%2d %2d:%2d'#13#10, [dwEnrollNumber,dwVerify Mode,dwInOutMode,dwYear,dwMonth,dwDay,dwHour,dwMinute]);f.Write(s[1],length(s));end;finallyf.Free;end;end;end;function NumOfHex(c: Char): integer;beginresult := 0;if c>='a' then result := ord(c)-ord('a')+10else if c>='A' then result := ord(c)-ord('A')+10else if c>='0' then result := ord(c)-ord('0');if result>16 thenraise exception.Create('Error of Integer: '+c);end;typeTByteArray=array[0..0] of byte;PByteArray=^TByteArray;function encodedata(const BinData; size: integer): string; vari: integer;da: pbytearray;beginsetlength(result, size*2);da:=@BinData;for i:= 0 to size-1 dobeginresult[i*2+1]:=HexOfNum[da[i] div 16];result[i*2+2]:=HexOfNum[da[i] mod 16];end;end;function decodedata(const s: string): string;vari: integer;da: pbytearray;beginsetlength(result, length(s) div 2);for i:= 1 to length(result) dobeginresult[i]:=char(NumOfHex(s[i*2-1])*16+NumOfHex(s[i*2]));end;end;procedure TForm1.Button3Click(Sender: TObject);beginCZKEM1.PowerOffDevice(DevID);end;procedure TForm1.BackupUser(const fn: string);varf: tinifile;dwEnrollNumber,dwBackupNumber,Password,dwMachinePrivilege,i,c,Len: integer;EnrollData: array[0..2047] of byte;s: string;Enable: WordBool;UName, UPwd: widestring;beginDeleteFile(fn);f := tinifile.Create(fn);tryif CZKEM1.ReadAllUserID(DevID) thenbeginc:=0;while CZKEM1.GetAllUserInfo(DevID, dwEnrollNumber, UName, UPwd,dwMachinePrivilege, Enable) dobegins:=format('Users_%d',[dwEnrollNumber]);f.WriteInteger(s,'Privilege',dwMachinePrivilege);f.WriteBool(s,'Enabled', Enable);f.WriteString(s, 'Name', UName);f.WriteString(s, 'Password', UPwd);//Try get every fingerprint templatefor i:=0 to 9 dobeginzeromemory(@EnrollData[0], 2048);Len:=2048;if CZKEM1.GetUserTmp(DevId, dwEnrollNumber, i, EnrollData[0], Len) then f.WriteString(s, 'FPT_'+inttostr(i), encodedata(EnrollData[0], Len));end;inc(c);end;end;finallyf.Free;end;end;procedure TForm1.ReadDeviceStatus;vars: widestring;ErrorCode, Value, i,dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond: integer;beginif CZKEM1.GetFirmwareVersion(devid, s) thenAddInfo('Firmware Version: '+s)elsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetFirmwareVersion ErrorNo.=%d',[ErrorCode]));end;if CZKEM1.GetSerialNumber(devid, s) thenAddInfo('Serial Number: '+s)elsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetSerialNumber ErrorNo.=%d',[ErrorCode]));end;if CZKEM1.GetProductCode(devid, s) thenAddInfo('ProductCode: '+s)elsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetProductCode ErrorNo.=%d',[ErrorCode]));end;if CZKEM1.GetDeviceTime(devid, dwYear, dwMonth, dwDay, dwHour, dwMinute, dwSecond) thenAddInfo(Format('DeviceTime=%d-%d-%d %d:%d:%d',[dwYear, dwMonth, dwDay, dwHou r, dwMinute, dwSecond]))elsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetDeviceTime ErrorNo.=%d',[ErrorCode]));end;for i:=1 to length(StatusNames) doif CZKEM1.GetDeviceStatus(devid, i, value) thenAddInfo(format('%s: %d', [StatusNames[i],value]))elsebeginCZKEM1.GetLastError(ErrorCode);AddInfo(format('! GetDeviceStatus(%d) ErrorNo.=%d',[i, ErrorCode]));end;end;procedure TForm1.RestoreUser(const fn: string);varf: tinifile;eno,i: integer;dwEnrollNumber,dwBackupNumber,Password,dwMachinePrivilege, dwEnable, c: integer;fpt, s, UName, UPwd: string;Sections: Tstrings;beginf:=tinifile.Create(fn);trySections := tstringlist.Create;tryf.ReadSections(Sections);for i:=1 to 65534 dobegins:=format('Users_%d',[i]);if Sections.IndexOf(s)>=0 thenbeginApplication.ProcessMessages;dwMachinePrivilege := f.ReadInteger(s, 'Privilege', 0);dwEnable := f.ReadInteger(s, 'Enabled', 1);UPwd := f.ReadString(s, 'Password', '');if UPwd='-1' thenUPwd:='';UName := f.ReadString(s, 'Name','');CZKEM1.SetUserInfo(DevId, i, UName, UPwd, dwMachinePrivilege, dwEnable<>0); for dwBackupNumber:=0 to 9 dobeginfpt:=f.ReadString(s, 'FPT_'+inttostr(dwBackupNumber), '');if fpt>'' thenbeginfpt:=decodedata(fpt);if CZKEM1.SetUserTmp(DevId, i, dwBackupNumber, pbyte(@fpt[1])^) thenAddInfo(format('SetEnrollData OK: User=%d,FP=%d', [i,dwBackupNumber])) elsebeginCZKEM1.GetLastError(eno);AddInfo(format('SetEnrollData Fail: User=%d,FP=%d, Error=%d', [i,dwBackupN umber,eno]));end;end;end;end;end;finallysections.Free;end;finallyf.free;end;end;procedure TForm1.vleDevInfoValidate(Sender: TObject; ACol, ARow: Integer;const KeyName, KeyValue: String);beginModified[ARow] := '1';end;procedure TForm1.btnSetNameClick(Sender: TObject);beginShowUserForm(CZKEM1, DevID);end;procedure TForm1.btnDeleteUserClick(Sender: TObject);beginCZKEM1.DeleteEnrollData(DevId, 69, DevId, 0);CZKEM1.DeleteEnrollData(DevId, 69, DevId, 1);end;varTesting: Boolean=false;procedure TForm1.btnAutoTestClick(Sender: TObject);vari: integer;Testing:=not Testing;if Testing thenbtnAutoTest.Caption := 'End Test'elsebtnAutoTest.Caption := 'Start Test';i:=0;while Testing dobeginAddInfo(Format('-----------Testing %d--------',[i]));inc(i);btnConnect.Click;if btnConnect.Tag=0 thenbeginTesting:=not Testing;if Testing thenbtnAutoTest.Caption := 'End Test'elsebtnAutoTest.Caption := 'Start Test';break;end;// sleep(1000);Addinfo('Clear Data...');btnClearData.Click;if FileExists(OpenDialog1.FileName) thenRestoreUser(OpenDialog1.FileName);Application.ProcessMessages;Addinfo('Delete User 69...');btnDeleteUser.Click;Sleep(2000);ReadDeviceStatus;Application.ProcessMessages;if FileExists(OpenDialog1.FileName) thenRestoreUser(OpenDialog1.FileName);ReadDeviceStatus;Addinfo('Clear Data...');btnClearData.Click;Addinfo('Disconnect...');btnConnect.Click;Application.ProcessMessages;end;end;procedure TForm1.btnBackupUserClick(Sender: TObject);if savedialog1.Execute thenBackupUser(savedialog1.FileName);end;procedure TForm1.btnRestoreClick(Sender: TObject);beginif OpenDialog1.Execute thenRestoreUser(OpenDialog1.FileName);end;procedure TForm1.sbtnRS232Click(Sender: TObject);beginedtnetAddress.EditLabel.Caption := 'Com Port:';edtNetPort.EditLabel.Caption := 'Device ID:';edtnetAddress.Text := 'COM1';edtNetPort.Text := '1';end;procedure TForm1.sbtnTCPIPClick(Sender: TObject);beginedtnetAddress.EditLabel.Caption := 'IP Address:';edtNetPort.EditLabel.Caption := 'Port Number:';edtnetAddress.Text := '192.168.1.201';edtNetPort.Text := '$1112';end;procedure TForm1.btnACUnlockClick(Sender: TObject);beginCZKem1.ACUnlock(DevId,200)end;procedure TForm1.chkEnabledClick(Sender: TObject);beginCZKEM1.EnableDevice(DevID, chkEnabled.Checked);end;constTEMP1='A1CA268296295AA10B50AA604009469950016A41194E3C514A3754D318D6B94D40 19DDBE7A' +'0312DCC078000EE52277F10735AF7A780D44A24FA30B4FB92BB80A819468610C221250 401A' +'071C7A93092B8A6C400E18147DF109249C53B81740A747F30CC8945FBC12258D42540F DFA4' +'39FC10B9867CD20714993DB409C71C26330B453341BC10778873F40788B461B410C6BF 4FA3' +'09E9B418382C9B266B930740BD5D78136AA73F323DC1283D405FB52D12220739A5873 80A31' +'AB2ED116263F293C0B7A46140614C334EA0F10117E4C56A5A8BACEFFFBEC12C0434C5 5A299' +'AACE6E76A2FCECA846A2FF99995D656F7707A1DFC9184BA2AE799958616D010A12A1E A994B' +'A19E6881545C6C0313A1FBA81F48A3BB7688BF5D1521248343A3CC8667AC49392FA177 6728' +'42A7BC8467BB5215656742A79C6558CC7535556641A28A5646404BA3842663663FA279 6521' +'3A51A3734545363DA16A312418086E57A2433343383E3A38231A120C026F5CA2345441 3D39' +'3314A227543061A244655246382104A2BA652164A2586454517E2A05A498656448A261 5F57' +'54C207A4565A978AA2704B43C476A29AA8BD0FE0317773';TEMP2='ocoqgo5BMsMGAcUxvArqwlMxCOlEWfwM6qEuYQs4OTSAEHuUQ4EZOKhGQAyTETu TDUYqLABqNQM9wxNhDxUABMcRS/FQJChldAyKtSsjEQIjQ/gOnyYoIRhOKj7AEpQRSJNlMokb'+ 'AAVSrlTxDYAfNwAJLxErMwxKmQ88BcUbINQLSZMVfAZPk1zSBZoiafQMmK9tMwV+C2l8B JmEUzQOhjdctAl4sRdjC9I7SzgIdQt0swomn3Z4B5undLIQijUaQA/gFH9iA521brgI'+'dwhXkROGwmF8Cu4pVEQSX4BKCxARfk5Woau7aXQHFKH8qSPAR6L+qrpkcQYWof2agU eiz6mJXGkFGCGhuZgmR6LOiIdUXQscofyYgUqjq4ZmkiWiTKl5KEqjuWRWUS2hKZiCSqap'+'YkYyE3h5gUmnqlMzMiRniXhLoZpSPjWkAVVXiHdNoapjPi0hozd1d3YRTqG8eEkapEaGVnh 4S6Hvnm4HpOeGZniJRU5cYGdzA6PIhneHgT9LYmhudqLahmWCd3d+Q2qmzMyXV2eY'+'lMJzpaqmh3d6hl/DA6Rmd4iXmGPAxAWiVIiageD/';procedure TForm1.Button1Click(Sender: TObject);vari: integer;begini:= CZKEM1.GetFPTempLengthStr(TEMP2);Memo1.lines.add(format('FPTempLength=%d',[i]));if CZKEM1.SetEnrollDataStr(devid, 1, devid, 0, 1, TEMP2, 0) thenMemo1.lines.add('SetEnrollDataStr OK')elseMemo1.lines.add('SetEnrollDataStr Fail.');end;function TForm1.BTimeDecode(const TimeStr: string): integer;varp,m,s: integer;beginp := pos(':', TimeStr);m:=strtointdef(copy(TimeStr,1,p-1),-1);s:=strtointdef(copy(TimeStr,p+1,100),-1);if (m<0) or (s<0) or (m>255) or (s>255) then result := 255; result := m *256+s;end;function TForm1.BTimeEncode(MinuteSecond: integer): string; varm,s: integer;beginm:=MinuteSecond div 256;s:=MinuteSecond mod 256;if (MinuteSecond<0) or (m>59) or (s>59) thenresult := 'No'elseresult := format('%d:%d', [m,s]);end;function TForm1.BNetSpeedDecode(const speed: string): integer; vari: integer;beginresult := NetSpeedValues[0];for i := 0 to length(NetSpeeds)-1 doif speed=NetSpeeds[i] thenbeginresult := NetSpeedValues[i];exit;end;end;function TForm1.BNetSpeedEncode(speed: integer): string;vari: integer;beginresult := NetSpeeds[0];for i := 0 to length(NetSpeeds)-1 doif speed=NetSpeedValues[i] thenbeginresult := NetSpeeds[i];exit;end;end;procedure TForm1.Button4Click(Sender: TObject);beginif SaveDialog1.Execute thenSaveGLogs(SaveDialog1.filename);end;function TForm1.SaveGLogs(const fn: string): integer;vardwEnrollNumber, dwSEnrollNumber, Params3,Params0, Params1, dwManipulation, Params2, dwYear,dwMonth, dwDay, dwHour, dwMinute: Integer;s: string;f: tfilestream;beginresult := 0;f:=tfilestream.Create(fn, fmOpenWrite or fmCreate);tryif CZKEM1.ReadSuperLogData(DevId) thenwhile CZKEM1.GetSuperLogData(DevId, dwEnrollNumber, dwSEnrollNumber, Params3,Params0, Params1, dwManipulation, Params2, dwYear,dwMonth, dwDay, dwHour, dwMinute) dobegins:=format('%5d %5d %5d %5d %5d %5d %d-%d-%d %d:%d'#13#10,[dwSEnrollNumb er, dwManipulation,Params0, Params1, Params2, Params3,dwYear, dwMonth, dwDay, dwHour, dwMinute]);f.Write(s[1],length(s));inc(result);end;finallyf.Free;end;end;procedure TForm1.btnSMSClick(Sender: TObject);beginif btnSMS.Tag=0 thenbegin//CZKEM1.SetSMS(0, 4, 'Welcome to ZK');// CZKEM1.SetSMS(1, 2, 'Meet at 10:00');// CZKEM1.SetSMS(2, 3, 'Write a report for C12 item');//btnSMS.Caption := 'Clear SMS';//btnSMS.Tag:=1;endelsebegin// CZKEM1.SetSMS(0, 0, '');//CZKEM1.SetSMS(1, 0, '');// CZKEM1.SetSMS(2, 0, '');// btnSMS.Caption := 'Set SMS';// btnSMS.Tag:=0;end;end;procedure TForm1.Button7Click(Sender: TObject);varw,h: integer;image: array of byte;beginsetlength(image, 1024*512);w := 80;if CZKEM1.CaptureImage(TRUE, w, h, Image[0], 'fp.bmp') then beginaddinfo('Captured an image.');endelseaddinfo('Capture image fail.');end;procedure TForm1.Button8Click(Sender: TObject);beginif CZKEM1.UpdateFirmware('emfw.cfg') thenbeginaddinfo('UpdateFirmware success.pls restart the devie.');endelseaddinfo('UpdateFirmware fail.');end;procedure TForm1.Button12Click(Sender: TObject);beginCZKEM1.clearLCd;end;procedure TForm1.Button11Click(Sender: TObject);beginczkem1.EnableClock(0);czkem1.WriteLCD(0,0,' *** ');czkem1.WriteLCD(1,0,'Welcome to ZK');czkem1.WriteLCD(2,0,' *** ');czkem1.WriteLCD(3,0,' ');MessageDlg('Close this window to restore lcd display', mtInformation, [mbOK], 0);czkem1.EnableClock(1);end;procedure TForm1.Button14Click(Sender: TObject);beginczkem1.Beep(1000);end;procedure TForm1.Button13Click(Sender: TObject);vari: integer;beginfor i:=0 to 9 dobeginczkem1.PlayVoiceByIndex(i);if MessageDlg('Continue next voice?', mtConfirmation, [mbYes,mbNo], 0) <> mrYes then exit;end;czkem1.PlayVoice(30,29);end;procedure TForm1.Button15Click(Sender: TObject);varErrorCode: integer;beginCZkEM1.CancelOperation;CZkEM1.DelUserTmp(1, 65530, 0);if CZkEM1.StartEnroll(65530, 0) thenAddInfo('Start Enroll a user, UserID=65530, FingerID=0')elsebeginCZkEM1.GetLastError(ErrorCode);AddInfo('StartEnroll Error, Code='+inttostr(ErrorCode));end;end;procedure TForm1.Button16Click(Sender: TObject);varErrorCode: integer;。