problemas com DBExpress e Arquivo INI

[Joe_m 0]

Estou com o seguinte problema tenho um sistema com banco de dados firebird e estou realizando a conexão com DBExpress (delphi 2009) porém ao executar o sistema em um cliente o mesmo não respeita o endereço do banco que esta gravado no arquivo ini e dá erro porém no meu computador funciona perfeitamente. Alguém sabe o que pode estar ocorrendo.

[Fiamenghi 0]

Posta o codigo do arquivo ini pra gente dar uma olhada.

 

falow

[Joe_m 0]

Posta o codigo do arquivo ini pra gente dar uma olhada.

 

falow

 

Esse codigo esta no create do DataModule

Conexao.Connected := False;
Conexao.Params.Clear;
Conexao.LoginPrompt := False;
Conexao.ConnectionName := LerIni('CONFIG.INI','FIREBIRD','ConnectionName','FIREBIRD');//Carregar o Nome da Conexão com o Banco
Conexao.ParamsLoaded := True;
Conexao.DriverName := LerIni('CONFIG.INI','FIREBIRD','drivername','INTERBASE');//Carregar o Driver a Ser utilizado
Conexao.GetDriverFunc := 'getSQLDriver';//Função do Driver
Conexao.LibraryName := 'dbxint.dll';//Dll do Driver
Conexao.VendorLib := 'fbclient.dll';//Dll do Client SGDB
Conexao.Params.Add('drivername='+LerIni('CONFIG.INI','FIREBIRD','drivername','INTERBASE'));//Carregar o Driver a Ser utilizado
Conexao.Params.Add('hostname='+LerIni('CONFIG.INI','FIREBIRD','hostname','localhost'));//Nome do HOST "Servidor"
Conexao.Params.Add('user_name='+LerIni('CONFIG.INI','FIREBIRD','user_name','SYSDBA'));
Conexao.Params.Add('password='+LerIni('CONFIG.INI','FIREBIRD','password','masterkey'));
Conexao.Params.Add('port='+LerIni('CONFIG.INI','FIREBIRD','port','3050'));//Porta de Configuração do SGDB
Conexao.Params.Add('Database='+LerIni('CONFIG.INI','FIREBIRD','Database','C:\DBExpress\BDACTIVE.FDB'));//Caminho do Banco de dados
try
 Conexao.Connected := True;
except
 on E: Exception do begin
 TrataErro(E);
 Application.Terminate;
 end;
end;

 

function LerIni(Arquivo, Alias, Chave, Default: String): String;

var config: TIniFile;

begin

config := TIniFile.Create(ExtractFilePath(Application.ExeName)+Arquivo);

Result := config.ReadString(Alias,Chave,Default);

end;

[Mateus André Chies 0]

Olá

 

Cara da uma olhada nesse post,

Conectar

 

Acho que pode ser apenas o evento, sempre utilizei no evento

OnBeforeConnect e não no onCreate da DataModule,

quem sabe pode ser esse seu problema.

 

 

Abraço

 

 

 

Posta o codigo do arquivo ini pra gente dar uma olhada.

 

falow

 

Esse codigo esta no create do DataModule

Conexao.Connected := False;
Conexao.Params.Clear;
Conexao.LoginPrompt := False;
Conexao.ConnectionName := LerIni('CONFIG.INI','FIREBIRD','ConnectionName','FIREBIRD');//Carregar o Nome da Conexão com o Banco
Conexao.ParamsLoaded := True;
Conexao.DriverName := LerIni('CONFIG.INI','FIREBIRD','drivername','INTERBASE');//Carregar o Driver a Ser utilizado
Conexao.GetDriverFunc := 'getSQLDriver';//Função do Driver
Conexao.LibraryName := 'dbxint.dll';//Dll do Driver
Conexao.VendorLib := 'fbclient.dll';//Dll do Client SGDB
Conexao.Params.Add('drivername='+LerIni('CONFIG.INI','FIREBIRD','drivername','INTERBASE'));//Carregar o Driver a Ser utilizado
Conexao.Params.Add('hostname='+LerIni('CONFIG.INI','FIREBIRD','hostname','localhost'));//Nome do HOST "Servidor"
Conexao.Params.Add('user_name='+LerIni('CONFIG.INI','FIREBIRD','user_name','SYSDBA'));
Conexao.Params.Add('password='+LerIni('CONFIG.INI','FIREBIRD','password','masterkey'));
Conexao.Params.Add('port='+LerIni('CONFIG.INI','FIREBIRD','port','3050'));//Porta de Configuração do SGDB
Conexao.Params.Add('Database='+LerIni('CONFIG.INI','FIREBIRD','Database','C:\DBExpress\BDACTIVE.FDB'));//Caminho do Banco de dados
try
 Conexao.Connected := True;
except
 on E: Exception do begin
 TrataErro(E);
 Application.Terminate;
 end;
end;

 

function LerIni(Arquivo, Alias, Chave, Default: String): String;

var config: TIniFile;

begin

config := TIniFile.Create(ExtractFilePath(Application.ExeName)+Arquivo);

Result := config.ReadString(Alias,Chave,Default);

end;

 

[Joe_m 0]

Vou testar e volto aqui para dizer se funcionou ou não