Firebird zeos

Olá Dessa

crie um arquivo INI para guardar suas configurações:

HOSTNAME=localhost ou 192.168.1.1 (servidor)
DATABASE=Diafu
USER=postgres
PASSWORD=sua senha
PROTOCOL=postgresql-7.4 ou postgresql

depois use estas funções:

TSysConfig = class
public
FArquivoSysConfig: string;


DEFINICOES: string;

HOSTNAME : string;
DATABASE : string;
USER : string;
PASSWORD : string;
PROTOCOL : string;
CONFIGURACAO : string;
CODIGO_OPERADOR : integer;
NOME_OPERADOR : string;
public
//Procedimentos de Carregamento
procedure CarregaArquivoIni;
procedure AbirConexao(Conexao : TZConnection; Config : TZQuery);
procedure FecharConexao(Conexao : TZConnection);
end;


procedure TSysConfig.CarregaArquivoIni;
var
Arq: TIniFile;
ListaAtributos: TStrings;
NovoNome: string;
i: Integer;
begin
ListaAtributos := TStringList.Create;
NovoNome := Copy(Application.ExeName, 1, Pos(´.EXE´, UpperCase(Application.ExeName)) - 1) + ´.ini´;
if not FileExists(NovoNome) then
ShowMessage(Format(´Arquivo ´¬s´ não foi localizado!´,[NovoNome]));
Arq := TIniFile.Create(NovoNome);
SysConfig := TSysConfig.Create;
Arq.ReadSectionValues(´SYSCONFIG´, ListaAtributos);
SysConfig.DIRETORIO_RELATORIOS := Arq.ReadString(´SYSCONFIG´,´DIRETORIO_RELATORIOS´,´´);
SysConfig.HOSTNAME := Arq.ReadString(´SYSCONFIG´,´HOSTNAME´,´´);
SysConfig.DATABASE := Arq.ReadString(´SYSCONFIG´,´DATABASE´,´´);
SysConfig.USER := Arq.ReadString(´SYSCONFIG´,´USER´,´´);
SysConfig.PASSWORD := Arq.ReadString(´SYSCONFIG´,´PASSWORD´,´´);
SysConfig.PROTOCOL := Arq.ReadString(´SYSCONFIG´,´PROTOCOL´,´´);
SysConfig.TELAFUNDO := Arq.ReadString(´SYSCONFIG´,´TELAFUNDO´,´´);
SysConfig.TELAPRINCIPAL := Arq.ReadString(´SYSCONFIG´,´TELAPRINCIPAL´,´´);
SysConfig.OPCAOMENSXP := Arq.ReadInteger(´SYSCONFIG´,´OPCAOMENSXP´,0);
Arq.Free;
ListaAtributos.Free;
end;

procedure TSysConfig.AbirConexao(Conexao: TZConnection; Config: TZQuery);
begin
Conexao.Connected := false;
Conexao.Database := SysConfig.DATABASE;
Conexao.HostName := SysConfig.HOSTNAME;
Conexao.User := SysConfig.USER;
Conexao.Password := SysConfig.PASSWORD;
Conexao.Protocol := Sysconfig.PROTOCOL;
Conexao.Connected := true;
AbrirQuery(Config, False);
Config.First;
FecharQuery(Config);

end;

procedure AbrirQuery(Query : TZQuery; ForceReopen : Boolean);
begin
Query.Active := true;
if (Query.State <> dsInactive) and (ForceReopen) then
Query.Close;
if Query.State = dsInactive then
Query.Open;
end;

procedure FecharQuery(Query: TZQuery);
begin
if (Query.State <> dsInactive) then
Query.Close;
end;

no source do projeto:
Application.Initialize;
SysConfig.CarregaArquivoIni;
Application.CreateForm(TFmMain, FmMain);
Application.CreateForm(TDM, DM);
Application.CreateForm(TForm1, Form1);
SysConfig.AbirConexao(DM.Conexao,DM.QrySysConfig);

Atencisamente

Silvio Guedes