idHTTPServer : Einloggen

[SubData]

Wenn du es dir ein wenig einfacher machen möchtest, dann setz mal ParseParams auf True und du kannst auf die Werte wie folgt zugreifen:

Delphi-Quellcode:

if ((ARequestInfo.Params.Values['user'] = 'admin') and (ARequestInfo.Params.Values['pass'] = 'test')) then
begin
  // Blubb usw...
end;

Ausserdem gibt es noch eine richtige HTTP Authentifizierung...

Delphi-Quellcode:

      if ((ARequestInfo.AuthUsername <> 'admin') or (ARequestInfo.AuthPassword <> 'pass')) then
      begin
        AResponseInfo.ContentText := 'Bitte Admin-Benutzernamen und Kennwort eingeben...';
        AResponseInfo.AuthRealm := 'Admin Bereich';
        exit;
      end;

Edit: Blödsinn beseitigt -g-

Edit2: Du brauchst übrigens auch nicht immer einen Stream sondern kannst einfach ContentText setzen, das hat den gleichen Effekt ;>

Edit3: Nochmal Blödsinn beseitigt -.-