connection rejected by remote interface

[hintz]

Fiz uma instalação nova.

Note zerado, com Win Home Single Language.

Instalei o Delphi X8 e todas as minhas bibliotecas.

Instalei o Firebird 2.5

Quando vou dar um conected em um IbDatabase da a seguinte mensagem:

connection rejected by remote interface.

No zeos e firedac conectam normalmente.

Andei pesquisando e encontrei o seguinte:

A GDS32.DLL, sei lá porque tava dando incompatibilidade, apesar de estar
usando apenas a FBCLIENT.DLL..

mas não estou conseguindo resolver o problema.

Alguém pode me ajudar??

[Juliomar Marchetti]

Tá instalou que firebird? win32 ou win64?

e sua aplicação é win32 ou win64?

está usando localhost ou o ip?

liberou a remoteport no firebird.config?

liberou a porta 3050 no firewall?

veja diversas coisas

[hintz]

8 horas atrás, Juliomar Marchetti disse:

Tá instalou que firebird? win32 ou win64?

e sua aplicação é win32 ou win64?

está usando localhost ou o ip?

liberou a remoteport no firebird.config?

liberou a porta 3050 no firewall?

veja diversas coisas

Instalei o Firebid win 32 e minha aplicação é win32.

Uso o 127.0.0.1 local

a principio o firewal esta desligado mas mesmo assim liberei a porta 3050

a remotepor no firebird.config. Nunca fiz. preciso de ajuda.

[Juliomar Marchetti]

Uma dúvida está conseguindo conectar com alguma ferramenta ibexpert, flamerobin o seu banco de dados nesse micro?

[BigWings]

11 horas atrás, hintz disse:

A GDS32.DLL, sei lá porque tava dando incompatibilidade, apesar de estar
usando apenas a FBCLIENT.DLL..

Não ficou claro.. você resolveu o problema da GDS32.DLL?

Até onde sei o IBDatabase depende dessa DLL.

- Desinstale o Firebird.

- Verifique se a GDS32.DLL foi removida da pasta do Windows\SysWOW64 ou Windows\System32.

- Refaça a instalação marcando a opção para gerar a GDS32 para retrocompatibilidade.

[hintz]

1 hora atrás, Juliomar Marchetti disse:

Uma dúvida está conseguindo conectar com alguma ferramenta ibexpert, flamerobin o seu banco de dados nesse micro?

Se eu utilizar a fbclient.dll no ibexpert, consigo. Usando a gds32.dll não.

[Juliomar Marchetti]

Conferiu se o gds32.dll não é do mesmo tamanho do fbclient.dll? pois no instalar o firebird simplismente copia o fbclient.dll e renomeia para gds32.dll

[hintz]

7 minutos atrás, Juliomar Marchetti disse:

Conferiu se o gds32.dll não é do mesmo tamanho do fbclient.dll? pois no instalar o firebird simplismente copia o fbclient.dll e renomeia para gds32.dll

no C:\Windows\SysWOW64 o gds32.dll esta com tamanho 1.258 kb e fbcliente.dll com 540 kb.

[Juliomar Marchetti]

16 minutos atrás, hintz disse:

no C:\Windows\SysWOW64 o gds32.dll esta com tamanho 1.258 kb e fbcliente.dll com 540 kb.

Achou um possível problema

faça backup do gds32.dll e copiei o fbclient.dll e renomeie o mesmo e depois teste

[hintz]

6 minutos atrás, Juliomar Marchetti disse:

Achou um possível problema

faça backup do gds32.dll e copiei o fbclient.dll e renomeie o mesmo e depois teste

Deu certo. MUUUUUITO obrigado.

Como fica quando levo para o cliente? Tenho que levar a gds32.dll que eu renomeei agora?

Agora, hintz disse:

Deu certo. MUUUUUITO obrigado. Deus te abençoe.

Como fica quando levo para o cliente? Tenho que levar a gds32.dll que eu renomeei agora?

 

[Juliomar Marchetti]

Sim. leva e deixa junto ao executável

[Sergio de Souza Gomes]

estou com o mesmo problema.

quando compilo 32 bits funciona normalmente, mas em 64 não.

tentei a solução acima, mas não deu certo.

uso Delphi 10.3.3 Rio

 

Agradeço alguma ajuda

 

[Juliomar Marchetti]

2 horas atrás, Sergio de Souza Gomes disse:

estou com o mesmo problema.

