Parâmetros Firedac - Delphi

Alguém que possa me ajudar?

não entendi uma coisa... você tem 1 arquivo ini ou 4 arquivos ini?

porque teu código poderia se resumir a:


geralmente um arquivo ini agrupa os valores (chaves) referentes a um mesmo assunto (seção).
no teu caso os dados se referem a conexão ao banco de dados. deveriam ficar numa mesma seção:
a alteração que eu sugeri grava o arquivo ini da forma apresentada acima.

agora uma pergunta: em que momento ocorre o erro? e qual o erro apresentado?
porque quando a conexão ao banco de dados é efetuada, o sistema acessa o servidor (no caso, 25.13.43.171) e procura ali o caminho do banco de dados, que precisa existir.
então é estranho que o erro ocorra no trecho de código apresentado.

----------------------------------------------------------------------------------------------------------------------
IMPORTANTE: antes de compilar teu projeto desconecte o FDConnection.
----------------------------------------------------------------------------------------------------------------------

Olá Emerson! Boa noite!

*Sim, toda a estruturaque eu informei acima do meu arquivo .ini ficar em um só arquivo.
*O meu FDConection fica desativado até que todas as informações do arquivo .ini recebidas sejam válidas, ai sim ele é ativado.
* O erro é apresentado quando a aplicão chega nessa parte do código:

begin
CaminhoIniDatabase := (extractfilepath(ParamStr(3)) + 'Conf\\Config.ini');
ArqIni:= TIniFile.Create(CaminhoIniDatabase);
CaminhoIniDatabase := ArqIni.ReadString ('DATABASE','DIRECTORY',' ');
FdConeIndicador.Params.Database := CaminhoIniDatabase;
try
FdConeIndicador.Connected := true;
Timer1.Enabled := true;
Except
MessageBox(Handle,'Failed To Connect Database! Check Database Directory.','Bot Zeus', MB_OK + MB_ICONERROR);
FdConeIndicador.Connected := false;
Application.Terminate;
exit
end;
end;

Pois se não conter o arquivo 'Banco.fdb' no dirétorio informado da aplicação ele não abre
*C:\\Indicator\\Data\\BANCO.FDB*. A questão é que é um terminal, creio que não seja necessário, não quero que o cliente final tenha informações suficientes para fazer alguma maldade, no entanto já até coloquei essas configuração no próprio FDConection, deixando-o somente o Host,User, Port se caso seja necessário fazer alguma mudança, dessa forma fica fácil alterar a configuração.


Trabalho com um sistema de automação comercial, e nos terminais não é necessário ter o arquivo do banco de dados, desde que nas configurações esteja apontada para o servidor, creio eu que o metódo de conexão com o banco de dados seja diferente, no caso outros componentes do delphi.


Reformulei meu código como você me informou acima, e ainda vou informar quando a aplicação dispara a conexão com o banco de dados.


Criação Formulário:

procedure TFrmMatricula.FormCreate(Sender: TObject);
var
ArqIni : TIniFile;
Server, PortIndicator, User, directory, database, Conf: string;
begin
directory := (ExtractFilePath(ParamStr(0)) + '\\Conf');
if not DirectoryExists(directory) then
begin
Conf := (directory + '\\config.ini');
ForceDirectories(directory);
ArqIni := TIniFile.Create(Conf);
ArqIni.WriteString('SERVER','HOST','25.13.43.171');
ArqIni.WriteString('USER','USER','sysdba');
ArqIni.WriteString('PORT','PORT','3051');
ArqIni.WriteString('DATABASE','DIRECTORY','C:\\Indicator\\Data\\BANCO.FDB');
ArqIni.Free;
end
else
begin
CaminhoIniDatabase := (extractfilepath(ParamStr(3)) + 'Conf\\Config.ini');
ArqIni:= TIniFile.Create(CaminhoIniDatabase);
CaminhoIniDatabase := ArqIni.ReadString ('DATABASE','DIRECTORY','');
FdConeIndicador.Params.Database := CaminhoIniDatabase;
try
FdConeIndicador.Connected := true;
Timer1.Enabled := true;
Except
MessageBox(Handle,'Failed To Connect Database! Check Database Directory.','Bot Zeus', MB_OK + MB_ICONERROR);
FdConeIndicador.Connected := false;
Application.Terminate;
exit
end;
end;
end;



