基於HTTP的DataSnap session管理

標籤：des   http   os   io   ar   for   cti   sp   on   

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管理