zoukankan      html  css  js  c++  java
  • TSynAuthentication SESSION验证

    TSynAuthentication SESSION验证

    服务端维护的SESSIONS,实质上是一个array of integer,保存的是客户端的SESSIONID。

    SESSIONID可以由客户端来生成,只要客户端不关闭,它的SESSIONID就不变,每次申请都提交这个SESSIONID。

    通过TOKEN验证的客户端,它的SESSIONID追加到SESSIONS,如果已经存在,就不要追加。

    客户端退出时,要从SEIIONS里面删除它的SESSIONID。

     TSynAuthentication = class(TSynAuthenticationAbstract)

    HTTP验证SESSION用的控件。

    包括一些操作SESSION的方法:

    检查SESSION是否已经存在

    function SessionExists(aID: integer): boolean;

    删除一个SESSION

     procedure RemoveSession(aID: integer);

    创建一个新的SESSION

     function CreateSession(const User: RawUTF8; Hash: cardinal): integer; virtual;

    它们调用的其实是更加低级的函数:

    function FastLocateIntegerSorted(P: PIntegerArray; R: PtrInt; Value: integer): PtrInt;

    function AddSortedInteger(var Values: TIntegerDynArray; var ValuesCount: integer;
    Value: integer; CoValues: PIntegerDynArray=nil): PtrInt;

    procedure DeleteInteger(var Values: TIntegerDynArray; Index: PtrInt);

    下面是演示代码:

    var
    sessions: TIntegerDynArray;
    sessionscount: Integer =0;

    // 增加一个session

    AddSortedInteger(Sessions,SessionsCount,sessionid);

    //删除一个SESSION

    procedure RemoveSession(sessionid: integer);
    var i: integer;
    begin
    Lock;
    try
    i := FastFindIntegerSorted(pointer(Sessions),SessionsCount-1,sessionid);// 找到序号
    if i>=0 then
    DeleteInteger(Sessions,SessionsCount,i);//根据序号删除
    finally
    UnLock;
    end;
    end;

    //session是否已经存在

    function SessionExists(sessionid: integer): boolean;
    begin
    Lock;
    try
    result := FastFindIntegerSorted(pointer(Sessions),SessionsCount-1,sessionid)>=0;
    finally
    UnLock;
    end;
    end;

  • 相关阅读:
    EXCEL中统计个数问题
    Boot Windows XP from a USB flash drive
    转:用VHD文件将Windows 7安装到虚拟磁盘
    CPU性能排名
    活动目录维护
    IE7占用CPU资源非常高
    不得不看:Windows Data Protection
    硬盘模式为UDMA 2.
    转载:NC6400安装Win7系统驱动列表及注意事项
    HP笔记本电池
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/8059354.html
Copyright © 2011-2022 走看看