donlego Posted January 24, 2019 Share Posted January 24, 2019 Hyperserver get all session list Need this feature,like traditional unigui Link to comment Share on other sites More sharing options...
Marlon Nardi Posted January 30, 2019 Share Posted January 30, 2019 Up http://jira.fmsoft.net/servicedesk/customer/portal/4/FSD-715 Link to comment Share on other sites More sharing options...
Mohammed Nasman Posted February 18, 2019 Share Posted February 18, 2019 +1 Link to comment Share on other sites More sharing options...
mhmda Posted February 18, 2019 Share Posted February 18, 2019 +1 Link to comment Share on other sites More sharing options...
delagoutte Posted February 18, 2019 Share Posted February 18, 2019 +1 1 Link to comment Share on other sites More sharing options...
multimesut Posted March 5, 2019 Share Posted March 5, 2019 hi, you can fix it with mysql. MainModule; procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject); begin MyQuery2.SQL.Clear; MyQuery2.SQL.Add('INSERT INTO sessions (sessionid,logindate) VALUES (:sessionid,:logindate)'); MyQuery2.Params.ParamByName('sessionid').Value:=UniSession.SessionId; MyQuery2.Params.ParamByName('logindate').Value:=Now; MyQuery2.ExecSQL; end; procedure TUniMainModule.UniGUIMainModuleDestroy(Sender: TObject); begin MyQuery2.SQL.Clear; MyQuery2.SQL.Add('DELETE FROM sessions where sessionid=:sessionid'); MyQuery2.Params.ParamByName('sessionid').Value:=UniSession.SessionId; MyQuery2.ExecSQL; end; SQL; DROP TABLE IF EXISTS `sessions`; CREATE TABLE `sessions` ( `sessionid` varchar(50) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL, `logindate` datetime(0) NULL DEFAULT NULL, `killsession` tinyint(1) NULL DEFAULT 0 ) ENGINE = MEMORY CHARACTER SET = utf8 COLLATE = utf8_general_ci ROW_FORMAT = Fixed; Link to comment Share on other sites More sharing options...
donlego Posted March 5, 2019 Author Share Posted March 5, 2019 1 minute ago, multimesut said: hi, you can fix it with mysql. MainModule; procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject); begin MyQuery2.SQL.Clear; MyQuery2.SQL.Add('INSERT INTO sessions (sessionid,logindate) VALUES (:sessionid,:logindate)'); MyQuery2.Params.ParamByName('sessionid').Value:=UniSession.SessionId; MyQuery2.Params.ParamByName('logindate').Value:=Now; MyQuery2.ExecSQL; end; procedure TUniMainModule.UniGUIMainModuleDestroy(Sender: TObject); begin MyQuery2.SQL.Clear; MyQuery2.SQL.Add('DELETE FROM sessions where sessionid=:sessionid'); MyQuery2.Params.ParamByName('sessionid').Value:=UniSession.SessionId; MyQuery2.ExecSQL; end; SQL; DROP TABLE IF EXISTS `sessions`; CREATE TABLE `sessions` ( `sessionid` varchar(50) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL, `logindate` datetime(0) NULL DEFAULT NULL, `killsession` tinyint(1) NULL DEFAULT 0 ) ENGINE = MEMORY CHARACTER SET = utf8 COLLATE = utf8_general_ci ROW_FORMAT = Fixed; i was try with the method like that, but 1.refresh the browser, the session id is changed, so the ondestroy function not found the before refresh sessionid 2. if the server reboot or failure then on server startup i must create other desktop service to clear all session on database 1 Link to comment Share on other sites More sharing options...
donlego Posted July 24, 2019 Author Share Posted July 24, 2019 is there a plan to add this feature to hyperserver ? 1 Link to comment Share on other sites More sharing options...
mhmda Posted July 28, 2019 Share Posted July 28, 2019 We use DB for that misson in order to manage sessions in nodes. Link to comment Share on other sites More sharing options...
donlego Posted July 29, 2019 Author Share Posted July 29, 2019 hi mhmda, can you explain to me, what you do if the web server restarts or the server restarts, do you create 1 small application to empty the session list in the database on the server statrtup or web server startup ? 1 Link to comment Share on other sites More sharing options...
Recommended Posts