Session List Demo Question

[mos]

In the Session List Demo what does the following piece of code do and why is it required when terminating a session:

 

SS.UnBusy;

All the online documentation says is:

  This is UnBusy, a member of class TUniGUISession.

[mos]

@Sherzodor @Farshad Mohajeri can you tell me what UnBusy does and why it's used in the Demo?

 

[Farshad Mohajeri]

procedure TMainForm.UniButton2Click(Sender: TObject);
var
  SId : string;
  SS : TUniGUISession;
begin
  SId := ClientDataSet1.FieldByName('sessionid').AsString;
  if (SId <> '') and (SId <> UniSession.SessionId) then
  begin
    SS := UniServerModule.GetSession(SId);  // this will also mark session as "Busy", so session won't be terminated while still in use by us
    if Assigned(SS) then
      try
        SS.TerminateAfterSecs(1);
      finally
        SS.UnBusy; // we need to manually clear the "Busy" flag so session will be released and terminated
      end;
  end;
end;