Hi Leute,

ich taste mich mal wieder an das Thema IdHTTPServer / Session ran. Bisher habe ich das immer irgendwie anders gelöst, aber nun möchte ich das mal mit der integrierten Session probieren.
Session wird auch erstellt, aber wenn ich dort Content ablegen will habe ich ein Problem.

markieren

Delphi-Quellcode:

    FHttpServer.OnCommandGet:=OnCommand;
    FHttpServer.Bindings.Clear;
    FHttpServer.DefaultPort:=FPort;
    FHttpServer.SessionState:=True;
    FHttpServer.AutoStartSession:=True;
    FHttpServer.SessionTimeOut:=5000;
    FHttpServer.Active:=True;

Und im OnCommand

zusammenfalten · markieren

Delphi-Quellcode:

  try
    user:=GetField(ARequestInfo, 'Username');
    pass:=GetField(ARequestInfo, 'Password');
    if (user<>'') and (pass<>'') then
    begin
      u:=FUserList.Login(user, pass);
      if u<>nil then
      begin
        ARequestInfo.Session.Content.AddPair('Username', u.Username);
        ARequestInfo.Session.Content.AddPair('Guid', u.Guid);
...

Im ersten ARequestInfo.Session.Content.AddPair existiert "Content" noch.
Beim zweiten ist Content dann nil. (siehe Anhang).

Wie macht man's richtig?

Gibt's irgendwo mal ein richtig gutes Tutorial für das alles?

Probiers mal mit RequestInfo.Session.Lock / .unlock

Zitat von Olli73:

Probiers mal mit RequestInfo.Session.Lock / .unlock

markieren

Delphi-Quellcode:

        ARequestInfo.Session.Lock;
        ARequestInfo.Session.Content.AddPair('Username', u.Username);
        ARequestInfo.Session.Content.AddPair('Guid', u.Guid);
        ARequestInfo.Session.Unlock;

Funktioniert, jedoch nur zur Runtime.
Beim Debuggen ist Content im zweiten AddPair = nil. Ich glaube aber so komme ich weiter.

Danke schön

Zitat von Olli73:

Probiers mal mit RequestInfo.Session.Lock / .unlock

Du kannst mir nicht zufällig sagen, wie man eine Session manuell löscht?

Probier Mal Server.EndSession(RequestInfo.Session.SessionID)

Zitat von Olli73:

Probier Mal Server.EndSession(RequestInfo.Session.SessionID)

Super, Danke