Problem mit IdHTTPserver Session

[Hobbycoder]

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.

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

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?

[Olli73]

Probiers mal mit RequestInfo.Session.Lock / .unlock

[Hobbycoder]

Zitat von Olli73:

Probiers mal mit RequestInfo.Session.Lock / .unlock

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

[Hobbycoder]

Zitat von Olli73:

Probiers mal mit RequestInfo.Session.Lock / .unlock

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

[Olli73]

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

[Hobbycoder]

Zitat von Olli73:

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

Super, Danke