Jump to content

MAPS2

Members
  • Posts

    5
  • Joined

  • Last visited

Posts posted by MAPS2

  1. On 1/9/2020 at 5:15 PM, Sherzod said:
    
    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);
        if Assigned(SS) then
          try
            SS.TerminateAfterSecs(1);
          finally
            SS.UnBusy;
          end;
      end;
    end;

     

    This code doesn't work with HyperServer, what do you need to adapt to make it work?

×
×
  • Create New...