quando compilo 32 bits funciona normalmente, mas em 64 não.

tentei a solução acima, mas não deu certo.

uso Delphi 10.3.3 Rio

 

Agradeço alguma ajuda

 

primeiro não use o IBX pois ele é pra interbase e está distante do firebird

pois a gds32 e a fbclient estão distantes.

portanto use um engine que suporte o fbclient

[Sergio de Souza Gomes]

Obrigado Juliomar pela orientação!

Estou migrando do Delphi 7 para o 10, então ainda estou verde nessa versão.

Para manutenção dos dados (inclusão, alteração e exclusão) estou usando o FireDac, mas para pesquisas estou usando o IbQruery, pois trouxe esse sistema do Delphi 7 para o 10.

compila tanto para 32 e 64, mas so funciona no 32. Veja como faço a pesquisa.

  wSaldo_Anterior := 0;
  //Achar Saldo Inicio do Dia
  dmBase.IBQryPesquisa.Close;
  dmBase.IBQryPesquisa.SQL.Clear;
  dmBase.IBQryPesquisa.SQL.Add('Select * from FATURAS ');
  dmBase.IBQryPesquisa.SQL.Add('where ( ((DATA_RECEBIMENTO IS NULL) and (VENCIMENTO < :wDT1)) ');
  dmBase.IBQryPesquisa.SQL.Add(' or   ((NOT DATA_RECEBIMENTO IS NULL) and (DATA_RECEBIMENTO < :wDT1)) )');

  if DBLookupComboBox1.Text <> '' then
     begin
      dmBase.IBQryPesquisa.SQL.Add(' and N_CONTA = :wCONTA and COD_BANCO = :wBANCO and COD_AGENCIA = :wAGENCIA ');
      dmBase.IBQryPesquisa.ParamByName('wCONTA').AsString := dmBase.FDQryBancosN_CONTA.AsString;
      dmBase.IBQryPesquisa.ParamByName('wBANCO').AsInteger := dmBase.FDQryBancosCOD_BANCO.AsInteger;
      dmBase.IBQryPesquisa.ParamByName('wAGENCIA').AsInteger := dmBase.FDQryBancosCOD_AGENCIA.AsInteger;

      //dmBase.IBQryPesquisa.SQL.Add(' and (NOT N_CONTA IS NULL) ');
     end;

  //dmBase.IBQryPesquisa.ParamByName('wDT1').AsDate := DTP1.Date;
  dmBase.IBQryPesquisa.ParamByName('wDT1').AsDate := DP1.Date;

  dmBase.IBQryPesquisa.Prepare;      //o problema ocorre aqui 
  dmBase.IBQryPesquisa.Open;

  dmBase.IBQryPesquisa.First;
  while not dmBase.IBQryPesquisa.Eof do
   begin
    if not dmBase.IBQryPesquisa.FieldByName('DATA_RECEBIMENTO').IsNull then
       wSaldo_Anterior := wSaldo_Anterior + dmBase.IBQryPesquisa.FieldByName('VALOR_RECEBIDO').AsCurrency
    else
       wSaldo_Anterior := wSaldo_Anterior + dmBase.IBQryPesquisa.FieldByName('VALOR').AsCurrency;

    dmBase.IBQryPesquisa.Next;
   end;

  dmBase.IBQryPesquisa.Close;

 

Desde já agradeço a ajuda
 

 

[Juliomar Marchetti]

13 minutos atrás, Sergio de Souza Gomes disse:

Obrigado Juliomar pela orientação!

Estou migrando do Delphi 7 para o 10, então ainda estou verde nessa versão.

Para manutenção dos dados (inclusão, alteração e exclusão) estou usando o FireDac, mas para pesquisas estou usando o IbQruery, pois trouxe esse sistema do Delphi 7 para o 10.

