Pular para o conteúdo principal

Ler de um arquivo de configuração (.INI no Delphi)

Em muitos casos precisamos tornar nossas aplicações customizáveis, disponibilizando parâmetros que possam ser alterados, sejam eles informações a respeito de uma conexão com o banco de dados, uma senha, ou mesmo possibilitar a alteração do layout do sistema, tudo depende da necessidade e de como o programador pensa em termos de mobilidade para o usuário final.

Exemplo de arquivo INI

[PARAMETRO]
SENHA=12345


Lendo um arquivo INI

var
// variável que irá conter o arquivo
config : TIniFile;
// variável que irá armazenar parâmetro a ser lido do arquivo
param : string;

begin
// associa o arquivo de configuração a variável
config := TIniFile.Create('C:\Aplicacao\config.ini');
//variável param recebe 12345
param := config.readstring('PARAMETRO','SENHA','');

end;

Comentários

  1. Eduardo, saberia me falar como faço para alterar uma ini que não tem seção????
    Desde já agradeço.

    ResponderExcluir
  2. Olá Rawgleison Amaral!

    Um arquivo nesse formato não é encarado como "ini", para tal utilize o TStringList:

    with TStringList.Create do
    try
    LoadFromFile('C:\Aplicacao\config.ini');
    ShowMessage(Values['SENHA']);
    finally
    Free;
    end;

    ResponderExcluir
  3. Olá, no caso criei isso para logar com o banco de dados, sem ter nenhuma ferramenta, mas não funciona, alguém sabe me dizer porque?

    Config := TIniFile.Create(‘.\INI\banco.ini’);
    Config.WriteString(‘HELPTECH’, ‘Databasename’,’.\Banco de dados\BANCO.GDB’);
    Config.WriteString(‘HELPTECH’, ‘User_Name’, ‘SYSDBA’);
    Config.WriteString(‘HELPTECH’, ‘Password’, ‘masterkey’);

    Config.ReadString(‘HELPTECH’, ‘Databasename’,”);
    Config.ReadString(‘HELPTECH’, ‘User_Name’, ”);
    Config.ReadString(‘HELPTECH’, ‘Password’, ”);

    Config.Free;

    ResponderExcluir
    Respostas
    1. Olá Ricardo!

      O que exatamente esta acontecendo? Os valores não são recuperados corretamente?

      Excluir

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...

Iniciar e Parar Serviços do Windows (Delphi)

Em certas ocasiões nos deparamos com a necessidade de manipular determinadas atividades do SO, como iniciar ou parar um banco de dados, ou qualquer outro serviço que esteja funcionando no momento. Segue abaixo um código que encontrei na Internet para tal finalidade (não me recordo à fonte, assim que eu a encontrar colocarei). Iniciar Serviço: uses WinSvc; // // start service // // return TRUE if successful // // sMachine: //   machine name, ie: \SERVER //   empty = local machine // // sService //   service name, ie: Alerter // function ServiceStart(   sMachine,   sService : string ) : boolean; var   //   // service control   // manager handle   schm,   //   // service handle   schs   : SC_Handle;   //   // service status   ss     : TServiceStatus;   //   // te...

Funções de Data e Hora (Delphi)

É muito comum nos depararmos no dia a dia com a necessidade de manipular datas e horas, seja para um calculo de permanência, dias de atraso enfim, é praticamente escapar de alguma situação que necessite desse tipo de controle. Assim como a necessidade e se utilizar algum recurso para manipular as datas e horas de alguma maneira e freqüente, as duvidas de como o faze-lo também é, basta um breve olhar em qualquer fórum especializado e lá está, alguma duvida relacionada, por isso decidi falar um pouco sobre uma unit muito poderosa chamada DateUtils para a manipulação de data e hora, com um grande numero de métodos e classes que facilitam a vida de qualquer um. Alguns exemplos: CompareDate(constA, B: TDateTime): TValueRelationship; Compara apenas a data de dois valores (do tipo TDateTime) retornando: LessThanValue O primeiro valor é menor que o segundo EqualsValue Os valores são iguais GreaterThanValue O primeiro valor é maior que o segundo CompareDateTime(const A, B: TD...