Ich habe die Methode Test mal etwas abgewandelt:
Delphi-Quellcode:
procedure TWebModule1.WebModule1TestAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
N: Integer;
S: String;
begin
S := String(Request.Authorization);
N := Pos(' ',S);
if N > 0 then
begin
Delete(S,1,N);
S := TIdDecoderMIME.DecodeString(s);
N := Pos(':',S);
if N > 0 then
begin
Response.Content:=Request.GetFieldByName('ALL_RAW');
Exit;
end;
end;
Response.WWWAuthenticate := 'Basic';
Response.StatusCode := 401;
end;
Damit wird jetzt der komplette Header, der vom Browser an den Server übertragen wird, angezeigt:
Code:
Connection: Keep-Alive
Content-Length: 0
Accept: text/
html, application/xhtml+
xml, */*
Accept-Encoding: gzip, deflate
Accept-Language: de-DE
Authorization: Basic VGVzdDpCbHVi
Cookie: [...]
Host: maps4delphi.com
User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
X-Original-
URL: /test
Hier kann man schön sehen, daß die Anmeldedaten wirklich im Wert "Authorization" enthalten sind.
Funktioniert das bei Dir in der Delphi 7
Dll?