developer-delphi-to-fpc-horse-basic-auth

Versão interna (ficheiro)

Responsabilidade única

Middleware de autenticação HTTP Basic (cabeçalho Authorization: Basic ...) para Horse.

When to use

• Validar username/password via cabeçalho Basic Auth
• Proteger rotas com autenticação simples
• Integração servidor-a-servidor (Basic Auth para APIs internas)

When NOT to use

• Autenticação JWT Bearer → developer-delphi-to-fpc-horse-jwt
• Geração/validação de tokens JWT → developer-delphi-to-fpc-horse-security

Documento canônico

app/package/docs/pacotes/horse-basic-auth.md

HorseBasicAuthentication — sobrecargas

IHorseBasicAuthenticationConfig — configuração

Exemplos

Global — todas as rotas

delphi
1uses Horse, Horse.BasicAuthentication;
2
3begin
4  THorse.Use(HorseBasicAuthentication(
5    function(const AUsername, APassword: string): Boolean
6    begin
7      Result := AUsername.Equals('user') and APassword.Equals('password');
8    end));
9
10  THorse.Get('/ping',
11    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
12    begin
13      Res.Send('pong');
14    end);
15
16  THorse.Listen(9000);
17end.

Com configuração completa

delphi
1THorse.Use(HorseBasicAuthentication(
2  ValidarCredenciais,
3  THorseBasicAuthenticationConfig.New
4    .Header('Authorization')
5    .RealmMessage('GestorERP API')
6    .SkipRoutes(['/health', '/swagger/doc/html', '/auth/refresh'])
7));

Validação contra base de dados

delphi
1function ValidarCredenciais(const AUsername, APassword: string): Boolean;
2var LQuery: TFDQuery;
3begin
4  Result := False;
5  LQuery := TFDQuery.Create(nil);
6  try
7    LQuery.Connection := DM.Conexao;
8    LQuery.SQL.Text :=
9      'SELECT 1 FROM usuarios WHERE login = :u AND senha_hash = :p AND ativo = 1';
10    LQuery.ParamByName('u').AsString := AUsername;
11    LQuery.ParamByName('p').AsString := HashSenha(APassword);
12    LQuery.Open;
13    Result := not LQuery.IsEmpty;
14  finally
15    LQuery.Free;
16  end;
17end;

Proteção por rota (AddCallback)

delphi
1// Rota pública
2THorse.Get('/health',
3  procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
4  begin
5    Res.Send('ok');
6  end);
7
8// Rotas privadas com Basic Auth
9THorse
10  .AddCallback(HorseBasicAuthentication(ValidarCredenciais))
11  .Get('/admin/report', ProcRelatorio);

Lazarus / FPC

delphi
1{$MODE DELPHI}{$H+}
2uses Horse, Horse.BasicAuthentication, SysUtils;
3
4function DoLogin(const AUsername, APassword: string): Boolean;
5begin
6  Result := AUsername.Equals('user') and APassword.Equals('password');
7end;
8
9begin
10  THorse.Use(HorseBasicAuthentication(DoLogin));
11  THorse.Get('/ping', GetPing);
12  THorse.Listen(9000);
13end.

Notas GestorERP

• Basic Auth apenas em canais HTTPS — nunca em HTTP puro
• Hashear passwords com BCrypt ou SHA-256+salt (nunca plaintext)
• Preferir JWT para sessões longas; Basic Auth para integrações servidor-a-servidor
• unit a usar: Horse.BasicAuthentication

Changelog (este arquivo)

• 1.0.0 (12/04/2026): Criação — skill middleware Basic Auth.