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;
It works for me. But with one excluding of course:
The following sequence doesn't work
Enter (works) -> ESC (doesn't work) (and this is normal...)
What do you want to achieve?
Hello,
Sorry for the late response.
Well first of all you can look at the documentation:
http://unigui.com/doc/online_help/deployment_options.htm
http://unigui.com/doc/online_help/isapi_module.htm