FireDAC configurado via INI

28/12/2018

21

Bom dia parceiros,

Quem poderá me ajudar aqui.?

Quero mudar o server do TFDConnection do FireDAC, via arquivo INI.

E até arrisquei a seguinte linha no código:

FDConexao.Params.server := ArqIni.ReadString('banco','server',localhost);

Porém, embora no Object Inspector exista a sequência: FDConexao -> Params -> Server , este último (Server) não existe via código.

Alguém tem um norte para me dar nesta questão???

Antecipadamente agradeço.

Att.:
ALOISIO SANTOS.
Responder

Posts

28/12/2018

Fernando Wahl

Opa, como vai? Andando na nuvem, achei isso acho que vai ajudar:

==================DATA MODULE====================
{NO DATA MODULE CRIEI UM LER INI E UMA PROCEDURE PARA CONECTAR PARA REALIZAR A CONEXAO DO BANCO}

procedure TDM.LerINI;
var
oArquivoINI: Tinifile;

begin
oArquivoINI := Tinifile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
try

DriverID := oArquivoINI.ReadString('Servidor', 'DriverID', EmptyStr);
Usuario := oArquivoINI.ReadString('Servidor', 'User_name', EmptyStr);
Senha := oArquivoINI.ReadString('Servidor', 'Password', EmptyStr);
Server := oArquivoINI.ReadString('Servidor', 'Server', EmptyStr);
Database := oArquivoINI.ReadString('Servidor', 'Database', EmptyStr);
Download := oArquivoINI.ReadString('Download', 'CaminhoPadrao', EmptyStr);
finally
FreeAndNil(oArquivoINI);

end;

end;


procedure TDM.ConectarINI;
begin
try
with Con do
begin
Params.Clear;
Params.Values['DriverID'] := DriverID;
Params.Values['Server'] := Server;
Params.Values['Database'] := Database;
Params.Values['User_name'] := Usuario;
Params.Values['Password'] := Senha;
Connected := True;

if Connected = True then
begin
ShowMessage('Conectado com SUCESSO!');

end;

end;

except
ShowMessage
('Ocorreu uma FALHA na configuração do banco FIREBIRD! Por favor verifique se o caminho do banco está correto.');

end;

end;

================FRM CONF ========================
{AGORA A OPÇÃO PARA SALVAR O CAMINHO FIZ EM OUTRO FORMULARIO ESPECIFICO PARA SALVAR AS CONFIGURAÇÕES}

procedure TFrmConf.GravarINI;
var
oArquivoIni: TIniFile;

begin
Verificar := false;
oArquivoIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
try
if not(edtSenha.Text = '') then
begin
if (edtUsuario.Text = '******') and (edtSenha.Text = '*******') then
begin
oArquivoIni.WriteString('Servidor', 'User_name', edtUsuario.Text);
oArquivoIni.WriteString('Servidor', 'Password', edtSenha.Text);
oArquivoIni.WriteString('Servidor', 'DriverID', EdtDriverID.Text);
oArquivoIni.WriteString('Servidor', 'Server', EdtServer.Text);
oArquivoIni.WriteString('Servidor', 'Database', edtBanco.Text);
Verificar := true;

end
else
begin
ShowMessage('USUARIO OU SENHA INCORRETOS!');

end;

end
else
begin
ShowMessage('INSIRA A SENHA DE ADMINISTRADOR!');

end;
if not(edtDownload.Text = '') then
begin
oArquivoIni.WriteString('Download', 'CaminhoPadrao', edtDownload.Text);

end;
oArquivoIni.WriteBool('Sistema', 'Verificação', false);

finally
FreeAndNil(oArquivoIni);

end;

end;

===============================================
está funcionando 100%

Até. Se gostar, clica em gostei. Valeu.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira