TZKClient

type TZKClient = class(TObject)

protected

  FSocket: TZKSocketStream;

  FReceivedData: AnsiString;

  FStartData: Integer;

  FUserData: TBytes;

  FAttendanceData: TBytes;

  FReplyId: Integer;

  FSessionId: Word;

  procedure Send();

  function Recv;

  function NewReplyID;

  function CreateSocket; virtual;

  function CheckSum();

  function CreatePacket();

  function ExecCommand();

  function ReceiveData(); deprecated ;

  function ReceiveBuffer();

  function ReceiveBytes();

  function ReceiveHeader();

public

  class function GetCommKey();

  constructor Create(); virtual;

  function Connect;

  function Disconnect;

  function GetVersion;

  procedure EnableDevice;

  procedure DisableDevice;

  procedure TestVoice;

  function GetAddendances();

  function GetUsers();

  function SetUser();

  function SetTime();

  function GetTime();

  function ClearAttLog;

  property Host: AnsiString; [r]

  property Port: AnsiString; [r]

  property Key: LongWord; [r]

  property SessionID: Word; [rw]

  property LastError: AnsiString; [r]

end;

TZKClient

TObject