Arquivo de configuração para meu sistema...
01/12/2005
0
Estou querendo fazer um arquivo de configuração para meu sistema, pois o mesmo irá funcionar em diversas filiais, imagine o seguine, cada filial tem o seu nome e sua cidade, fiz no banco de dados, mas será que alguém já fez ou faz com arquivos ini ou outra forma, sendo possível depois de dentro do sistema chamar estas infomações?, se alguém tiver alguma idéia eu agradeço..
Obrigado a todos.....
Vieira_alex
Posts
01/12/2005
Edilcimar
01/12/2005
Vieira_alex
Obrigado.
01/12/2005
Edilcimar
Empresa qualquer ltda - 9999-9999 = dados da empresa
loja1 = diretorio desta loja
@#$¬¨¬&*( = senha de entrada criptografada
etc
depois leia linha por linha, sendo que vc vai usar um padrão que não vai poder alterar
01/12/2005
Vieira_alex
01/12/2005
Carlosfim
Na verdade, meus sistemas utilizam dois tipos de configuração: As configurações que devem ser compoartilhadas pelos diversos terminais (Nome da empresa, endereço...) eu armazeno em uma tabela no BD. Já as configurações locais (preferências do usuário, por exemplo) eu armazeno em arquivos .ini.
A vantagem de utilizar arquivos .ini ao invés de arquivos .txt, como propôs o amigo Edilcimar, é que o Delphi possui uma classe chamada TIniFile feita especificamente para manipular este tipo de arquivo, com métodos para ler, gravar entre outros.
Até +
02/12/2005
Vieira_alex
02/12/2005
Amarildo
02/12/2005
Carlosfim
[DATABASE] Caminho=C:\database.gdb Usuario=SYSDBA Senha=masterkey [OUTRAS] NumeroUltimaNota=1200 ImprimirFaturas=1
Para criar um arquivo .INI basta passar o caminho completo do arquivo como parâmetro para o método Create da classe TIniFile. Exemplo:
Procedure GravaConfiguracoes;
var
Arquivo: TIniFile;
begin
Arquivo := TIniFile.Create(‘C:\configuracao.ini´);
Arquivo.WriteString(‘DATABASE’, ´Caminho´, ‘C:\database.gdb’);
Arquivo.WriteString(‘DATABASE’, ´ Usuario ´, ‘SYSDBA’);
Arquivo.WriteString(‘DATABASE’, ‘Senha’, ‘masterkey’);
Arquivo.WriteInteger(´OUTRAS ´, ´ NumeroUltimaNota ´, 1200);
Arquivo.WriteString(´OUTRAS ´, ´ ImprimirFaturas´, True);
Arquivo.Destroy;
end;Para ler o conteúdo do arquivo, basta abrir o arquivo e utilizar os respectivos métodos Read, cada um para seu tipo de dado:
Procedure LeConfiguracoes;
var
Arquivo: TIniFile;
CaminhoBanco: String;
NumeroUltimaNota: Integer;
NomeUsuario: String;
begin
Arquivo := TIniFile.Create(‘C:\configuracao.ini´);
CaminhoBanco := Arquivo.ReadString(‘DATABASE’, ´Caminho´, ‘C:\database.gdb’);
NumeroUltimaNota := Arquivo.ReadInteger (‘DATABASE’, ´ NumeroUltimaNota ´, 0);
NomeUsuario := Arquivo.ReadString(‘DATABASE’, ‘NomeUsuario, ‘Carlos’);
Arquivo.Destroy;
end;Observem que os métodos Read possuem três parâmetros: o primeiro e o segundo são, respectivamente, o Nome da categoria e o nome do item que desejamos ler, e o último é um valor Default que podemos informar caso o item passado como parâmetro não seja encontrado no arquivo. Nesse caso, o conteúdo das variáveis ao final do procedimento de leitura seria:
[list:599706ff01]CaminhoBanco: C:\database.gdb
NumeroUltimaNota: 1200
NomeUsuario: Carlos (Arqui foi utilizado o Valor Default, visto que o item NomeUsuario não existe)[/list:u:599706ff01]
A classe TIniFile possui outros métodos, para ler ou apagar uma seção inteira, por exemplo.
O help do delphi é uma boa opção.
Até +
02/12/2005
Amarildo
Clique aqui para fazer login e interagir na Comunidade :)
