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;

TSynAuthentication SESSION驗證