*Verificação parâmetros da conexão ao efetuar o login:



procedure TFrmMatricula.BitBtnLoginClick(Sender: TObject);
var
ArqIni : TIniFile;
UserLogin, Name : string;
CaminhoIniServer, PortIndicator, User: string;

begin
CaminhoIniServer := (extractfilepath(ParamStr(0)) + 'Conf\\Config.ini');
ArqIni:= TIniFile.Create(CaminhoIniServer);
CaminhoIniServer := ArqIni.ReadString ('SERVER','HOST','');
FdConeIndicador.Params.Values['Server'] := CaminhoIniServer;
try
fdConeIndicador.Connected := true;
Timer1.Enabled := true;
Except
MessageBox(Handle,'Failed To Connect Database! Check The Firebird Server.','Bot Zeus', MB_OK + MB_ICONERROR);
FdConeIndicador.Connected := false;
Application.Terminate;
Exit
end;

begin
User := (extractfilepath(ParamStr(1)) + 'Conf\\Config.ini');
ArqIni:= TIniFile.Create(User);
User:= ArqIni.ReadString ('USER','USER','');
FdConeIndicador.Params.UserName := User;
try
FdConeIndicador.Connected := true;
Timer1.Enabled := true;
Except
MessageBox(Handle,'Failed to Connect Database! Check The Firebird User.','Bot Zeus', MB_OK + MB_ICONERROR);
FdConeIndicador.Connected := false;
Application.Terminate;
Exit
end;

begin
PortIndicator := (extractfilepath(ParamStr(2)) + 'Conf\\Config.ini');
ArqIni:= TIniFile.Create(PortIndicator);
PortIndicator := ArqIni.ReadString ('PORT','PORT','');
FdConeIndicador.Params.Values['Port'] := PortIndicator;
try
FdConeIndicador.Connected := true;
Timer1.Enabled := true;
Except
MessageBox(Handle,'Failed to Connect Database! Check The Firebird Port.','Bot Zeus', MB_OK + MB_ICONERROR);
FdConeIndicador.Connected := false;
Application.Terminate;
exit
end;


begin
UserLogin := Edit1.Text;
FDQryLogin.Active := true;
FDQryLogin.Close;
FDQryLogin.SQL.Clear;
FDQryLogin.SQL.Add('select usuario from cliente where usuario = ' + QuotedStr(UserLogin)+'');
FDQryLogin.Open;


if FDQryLogin.Eof then
begin
MessageBox(handle,'Login Failed! Please Check Informed Registration.','Bot Zeus', MB_OK or MB_ICONINFORMATION);
end
else
begin
FDQryUser.Active := true;
FDQryUser.Close;
FDQryUser.SQL.Clear;
FDQryUser.SQL.Add('select * from cliente');
FDQryUser.Open;

UserLogin := FDQryUser.FieldByName('USUARIO').AsString;
Name := FDQryUser.FieldByName('NOME').AsString;



if MessageBox(handle,(Pchar('Welcome User '+(UserLogin)+' - '+(Name)+' To Zeus Bot!')),'Zeus Bot', MB_OK + MB_ICONINFORMATION) = mrOk then
begin
FrmMatricula.Hide;
FrmIndicadorPainel.ShowModal;
end;
end;
end;
end;
end;
end;



Obs: Se existir o arquivo do banco de dados, a aplicação roda perfeitamente, mais sim acessando o banco de dados do servidor. Já alimentei o banco de dados com informações no servidor realizando testes, e tudo está conectado e funcionando nos conformes.

Atráves de pesquisas vi que deixar o parâmetros do FDConection(MonitorBy) como 'Remoto', resolveria o problema, mais sem sucesso.

vamos lá.. você não colocou a implementação do FormCreate() como eu passei. vou passar novamente:
lembrando que você precisa compilar o sistema com o FDConnection DESCONECTADO.

agora vamos ao login:

uma pequena alteração no FormCreate()

Boa noite!
Resolveu o meu problema. Vlw mesmo Emerson.

esse emerson é brabo dms!