首页 > 代码库 > 基于HTTP的DataSnap session管理
基于HTTP的DataSnap session管理
uses System.StrUtils, Datasnap.DSSession, SessionStoreObjectUI;
function TServerMethods1.EchoString(Value: string): string; begin Result := Value; end;
function TServerMethods1.ReverseString(Value: string): string; begin Result := System.StrUtils.ReverseString(Value); end;
//客户端调用http storeobject方法存储session key
function TServerMethods1.StoreObject(key, a, b, c: string): string; var Session: TDSSession; Inst: TMySessionClass; Dest: String; begin Session := TDSSessionManager.GetThreadSession; if Assigned(Session) then begin Inst := TMySessionClass.Create; Inst.a := a; Inst.b := b; Inst.c := c; Session.PutObject(key, Inst);
//return the URL wish Session ID in it for //testing getting the session data back Dest := ‘http://localhost:8080/datasnap/rest/TServerMethods1/GetObject/‘ + key + ‘?sid=‘ + Session.SessionName;
Form3.SetThenText(Dest);
Exit(Dest); end;
Result := ‘Failed to add the object to the session‘; end;
//客户端调用http getobject获得session内容
procedure TServerMethods1.GetObject(key: string; out a, b, c: string); var Session: TDSSession; Inst: TMySessionClass; begin Session := TDSSessionManager.GetThreadSession; if Assigned(Session) then begin Inst := TMySessionClass(Session.GetObject(key)); if Assigned(Inst) then begin a := Inst.a; b := Inst.b; c := Inst.c; Exit; end; end; a := ‘Failed to load data for key: ‘ + key; end;
基于HTTP的DataSnap session管理