SQL Error: SSL error

[Josenice]

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;

[himitsu]

PORTA ou DOOR?
Connection ou Conexao?


Postar credenciais aqui publicamente pode não ser a melhor ideia.
(Google e companhia espalharam isso em todos os outros lugares :wink :)

O que é zConexao?

pg_hba soa como Postgre
e lá o SLL não é configurado incorretamente ou não é configurado no lado do servidor. :ninhada:


PS: Seria bom se você incluísse o código em [delphi]...[/delphi].

[jobo]

Ist das echt?

Nun denn:
Isto provavelmente não tem nada a ver com a Delphi.
Familiarize-se com a configuração do Postgres:
postgresql.conf :
listen_addresses = '...'.


Coloque aí os seus próprios endereços IP para que sejam autorizados a passar.



pg_hba.conf
também introduzir uma entrada válida para MD5 ou outro método auth.

Atenção, se o BD estiver na Internet, só deve permitir IP específico e não publicar palavra-passe e utilizador.

Dica: Tente ligar-se à base de dados sem Delphi com um programa como

Code:

psql

para se ligar à base de dados. Desde que isto não funcione, não precisa de tentar com Delphi.

Dica: Se o SSL estiver envolvido, certifique-se de que as bibliotecas estão actualizadas.

Traduzido com a versão gratuita do tradutor - www.DeepL.com/Translator

[himitsu]

Nunja, zumindestens konnte ich heute früh im Google noch keine Teile davon finden, wo ein böser Bot sich das zusammenkopiert haben könnte. (protugisisch und englisch)

Einfacher wäre es schon, wenn Er auf deutsch oder englisch übersetzen würde, dann könnten wir es einfacher lesen/verstehen und es muß nicht jeder mühevoll machen.