[firebase-br] [FireDAC][Phys][FB]Error occurred during login

[Nilton Oliveira]

Bom dia,
Um Feliz Natal a todos e um próspero Ano Novo.

Vamos ao problema que estou tendo com meu sistema.

* No início usei o Firebird 3, tudo funcionando na rede perfeitamente.
* Atualmente estou atualizando o sistema, e para teste inicial, migrei para
o Firebird 5.
* Usando Delphi 11 Alexandria + Firebird 5 + FireDAC

* Quanto ao Erro:
Na máquina Servidor, funciona perfeitamente, mas na máquina Cliente, ao
iniciar o sistema causa este erro:

[FireDAC][Phys][FB]Error occurred during login, please check server
firebird.log for details.

Servidor:
-> Instalação Firebird 5.0 - versão 64 bits
-> Aplicação criado no Delphi 11 para 64 bits;
-> No Firewall foi criado a regra da porta 3050;
-> fbclient.dll (Firebird 5.0 - versão 64 bits);
-> fbclient.dll no diretório do banco de dados;

Cliente:
-> Instalação Firebird 5.0 - versão 64 bits
-> Aplicação criado no Delphi 11 para 64 bits;
-> fbclient.dll no diretório do executável (Firebird 5.0 - versão 64 bits);


* Conexão no DataModule:

procedure TfrmDM.DataModuleCreate(Sender: TObject);
var
  Ini: TIniFile;
  DBPath: string;
begin
  // Lê o INI
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
  try
    DBPath := Ini.ReadString('CONFIG', 'DATABASE', '');
    if DBPath = '' then
    begin
      DBPath := ExtractFilePath(Application.ExeName) + 'SISCP.FDB';
      Ini.WriteString('CONFIG', 'DATABASE', DBPath);
    end;
  finally
    Ini.Free;
  end;
  // Configura FireDAC
  FDConexao.Connected := False;
  FDConexao.Params.Clear;
  FDConexao.Params.Add('DriverID=FB');
  FDConexao.Params.Add('Database=' + DBPath);
  FDConexao.Params.Add('User_Name=appuser');
  FDConexao.Params.Add('Password=senha123');
  FDConexao.Params.Add('Server=127.0.0.1');
  FDConexao.Params.Add('Port=3050');
  FDConexao.Params.Add('Protocol=TCPIP');
  FDConexao.Params.Add('CharacterSet=UTF8');
  FDConexao.Params.Add('AuthClient=Srp');
  FDConexao.Params.Add('AuthServer=Srp');

  try
    FDConexao.Connected := True;
    Application.MessageBox('Conexão realizada com sucesso', 'SISCP', MB_OK);
  except
    Application.MessageBox('Não foi possivel conectar ao banco de
dados!','SISCP - Conexão falhou', MB_ICONERROR);
  end;
end;


Já fiz várias buscas na internet e não encontrei uma solução.

Desde já agradeço a todos que puderem me dar uma solução.

Atenciosamente,

Nilton Oliveira