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 -.-