Como conectar utilizando arquivo .ini?

Um dos maiores problemas do programador está quando temos de colocar o caminho do banco de dados no sistema. Nossa proposta é simplificar o máximo esta tarefa.

Acrescente ao projeto os arquivos “CaminhoBanco”. (Clique aqui para fazer o download).
Acrescente ao uses do Datamodule o frmCaminhoBanco.


No datamodule coloque:

//Na sessão USES:
//INIFiles, Forms;

No DataModuleCreate:

const
AliasName = 'Nome do Programa';
FileName = 'Config.ini';
var
ServerName: String;
IniFileName: TIniFile;
ListaParms: TStringList;
begin
DM.Banco.Connected := False;
//Lê arquivo.ini no diretório da aplicação
IniFileName := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName);
try
ServerName:= Trim(IniFileName.ReadString(Application.ExeName,'Banco',''));
finally
IniFileName.Free;
end;
//Termina a aplicação se o servidor não foi fornecido
if ServerName = '' then
Begin
frmCaminhoBanco := TfrmCaminhoBanco.Create(Application);
frmCaminhoBanco.ShowModal;
frmCaminhoBanco.Free;
end;
//Cria lista de Parâmetros
ListaParms:= TStringList.Create;
With ListaParms do
begin
add('user_name=SYSDBA');
add('password=masterkey');
end;
//Define conexão
try
try
Banco.DatabaseName := ServerName;
Banco.Params := ListaParms;
except
Begin
frmCaminhoBanco := TfrmCaminhoBanco.Create(Application);
frmCaminhoBanco.ShowModal;
frmCaminhoBanco.Free;
end;
end;
finally
ListaParms.Free;
end;

no DataModuleDestroy:

Banco.Connected := False;

Pronto! Agora é só executar o sistema e ele abrirá uma janela solicitando o caminho do banco toda vez que o arquivo Config.ini não existir no mesmo diretório do sistema ou quando o sistema for executado pela primeira vez.