Ir para conteúdo
  • Cadastre-se

dev botao

connection rejected by remote interface


Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 266 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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??

  • Triste 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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.

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution

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

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

  • Obrigado 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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?

 

Link para o comentário
Compartilhar em outros sites

  • 3 anos depois...
  • Moderadores
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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.

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Obrigado por reportar.

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

Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 266 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.