Authentification changed in latest update

Giganews Newsgroups
Subject: Authentification changed in latest update
Posted by:  Christian Kaufmann (christian.kaufma…@gmx.net)
Date: Thu, 15 Apr 2010

Hi,

when I update to the latest Tiburon branch, the following code doesn't
work anymore:

procedure TBSHttpService.HandleRequest(AContext: TIdContext; ARequest:
TIdHTTPRequestInfo; AResponse: TIdHTTPResponseInfo);
var
  info : String;
  realm: String;
begin
  info  := 'Authorization required!';
  realm := 'MyApplication';
  if not DoAuthentication(ARequest.AuthUsername,
ARequest.AuthPassword, realm, info) then begin
    AResponse.AuthRealm  := realm;
    AResponse.ContentText := info;
    Exit;
  end;

  // here comes the code when authentification was fine

end;

Is this handled differently now?

cu Christian

Replies