Question

delphi intraweb程序问题，session数量怎么取到？

程序代码中怎么取得intraweb的active sessions数目？就是intraweb程序运行时那个server面板上显示的当前active sessions值。

Answer 1

需要获得取当前的会话数目，可以借用以下的代码段：

procedure TIWForm1.IWButton1Click(Sender: TObject);
var
　LCount: integer;
begin
　try
　　LCount := GSessions.LockList.Count;
　finally
　　GSessions.UnlockList;
　end;
end;

如想更自由地来实现对所有会话进行计数，则可以在ServerController.OnNewSession或者SeverController.OnCloseSessionk中自主编程。