Changeset 25 for trunk/Modules/ChiyuAccessControlers

Timestamp:

Nov 19, 2012, 2:08:02 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Základní čtení logů z přístupového terminálu.

File:

• trunk/Modules/ChiyuAccessControlers/UTerminalBF630.pas (modified) (12 diffs)

trunk/Modules/ChiyuAccessControlers/UTerminalBF630.pas

@@ -81 +81 @@
     function ReadDateTime: TDateTime;
     function GetUserCount: Integer; override;
-    function GetUser(Id: Integer; User: TUser): Boolean; override;
+    function GetUser(Index: Integer; User: TUser): Boolean; override;
+    function GetPassageCount: Integer; override;
+    function GetPassage(Index: Integer; Passage: TUserPassage): Boolean; override;
     constructor Create; override;
     destructor Destroy; override;
@@ -106 +108 @@
   end;
 
+  TVirtualTerminalBF630Passage = class
+    Id: Integer;
+    Time: TDateTime;
+    User: Integer;
+    Key: Integer;
+  end;
+
   { TVirtualTerminalBF630 }
 
@@ -116 +125 @@
     function CommandGetUserIDList(Request: TListByte; Response: TListByte): Byte;
     function CommandGetUserData(Request: TListByte; Response: TListByte): Byte;
+    function CommandLogGet(Request: TListByte; Response: TListByte): Byte;
+    function CommandLogGetCount(Request: TListByte; Response: TListByte): Byte;
     procedure SetActive(AValue: Boolean);
     procedure NewConnection(Sender: TCommTCPServer; Pin: TCommPin);
@@ -121 +132 @@
   public
     Users: TListObject; // TListObject<TVirtualTerminalBF630User>
+    Passages: TListObject; // TListObject<TVirtualTerminalBF630Passage>
     Sessions: TListObject; // TListObject<TVirtualTerminalBF630Session>
     AccessKey: array[0..5] of Byte;
@@ -198 +210 @@
         else if Command = Byte(toGetDate) then ResultCode := CommandReadDate(Request, Response)
         else if Command = Byte(toUserDataGet) then ResultCode := CommandGetUserData(Request, Response)
+        else if Command = Byte(toLogGet) then ResultCode := CommandLogGet(Request, Response)
+        else if Command = Byte(toLogGetCount) then ResultCode := CommandLogGetCount(Request, Response)
         else ResultCode := ResultCodeUnknownCommand;
 
@@ -314 +328 @@
 end;
 
+function TVirtualTerminalBF630.CommandLogGet(Request: TListByte;
+  Response: TListByte): Byte;
+var
+  UserId: Integer;
+  RequestSerializer: TBinarySerializer;
+  ResponseSerializer: TBinarySerializer;
+  I: Integer;
+  Day, Month, Year: Word;
+  MSec, Sec, Min, Hour: Word;
+  FunctionKey: Integer;
+begin
+  try
+    RequestSerializer := TBinarySerializer.Create;
+    RequestSerializer.List := Request;
+    //UserId := RequestSerializer.ReadInteger;
+
+    ResponseSerializer := TBinarySerializer.Create;
+    ResponseSerializer.List := Response;
+    DecodeDateTime(TVirtualTerminalBF630Passage(Passages[0]).Time,
+      Year, Month, Day, Hour, Min, Sec, MSec);
+    with ResponseSerializer do begin
+      WriteByte(Sec);
+      WriteByte(Min);
+      WriteByte(Hour);
+      WriteByte(Day);
+      WriteByte(Month);
+      WriteByte(Year mod 100);
+      WriteByte(0);
+      WriteByte(0);
+      WriteByte(0);
+      WriteByte(TVirtualTerminalBF630Passage(Passages[0]).Key);
+      WriteInteger(TVirtualTerminalBF630Passage(Passages[0]).User);
+      WriteByte(0);
+      WriteByte(0);
+    end;
+  finally
+    RequestSerializer.Free;
+    ResponseSerializer.Free;
+  end;
+end;
+
+function TVirtualTerminalBF630.CommandLogGetCount(Request: TListByte;
+  Response: TListByte): Byte;
+var
+  ResponseSerializer: TBinarySerializer;
+begin
+  try
+    ResponseSerializer := TBinarySerializer.Create;
+    ResponseSerializer.List := Response;
+    ResponseSerializer.WriteInteger(Passages.Count);
+    Result := ResultCodeSuccess;
+  finally
+    ResponseSerializer.Free;
+  end;
+end;
+
 procedure TVirtualTerminalBF630.SetActive(AValue: Boolean);
 begin
