Hallo,
ich versuche mich gerade etwas in DataSnap einzuarbeiten. Ich möchte einen REST-Server machen, da meine Clients diverse Betriebssysteme/Umgebungen haben werden.
Ich habe also einfach mal vom Wizard eine Anwendung erstellen lassen, mit der Beispielmethode "EchoString". Wenn ich im Browser die entsprechende
URL aufrufe, funktioniert das auch. Nun möchte ich HTTPAuth hinzufügen. Also beim Wizard "HTTP Auth" angehakt und DSHTTPServiceAuthenticationManager1HTTPAuthenticat e implementiert:
Delphi-Quellcode:
procedure TServerContainer1.DSHTTPServiceAuthenticationManager1HTTPAuthenticate(
Sender: TObject; const Protocol, Context, User, Password: string;
var valid: Boolean);
begin
WriteLn('User: ' + User);
Writeln('Password: ' + Password);
Valid := (User = 'Jens') and (Password = '123');
end;
Nun rufe ich im Browser wieder die
URL auf, und erwarte eigentlich, dass ich nach Benutzernamen und Passwort gefragt werden. Passiert aber nicht. Ich bekomme nur eine leere Seite zu sehen. Wenn ich einen Breakpoint setze, sehe ich, dass der Code aufgerufen wird. In User und auch in Password steht allerdings nur ''.
Was mach ich falsch?
Umgebung ist momentan noch Delphi 2010, wird in naher Zukunft aber XE3 sein.