Fórum arquivo INI para Interbase #264185

Eu entrei Bloca de notas e criei um arquivo com essa estrutura.
[Sistema]
Path = C:\ESTOQUE\ESTOQUE.GDB
Salvel como esconfig.ini
Depois no meu programa fiz o seguinte fui em Project/Source e inclui esta linha antes de carregar o Datamodule.

ArqIni := tIniFile.Create(´C:\WINDOWS\SYSTEM\ESCONFIG.INI´);
Try
Path := ArqIni.ReadString(´Sistema´, ´Path´, Path );
Finally
ArqIni.Free;
end;

Application.CreateForm(TDataModulo, DataModulo);
DataModulo.Conexao.DatabaseName:=Path ;
Não esqueça de declara a Unit Inifiles.

e pronto espero que ajude

bom dia, bom vc me passou como fazer para criar e ler o arquivo INI para configurar o database com interbase,mas
ArqIni e Path são variáveis???

tenho que declará-las?? e de que tipo elas são???

obrigado

Faça isto que funciona
ex de arquivo ini

[FINOKA]
DriverName=UIB Firebird15
BlobSize=-1
CommitRetain=False
Database=:C:\SGCADM\EstacaoTeen\BANCO\FINOKA.FDB
ErrorResourceFile=
LocaleCode=0000
Password=masterkey
RoleName=RoleName
ServerCharSet=WIN1252
SQLDialect=3
Interbase TransIsolation=ReadCommited
User_Name=sysdba
WaitOnLocks=True


------------- Comando do delphi para acessar o arquivo .ini
SQLConnection1.LoadParamsFromIniFile(´conexao.ini´);
SQLConnection1.Open;


Espero ter ajudado

Plácido

Não precisa complicar...


crie o arquivo ARQUIVO.INI
dentro dele coloque somente o caminho do banco
192.168.0.1:C:\SISTEMA\BANCO.GDB

no delphi faça o seguinte

Se você usa o IBX para acessar o Interbase, utilize o componente IBDatabaseINI, é a maneira mais simples.

eu ja uso diferente, tenho uma unit onde configuro o banco direto no regedit e depois quando vou abrir o meu formulario eu leio esse registro no regedit e jogo os dados no database, como segue abaixo


tenho 2 edit

um eu coloque o nome do meu servidor ou o numero do ip onde esta meu banco

o outro edit eu coloque o path do arquivo

isso para eu gravar a localização do banco

var
Registro: TRegistry;
begin
Registro:= TRegistry.Create;
try
if Registro.OpenKey(´\Software\Desenvol\Aplicativo´, True) then
begin
Registro.WriteString(´Server´, EditServidor.Text);
Registro.WriteString(´DatabaseName´, EditArquivo.Text);
ShowMessage(´Os dados foram salvos com sucesso.´);
end;
finally
Registro.CloseKey;
Registro.Free;
end;


esse para abrir no on-create do form principal

procedure TMainForm.FormCreate(Sender: TObject);
var
Registro : TRegistry;
begin
UpdateToolbar;
Registro := TRegistry.Create;
try
if Registro.OpenKey(´\Software\Desenvol\Aplicativo´, False) then
begin
SERVIDOR.Caption := Registro.ReadString(´Server´);
RDusuario.ControleAcesso.ArqDiretorio := Registro.ReadString(´Usuario´);
RDusuario.ControleAcesso.ArqNome := Registro.ReadString(´Arquivo´);
end;
finally
Registro.CloseKey;
Registro.Free;
end;


pq dessa forma eu posso estar trabalhando em um banco de dados e outro programador podera tambem trabalhar com outro banco que nao vai influenciar em nada, pq todas as instruções serão gravadas no regedit


valeu