[firebase-br] S.O.S.: Cliente não Roda!

[dvdmengarda em hotmail.com]

Pessoal,

Peço desculpas em insistir em algo que aparentemente é demasiadamente simples: Conectar a aplicação cliente ao servidor.

Fiz uma pequena aplicação que testa a conexão do banco no servidor. No terminal onde o D7 está instalado com o FB Super Server a aplicação-teste roda sem problemas. Desinstalei o Firebird Super Server do terminal e instalei como <Minimum client install> e a aplicação-teste funcionou da mesma forma.

Instalei em outros três terminais (2 WXP e 1 W98) o FB <Client Developers>. Fazendo o teste pelo ISQL consigo a conexão com o banco no servidor. Porém, a aplicação-teste não obtém sucesso na mesma conexão. Problema com o firewall aparentemente não é, porque ele apresentaria alguma mensagem de erro no ISQL (creio eu).

Abaixo descrevo a forma que estou usando para fazer os testes.

Agradeço pela ajuda.

Abraços.


David

*************************************************************************************

no ISQL uso da sequinte forma:
------------------------------------------------------------
ISQL -u SYSDBA -p masterkey
connect '192.168.1.1:F:\minha_pasta\banco.fdb';
show table;
quit;
------------------------------------------------------------
Até aqui beleza. Consigo fazer a conexão e enxergar as tabelas do banco. Consigo a conexão com esse teste em todos os terminais.

F: é um drive local do servidor

Abaixo segue parte da aplicação teste:

databaseConexao é um TEdit onde informo a string de conexão: 192.168.1.1:F:\minha_pasta\banco.fdb
-------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  conexao.Params.Clear;
  conexao.Params.Add('BlobSize=-1');
  conexao.Params.Add('CommitRetain=False');
  conexao.Params.Add('Database=' + databaseConexao.Text);
  conexao.Params.Add('DriverName=Interbase');
  conexao.Params.Add('ErrorResourceFile=');
  conexao.Params.Add('LocaleCode=0000');
  conexao.Params.Add('Password=masterkey');
  conexao.Params.Add('RoleName=RoleName');
  conexao.Params.Add('ServerCharSet=');
  conexao.Params.Add('SQLDialect=3');
  conexao.Params.Add('Interbase TransIsolation=ReadCommited');
  conexao.Params.Add('User_Name=sysdba');
  conexao.Params.Add('WaitOnLocks=True');
  try
    conexao.Close;
    conexao.Open;
    statusconexao.Text := 'Sucesso na abertura da conexão';
  except
    statusconexao.Text := 'Falha ao abrir conexão';
  end;
end;
--------------------------------------------------------------
Esse teste só funciona no terminal onde tenho o D7 instalado.