abrir conectar executavel ao banco atraves de um arquivo.ini no LAZARUS pascal

Question

Bom dia, gostaria de saber como conecto ao banco atrav�s de um arquivo .ini no lazarus pascal.  obs: nao tem problema usar tipos de conex�es diferentes, eu me adapto....

Manoel Junior · Answer

Ol�, boa tarde. Para voc� manipular um arquivo .ini basta utilizar o TIniFile. A quest�o de conex�o com o banco basta ter o componente de conex�o (FIREDAC, IBEXPRESS, INTERBASE), com ele � poss�vel conectar � base e manipul�-lo sem nenhum outro componente; Para isso � necess�rio que as dll's do SGBD estejam na pasta do execut�vel. Em casos de buscar informa��o � necess�rio a utiliza��o de uma Query. Para facilitar a compreens�o seguem os exemplos com o componente IBExpress:

procedure TForm1.preencherCampos();
var lerIni : TIniFile;
begin
try
  lerIni := TIniFile.Create(raizSiUpd+'siupdate.ini');

  UsuarioBanco := lerIni.ReadString('CONFIG BACKUP','USUARIO','');
  txtUsuarioBanco.Text := UsuarioBanco;
  SenhaBanco := lerIni.ReadString('CONFIG BACKUP','SENHA','');
  SenhaBanco := Cript(SenhaBanco,'DESCRIPT');
  txtSenhaBanco.Text := SenhaBanco;
  CaminhoBanco := lerIni.ReadString('CONFIG BACKUP','CAMINHO_BANCO','');
  if CaminhoBanco = '' then
    CaminhoBanco :=  raizSi(raizSiUpd)+'\\'+NBanco+'.FIR';   
  lerIni.Free;
except
on e:Exception do
  msg(' Erro ao ler arquivo de inicializa��o: '+e.ToString,1,'9');
end;
end;

procedure TForm1.conectarBanco;
begin
    try
      with SQLConnection1 do
      begin
        Connected := false;
        DriverName := 'Firebird';
        Params.Clear;
        Params.Add('Database='+ CaminhoBanco);
        Params.Add('UserName='+ UsuarioBanco);
        Params.Add('Password='+ SenhaBanco);  
        Connected := True;               
        if Connected then
          concatMensagem('Conectado ao banco local')
      end;
      SQLConnection1.Close;
    except
      on e : EIBNativeException do
      begin
        concatMensagem('  Erro ao conectar na base de dados local');
      end;
  end;
end;