TECH TIP: Start a New Web Session
The following example shows how to ask the global WebSessionManager to create a new session. This results in the aWebRequest.SessionID being assigned.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
uses rsWebSessionManager; procedure TWebModule1.WebModule1waDefaultAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var lWebRequest: TrsWebRequest; lSession: TrsWebSession; begin {use the incoming request parameters to create a TrsWebRequest} lWebRequest := rsWebTier1.CreateWebRequest(Request.QueryFields, Request.Content); {get the web session, this will create a new session if needed} if not rsWebTier1.SessionExists(aWebRequest) then gWebSessionManager.GetSessionForRequest(lWebRequest); ShowMessage(aWebRequest.SessionID); end; |