compila tanto para 32 e 64, mas so funciona no 32. Veja como faço a pesquisa.

  wSaldo_Anterior := 0;
  //Achar Saldo Inicio do Dia
  dmBase.IBQryPesquisa.Close;
  dmBase.IBQryPesquisa.SQL.Clear;
  dmBase.IBQryPesquisa.SQL.Add('Select * from FATURAS ');
  dmBase.IBQryPesquisa.SQL.Add('where ( ((DATA_RECEBIMENTO IS NULL) and (VENCIMENTO < :wDT1)) ');
  dmBase.IBQryPesquisa.SQL.Add(' or   ((NOT DATA_RECEBIMENTO IS NULL) and (DATA_RECEBIMENTO < :wDT1)) )');

  if DBLookupComboBox1.Text <> '' then
     begin
      dmBase.IBQryPesquisa.SQL.Add(' and N_CONTA = :wCONTA and COD_BANCO = :wBANCO and COD_AGENCIA = :wAGENCIA ');
      dmBase.IBQryPesquisa.ParamByName('wCONTA').AsString := dmBase.FDQryBancosN_CONTA.AsString;
      dmBase.IBQryPesquisa.ParamByName('wBANCO').AsInteger := dmBase.FDQryBancosCOD_BANCO.AsInteger;
      dmBase.IBQryPesquisa.ParamByName('wAGENCIA').AsInteger := dmBase.FDQryBancosCOD_AGENCIA.AsInteger;

      //dmBase.IBQryPesquisa.SQL.Add(' and (NOT N_CONTA IS NULL) ');
     end;

  //dmBase.IBQryPesquisa.ParamByName('wDT1').AsDate := DTP1.Date;
  dmBase.IBQryPesquisa.ParamByName('wDT1').AsDate := DP1.Date;

  dmBase.IBQryPesquisa.Prepare;      //o problema ocorre aqui 
  dmBase.IBQryPesquisa.Open;

  dmBase.IBQryPesquisa.First;
  while not dmBase.IBQryPesquisa.Eof do
   begin
    if not dmBase.IBQryPesquisa.FieldByName('DATA_RECEBIMENTO').IsNull then
       wSaldo_Anterior := wSaldo_Anterior + dmBase.IBQryPesquisa.FieldByName('VALOR_RECEBIDO').AsCurrency
    else
       wSaldo_Anterior := wSaldo_Anterior + dmBase.IBQryPesquisa.FieldByName('VALOR').AsCurrency;

    dmBase.IBQryPesquisa.Next;
   end;

  dmBase.IBQryPesquisa.Close;

 

Desde já agradeço a ajuda
 

 

é esse o porém que falei acima. tu pode pegar a versão win32 do fbclient.dll e renomear para gds32.dll mas ainda assim vai ter que problemas

[Sergio de Souza Gomes]

Sim Juliomar, fiz isso e o problema continua.

Você tem alguma sugestão e/ou exemplos de como posso substituir essas linhas de programação com outro objeto?

te agradeço muito a sua ajuda.

[Juliomar Marchetti]

14 horas atrás, Sergio de Souza Gomes disse:

Sim Juliomar, fiz isso e o problema continua.

Você tem alguma sugestão e/ou exemplos de como posso substituir essas linhas de programação com outro objeto?

te agradeço muito a sua ajuda.

como assim substituir?

ali tu fala que não roda em win64. é que ele precisa da dll´s de acesso ao banco da versão win64 se a compilação é win64

[Sergio de Souza Gomes]

Bom Dia Juliomar,

Fiz o inverso, na pasta Program Files\Embarcadero\studio\20.0\bin tinha uma versão 14.0.0.92 para 64 bits, a renomeei e copiei para lá a versão anterior, provavelmente 32 bits,

e a mensagem de erro mudou, agora é essa: Unknown SQL Data Type (0)

essa pasta está no path do windows.

Eu acho, pela mensagem, que não está identificando os campos, já que eu não especifico no objeto e sim nas linhas de código.

 

Agradeço novamente a sua ajuda.

 

[Juliomar Marchetti]

1 hora atrás, Sergio de Souza Gomes disse:

Bom Dia Juliomar,

Fiz o inverso, na pasta Program Files\Embarcadero\studio\20.0\bin tinha uma versão 14.0.0.92 para 64 bits, a renomeei e copiei para lá a versão anterior, provavelmente 32 bits,

e a mensagem de erro mudou, agora é essa: Unknown SQL Data Type (0)

essa pasta está no path do windows.

Eu acho, pela mensagem, que não está identificando os campos, já que eu não especifico no objeto e sim nas linhas de código.

 

Agradeço novamente a sua ajuda.

 

pelo motivo que falei. estão distantes o fbclient do gds32 e do que é escrito no IBX baseado no interbase que é provavel não funciona

[Sergio de Souza Gomes]

Boa Tarde Juliomar

 

Problema resolvido !!!!!!

Troquei o TIBQuery por TSQLQuery. só precisei dar replace no código fonte.

 

Obrigado meu amigo pela compreensão e ajuda.

Mais lições que aprendo.

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.