Fórum Acesso a banco de dados dinamicamente #300956

Caros amigos:

Tenho uma aplicação no qual utilizo como banco o Firebird. Uso para conexão o IBDatabase. Gostaria de saber como faço para fazer a conexão com o banco de forma dinamica, ou seja, tanto o banco como a aplicação ficará em uma estação que será o servidor, podendo tambem acessar o aplicativo. Fiz um arquivo .ini com os seguintes parametros:
[CONECTION]
Local=c:\scps\dados\SCPS.GDB
Remote=PRX_W98:C:\SCPS\dados\SCPS.GDB

Na estação/servidor (onde esta o banco e a aplicação) o acesso ao aplicativo esta normal, mas nas estações que acessam o aplicativo não funciona (não consegue achar o banco). Na carga do arquivo .ini implementei os testes abaixo:

procedure TDMSCPS.DataModuleCreate(Sender: TObject);
const
FileName = ´\DADOS\LBASE.ini´;
var
IniFile: TIniFile;
ServerNameLocal :String;
ServerNameRemote: String;
begin
IniFile:= TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName);
try
ServerNameLocal:= Trim(IniFile.ReadString(´CONECTION´,´Local´,´´));
ServerNameRemote:= Trim(IniFile.ReadString(´CONECTION´,´Remote´,´´));
finally
IniFile.Free;
end;

if ((ServerNameLocal = ´´) and (ServerNameRemote = ´´)) then
Application.Terminate;
try
IBDBase.Connected:= False;
IBDBase.DatabaseName:= ServerNameLocal;
IBDBase.Connected:= True;
except
try
IBDBase.Connected:= False;
IBDBase.DatabaseName:= ServerNameRemote;
IBDBase.Connected:= True;
except
Application.MessageBox(´Banco de Dados não encontrado.´,´ERRO´,MB_ICONERROR+MB_OK);
FrmSCPS.Close;
Exit;
end;
end;

A concexão da banco esta definida como Remota.
Não posso passar um IP fixo, pois os mesmos são dinamicos.



Alguem pode me dar uma grande e valiosa dica para resolver tal problema de acesso nas estações.

Atenciosamente

Zekas