Hallo Stephan,
ändere mal im Quelltext folgenden Abschnitt:
Delphi-Quellcode:
[...]
if N > 0 then begin
Delete(S,1,n);
S := TIdDecoderMIME.DecodeString(S);
N := Pos(':',S);
if N > 0 then begin
sAuthorization := Format('Username: %s'+ sLineBreak +'Password: %s',[Copy(S,1,N-1),Copy(S,N+1,Length(S)-N+1)]);
end;
end else //<- ab hier zusätzlich
begin
Response.WWWAuthenticate := 'Basic';
Response.StatusCode := 401;
Exit;
end;
[...]
Ansonsten fordert der Server keine Autorisation an und damit wird diese auch nicht angezeigt. Im Feuerfuchs funktioniert das auch mit
Username:Password@xyz.
P.S.: Test
hier.