OAuth2 | Autenticação do Servidor

Quando um cliente OAuth2 solicita uma nova Autorização, o servidor exibe uma página web onde o usuário deve permitir a conexão e então fazer login. Esta página é fornecida pela biblioteca sgcWebSockets e é despachada automaticamente quando um cliente solicita uma Autorização.

 

 

Se o usuário Permitir o acesso, um formulário de login será exibido onde o usuário deve definir o Username e a Password.

Estes dados serão recebidos no evento OnOAuth2Authentication, portanto você deve validar se o usuário/senha está correto e, se estiver, então definir o parâmetro Authenticated como true.

 

procedure OnAuth2Authentication(Connection: TsgcWSConnection; OAuth2: TsgcHTTPOAuth2Request; aUser, 
  aPassword: string; var Authenticated: Boolean);
begin
  if ((aUser = 'user') and (aPassword = 'secret')) then
    Authenticated := True;
end;