Только один сеанс одного и того же приложения, за пользователя, за один раз, в Intraweb

Question

Я пытаюсь исследовать внутри Intraweb для Delphi 2010. У меня есть веб-страница внутри приложения CRM, и каждый раз, когда пользователь перебрасывает клиента, веб-страница обновляется. Однако сеансы «старых» страниц остаются активными, и я получаю «издание ограничено 5 активными сеансами». Как удалить старые сеансы, когда создается новый сеанс, он должен быть одним и тем же идентификатором приложения и только для текущего пользователя.

Answer 1

Я закончил с этим. https://forums.embarcadero.com/thread.jspa?messageID=525644

procedure TIWServerController.IWServerControllerBaseNewSession 
    (ASession: TIWApplication; var VMainForm: TIWBaseForm); 
var 
    i:  integer; 
    List: TList; 
    App: TIWApplication; 
begin 
    List:=GSessions.LockList; 
    try 
     for i:=0 to List.Count - 1 do begin 
      App:=TIWApplication(List[i]); 
      if App <> ASession then begin 
       GSessions.Remove(App); 
       App.Free; 
      end; 
     end; 
    finally 
     GSessions.UnLockList; 
    end; 
    ASession.Data:=TIWUserSession.Create(nil); 
end;