Tenho uma aplicação desenvolvida em Delphi XE
com Banco Postgres, coloquei o banco de dados no Heroku. Coloco todas as credenciais corretas, mas aparece a seguinte mensagem:
SQL Error: SSL error: tlsv1 alert protocol version FATAL: no pg_hba.conf entry for host "187.61.182.1, user "vxqvukpycrebwb", database "d3etp4q555kjig", sem criptografia.
Para acessar o banco de dados passo
os parâmetros através de um arquivo .ini, abaixo segue o conteúdo do arquivo.
[Connection]
HOSTNAME= ec2-50-19- 255-190. compute-1.amazonaws.com
DATABASE=d3etp4q555kjig
USER=vxqvukpycrebwb
PASSWORD= 3444cce7f699d9b40d8f9b16bccfbc0655ea637b23277ab680 3dc592f2d6 d460
DOOR=5432
Procedure de leitura do arquivo .ini
procedure TDM.DataModuleCreate(Sender: TObject);
var ArqIni: TIniFile;
i: Integer;
begin
ArqIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Cone xao.ini');
FreeAndNil(ArqIni);
ArqIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Cone xao.ini');
{
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.SSLOptions.SSLVersions := [sslvTLSv1_1, sslvTLSv1_2];
HTTP.IOHandler := SSL; }
Try
Try
FrmPrincipal.zConexao.Hostname := ArqIni.ReadString('Conexao', 'HOSTNAME', '');
FrmPrincipal.zConexao.DataBase := ArqIni.ReadString('Conexao', 'DATABASE', '');
FrmPrincipal.zConexao.User := ArqIni.ReadString('Conexao', 'USER', '');
FrmPrincipal.zConexao.Password := ArqIni.ReadString('Conexao', 'PASSWORD', '');
FrmPrincipal.zConexao.Port := ArqIni.ReadInteger('Conexao', 'PORTA', 0);
FrmPrincipal.zConexao.Connected := True;
//sslmode :=require;
Except
//ShowMessage('Erro ao tentar se conectar ao Banco de Dados!');
//ApagaProcessos('Macrotik.exe');
End;
Finally
FreeAndNil(ArqIni);
End; //teste...
listaServ := TStringList.Create;
end;