unigui的session【1】

合集 - unigui(25)

1.unidbgrid的rowedit=true2022-09-062.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-31

3.unigui的session【1】2018-05-02

4.unigui菜单【3】2018-08-035.unigui的ini文件读写【6】2018-09-206.unigui导出TMS.Flexcel【5】2018-08-137.unigui+fastreport 打印【4】2018-08-118.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-169.unigui显示websocket服务端向客户端发送信息【15】2023-12-2510.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-0111.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-0212.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-0213.学习unigui【20】unistringGrid2024-02-2714.学习unigui【21】unistringGrid的标题栏动态增加2024-02-2915.学习unigui【22】unistringGrid的标题栏双击事件2024-03-0116.学习unigui【23】uniDBGrid的使用摘要2024-03-0917.学习unigui【25】关于图标2024-05-3018.学习unigui【24】Echart的使用：多个坐标系2024-04-2019.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-3120.学习unigui【27】像pg的jsonb一样编辑json。2024-06-0321.unigui的菜单树补习【2】treeview2018-08-0122.unigui的程序编译后自动运行傻傻的手动【7】2021-04-2823.unigui的ServerModule的重要属性【8】2021-04-2924.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-0325.学习unigui【28】UniGUI接收POST/GET2024-10-16

收起

目前是1394。

明白session如何使用管理，看demo Session List和SessionTimeout

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUIBaseClasses, uniButton,
  DB, DBClient, uniBasicGrid, uniDBGrid;

type
  TUniSessionInfoRec = record
    ASessionId : string;
    AIP : string;
    AMyVar : string;
    ALastTime: TDateTime;
  end;

  TMainForm = class(TUniForm)
    UniButton1: TUniButton;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    ClientDataSet1SessionId: TStringField;
    ClientDataSet1IP: TStringField;
    ClientDataSet1LastTime: TDateTimeField;
    UniDBGrid1: TUniDBGrid;
    ClientDataSet1MyVar: TStringField;
    procedure UniButton1Click(Sender: TObject);
    procedure UniFormCreate(Sender: TObject);

    { Private declarations }
  public
    { Public declarations }
    ASessionList : array of TUniSessionInfoRec;
  end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication, uniGUISessionManager,
  ServerModule;

function MainForm: TMainForm;
begin
  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  S : TUniGUISessions;
  U : TUniGUISession;
  I : Integer;
begin
  S := UniServerModule.SessionManager.Sessions;
  S.Lock; // Using Lock on session manager should be used with extreme care.
          // We should keep the "Lock duration"  as short as we can. Session Manager stops working until lock is released.
          // Excessive use of lock/unlock or keeping the lock active for a long period will make uniGUI server slow/unresponsive.
  try
    SetLength(ASessionList, S.SessionList.Count);

    // Here we do a fast copy of list to another array for later use.
    for I := 0 to S.SessionList.Count - 1  do
    begin
      U := S.SessionList[I];
      ASessionList[I].ASessionId := U.SessionId;
      ASessionList[I].AIP := U.RemoteIP;
      ASessionList[I].ALastTime := U.LastTimeStamp;
      if U.UniMainModule <> nil then // Check mainModule availability. Some sessions may not have a MainModule instance
        ASessionList[I].AMyVar := (U.UniMainModule as TUniMainModule).FMyStringVar; // Access custom MainModule props
    end;
  finally
    S.Unlock; // ... and finally don't forget to release lock!
  end;

  ClientDataSet1.EmptyDataSet;
  for I := Low(ASessionList) to High(ASessionList) do
  begin
    ClientDataSet1.Append;
    ClientDataSet1.FieldByName('sessionid').AsString := ASessionList[I].ASessionId;
    ClientDataSet1.FieldByName('ip').AsString := ASessionList[I].AIP;
    ClientDataSet1.FieldByName('lasttime').AsDateTime := ASessionList[I].ALastTime;
    ClientDataSet1.FieldByName('myvar').AsString := ASessionList[I].AMyVar;
    ClientDataSet1.Post;
  end;

end;

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniMainModule.FMyStringVar := TimeToStr(Now);
end;

initialization
  RegisterAppFormClass(TMainForm);

end.

注意代码中的注释