Conexão com o banco atráves de um arquivo .INI

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (5)  (2)

Criação e conexão atráves do arquivo com extensão .INI! Ótimo para conexões em rede.

Bom pessoal, neste artigo que irei disponibilizar iremos fazer uma conexão a uma base de dados atraves de um arquivo com extensão .INI!
Este artigo será muito útil para aqueles que irão criar uma aplicação que seja ultilizada em rede!
Nesta aplicação o sistema irá procurar se no PC existe o arquivo CfgBase.INI que para testes utilizarei o caminho C:\BD\CfgBase.INI caso fosse para procurar em rede vocês deveriam informar o IP do servidor e o caminho onde se encontra este arquivo!
Vamos lá...

Lembrando que devemos incluir a uses IniFiles  e declarar uma váriavel global chamada de Config: TInifiles

A nossa aplicação de teste terá 2 form e um Datamodule (DM) no 1º form inclua apenas um botão (BtnConectar), para que fique igual a imagem ao lado.
No DM inclua um componente de conexão eu escolhi os componentes da IBO o Ib_Connection (Conexão1).
No evento onclick do nosso btnConectar inclua o seguinte código:

begin
  Config := TIniFile.Create(''C:\BD\CfgBase.INI''); // C:\BD\CfgBase.INI foi o caminho e o nome do arquivo que escolhi, fica a critério de vocês caso seja em rede deverá informar o IP antes do caminho
  try
    Dm.Conexão1.Server := Config.ReadString(''Conexão1'', ''Server'', ''Localhost''); //Lendo o arquivo .INI para pegar o Server eu definir como fixo LOCALHOST, caso queiram mudar devem incluir mais um edit lá no form2. 
    Dm.Conexão1.DatabaseName := Config.ReadString(''Conexão1'', ''Databasename'', ''''); //Lendo o arquivo ini para pegar o Databasename.
    Dm.Conexão1.Path := Config.ReadString(''Conexão1'', ''Path'', ''''); // Lendo o arquivo ini para pegar o Patch.
    Dm.Conexão1.Username := Config.ReadString(''Conexão1'', ''Username'', ''''); // Lendo o arquivo ini para pegar o Username ou usuário.
    Dm.Conexão1.Password := Config.ReadString(''Conexão1'', ''Password'', ''''); // Lendo o arquivo Ini para pegar o Password ou senha.
    Dm.Conexão1.SQLDialect := 3;
    Dm.Conexão1.Connect; // Efetuando a conexão.
    ShowMessage(''Conexão efetuada com sucesso!'');
  except
    ShowMessage(''Não foi possível conectar com a base!'');
  end;
end;


No 2º form devemos incluir 3 Edits, 3 Labels e 1 button.

Mudar a propriedade name dos componente para as respectivas abaixo:
Edit1 = EdtPatch;
Edit2 = EdtUsername;
Edit3 = EdtPassword;
Button1 = BtnCriarINI;

Mudar a propriedade Caption dos Labels como as respectivas abaixo:
Label1 = Patch;
Labe2 = Usuário;
Label3 = Password;

Nosso Form2 deverá ter a seguinte aparência ao lado:

No evento onclick do BtnCriarINI incluir o seguinte código:

begin
  Config := TIniFile.Create(''C:\BD\CfgBase.INI''); // Criando o arquivo CfgBase.INI
  try
    Config.WriteString(''Conexão1'', ''Server'', ''Localhost''); // Editando o Server no arquivo CfgBase.INI
    Config.WriteString(''Conexão1'', ''Databasename'', ''Localhost:'' + EdtPatch.Text); // Editando o Databasename no arquivo CfgBase.INI
    Config.WriteString(''Conexão1'', ''Path'', EdtPatch.Text); // Editando o Patch no arquivo CfgBase.INI
    Config.WriteString(''Conexão1'', ''Username'', EdtUsername.Text); // Editando o Username no arquivo CfgBase.INI
    Config.WriteString(''Conexão1'', ''Password'', EdtPassword.Text); // Editando o Password no arquivo CfgBase.INI
  finally
    Config.Free;
    ShowMessage(''Arquivo com extensão .INI foi criado com sucesso!'');
    Form2.CloseModal;
  end;
end;

No evento onShow do nosso Form1 devemos incluir o seguinte código:}

begin
if not FileExists(''C:\BD\CfgBase.INI'') then // Testando se o arquivo CfgBase.INI
 existe.
  begin
    MessageDlg(''O arquivo de configuração não foi localizado'', mtError, mbOKCancel, 0);
    Form2.ShowModal; // Chamando form2 para a criação do arquivo.
  end

end;

É isso aí pessoal espero que tenha gostado!
Até a próxima...

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?