Indy HTTP-Sever Sessionhandling/Userhandling

[mjustin]

Zitat von Hobbycoder:

Wie ich die Formulardaten auslese, weiß ich ja.
Es gibt doch in ARequestInfo AuthPassword und AuthUsername. Werden die automatisch mit bestimmten formulardaten bestückt, oder wofür werden diese genommen?

Und wie schreibe ich denn Username in die Session? Ich finde dort keine Möglichkeit.

Nein, AuthPassword und AuthUsername kennen das Loginformular und seinen HTML Code ja nicht. Sie werden bei Basic / Digest Authentifizierung gesetzt.

Request.Session.Content.Values['key']; ist auch zuweisbar. Dorthinein mit den eigenen Sessiondaten. Auch Objekte kann man in der Session ablegen, mit Request.Session.Content.Objects[Index].

[Hobbycoder]

Okay, ich habe jetzt sowas gemacht:

Delphi-Quellcode:

  doc:=ARequestInfo.Document;
  if FRooms.HTTPSettngs.LogonActive and (ARequestInfo.Session.Content.Values['isValid']<>'true') then
  begin
    if ((doc='/logon.php') and FRooms.HTTPSettngs.IndexActive) then begin
      if ARequestInfo.Params.IndexOfName('username')>-1 then
      begin
        username:=ARequestInfo.Params.Values['username'];
        if ARequestInfo.Params.IndexOfName('password')>-1 then
        begin
          password:=ARequestInfo.Params.Values['password'];
          if User(UserName)<>nil then
          begin
            ARequestInfo.Session.Content.Values['username']:=UserName;
            ARequestInfo.Session.Content.Values['isValid']:='true';
            AResponseInfo.Redirect('/');
            Exit;
          end;
        end;
      end;
    end;
    AResponseInfo.ResponseNo:=200;
    AResponseInfo.ContentText:=GenerateLogonDoc;
  end else begin
...
  end;

Ich setzte also in der Session den Username und einen Paramter "isValid".
Jetzt wäre ich davon ausgegangen, dass beim erneuten Aufruf einer Seite die Session automatisch gezogen wird (Halt solange sich nicht per Timeout entfernet wird) und ich somit den Parameter IsValid wieder auslesen kann. Ist aber nicht der Fall. Beim erneuten Aufruf ist IsValid=''.

Habe ich das mit den Sessions in Indy falsch verstanden?

So sieht meine Instanz von IdHTTPServer aus:

Delphi-Quellcode:

  FHTTP:=TIdHTTPServer.Create(nil);
  if FRooms.HTTPSettngs.OnlySSL then
  begin
    FHTTP.IOHandler:=FIdServerIOHandlerSSLOpenSLL;
  end;
  FHTTP.AutoStartSession:=True;
  FHTTP.SessionState:=True;
  FHTTP.ParseParams:=True;
  FHTTP.Bindings.Clear;
  FHTTP.SessionTimeOut:=300;
  FHTTP.SessionIDCookieName:='MyTextCookie';
  for i:=0 to FRooms.HTTPSettngs.IPs.Count-1 do
  begin
    if (FRooms.HTTPSettngs.Port>0) and (not FRooms.HTTPSettngs.OnlySSL) then
    begin
      with FHTTP.Bindings.Add do
      begin
        IP:=FRooms.HTTPSettngs.IPs[i];
        Port:=FRooms.HTTPSettngs.Port;
        ListenParams:=ListenParams+IP+':'+IntToStr(Port)+' ';
      end;
    end else
    if (FRooms.HTTPSettngs.SSLPort>0) and (FRooms.HTTPSettngs.OnlySSL) then
    begin
      with FHTTP.Bindings.Add do
      begin
        IP:=FRooms.HTTPSettngs.IPs[i];
        Port:=FRooms.HTTPSettngs.SSLPort;
        ListenParams:=ListenParams+IP+':'+IntToStr(Port)+' ';
      end;
    end else begin
      with FHTTP.Bindings.Add do
      begin
        IP:=FRooms.HTTPSettngs.IPs[i];
        Port:=80;
        ListenParams:=ListenParams+IP+':'+IntToStr(Port)+' ';
      end;
    end;
  end;
  FHTTP.OnCommandGet:=OnCommandGet;
  FHTTP.OnCommandOther:=OnCommandOther;

[mjustin]

Zitat von Hobbycoder:

Habe ich das mit den Sessions in Indy falsch verstanden?

Erhält der Client ein Session-Cookie (in der Response auf das Senden des Login-Formulars) und sendet es zurück?

[Hobbycoder]

Wie kann ich das prüfen? Ich meine Gelesen zu haben, dass IdHttp generell mit SessionCokies arbeitet.
Ich weise die nirgends zu oder so.

Zumindest mal im Firefox gibt es diese Cookie.

[mjustin]

Zitat von Hobbycoder:

Zumindest mal im Firefox gibt es diese Cookie.

Das ist schon mal ein Anfang

Hat die ARequestInfo.Session.SessionID auch den Wert den Firefox anzeigt?

[Olli73]

FHTTP.SessionTimeOut:=300; Kann es sein, dass das Millisekunden sind? Dann würde ich den Wert höher setzen. Leider steht hier nicht die Einheit dabei.

Edit: Link angepasst

[Hobbycoder]

Zitat von Olli73:

FHTTP.SessionTimeOut:=300; Kann es sein, dass das Millisekunden sind? Dann würde ich den Wert höher setzen. Leider steht hier nicht die Einheit dabei.

Edit: Link angepasst

Das war der Haken. Es sind Millisekunden, wie ich jetzt herausgefunden habe.
Den Wert hoch gesetzt, und flups....ich lande passend auf meine Seiten

Dann will ich mal weiterproggen und schauen, ob ich jetzt an all die notwendigen Daten kommen.

Aber mjustin und olli73: you made my day

[Hobbycoder]

Leider nein.

Ich habe mir mal eine Funktion geschrieben, die mir über TidHTTPServer.SessionStart und SessionEnd eine Stringliste aktualisiert.
Da kommen und gehen die SessionID's bei jedem Seitenaufruf und jedes mal eine andere.