@@ -356 +426 @@
     SecondName := 'Second ' + IntToStr(Id);
   end;
+  with TVirtualTerminalBF630Passage(Passages.AddNew(TVirtualTerminalBF630Passage.Create)) do begin
+    Id := Passages.Count;
+    Time := Now;
+    User := 1;
+    Key := 2;
+  end;
 end;
 
@@ -362 +438 @@
   Sessions := TListObject.Create;
   Users := TListObject.Create;
+  Passages := TListObject.Create;
   CommSocket := TCommTCPServer.Create(nil);
   CommSocket.Address := 'localhost';
@@ -374 +451 @@
   FreeAndNil(CommSocket);
   FreeAndNil(Users);
+  FreeAndNil(Passages);
   FreeAndNil(Sessions);
   inherited Destroy;
@@ -550 +628 @@
 end;
 
-function TTerminalBF630.GetUser(Id: Integer; User: TUser): Boolean;
+function TTerminalBF630.GetUser(Index: Integer; User: TUser): Boolean;
 var
   Request: TListByte;
@@ -564 +642 @@
     RequestSerializer := TBinarySerializer.Create;
     RequestSerializer.List := Request;
-    RequestSerializer.WriteInteger(Id);
+    RequestSerializer.WriteInteger(Index);
     SendPacket(toUserDataGet, Request, Response);
     if Response[0] <> Id then raise Exception.Create(SWrongId);
@@ -581 +659 @@
 
   finally
+    Request.Free;
+    RequestSerializer.Free;
+    Response.Free;
+  end;
+end;
+
+function TTerminalBF630.GetPassageCount: Integer;
+var
+  Response: TListByte;
+  ResponseSerializer: TBinarySerializer;
+begin
+  try
+    Response := TListByte.Create;
+    ResponseSerializer := TBinarySerializer.Create;
+    ResponseSerializer.List := Response;
+    SendPacket(toLogGetCount, nil, Response);
+    Result := ResponseSerializer.ReadInteger;
+  finally
+    Response.Free;
+  end;
+end;
+
+function TTerminalBF630.GetPassage(Index: Integer; Passage: TUserPassage): Boolean;
+var
+  Request: TListByte;
+  RequestSerializer: TBinarySerializer;
+  Response: TListByte;
+  ResponseSerializer: TBinarySerializer;
+  I: Integer;
+  Title: Integer;
+  Department: Integer;
+  Sec, Min, Hour: Byte;
+  Day, Month, Year: Byte;
+  FunctionKey: BYte;
+  Verify: Byte;
+  UserId: Integer;
+  InOutIndication: Byte;
+  VerificationSource: Byte;
+begin
+  try
+    Response := TListByte.Create;
+    ResponseSerializer := TBinarySerializer.Create;
+    ResponseSerializer.List := Response;
+    Request := TListByte.Create;
+    RequestSerializer := TBinarySerializer.Create;
+    RequestSerializer.List := Request;
+    //RequestSerializer.WriteInteger(Id);
+    SendPacket(toLogGet, Request, Response);
+    with ResponseSerializer do begin
+      Sec := ReadByte;
+      Min := ReadByte;
+      Hour := ReadByte;
+      Day := ReadByte;
+      Month := ReadByte;
+      Year := ReadByte;
+      InOutIndication := ReadByte;
+      VerificationSource := ReadByte;
+      Verify := ReadByte;
+      FunctionKey := ReadByte;
+      UserId := ReadInteger;
+    end;
+
+    Passage.Terminal := Id;
+    Passage.Time := EncodeDateTime(2000 + Year, Month, Day, Hour, Min, Sec, 0);
+    Passage.Operation := FunctionKey;
+    Passage.User := UserId;
+  finally
+    ResponseSerializer.Free;
     Request.Free;
     RequestSerializer.Free;