arquivo .ini na inicialização

Delphi

07/08/2005

var
ini : TIniFile;
host : String;
db : String;
path : String;
begin
with ini do
begin
host:= ReadString(´Servidor´, ´host´, ´´);
db:= ReadString(´Servidor´, ´db´, ´´);
ini.Free;
end;
path:= host+´:´+db;
Application.Initialize;
Application.CreateForm(TDMTeste, DMTeste);
with DMTeste do
begin
CntTeste.DriverName:= ´Interbase´;
CntTeste.ConnectionName:= ´Teste´;
CntTeste.Params.Values[´Database´]:= path;
CntTeste.Params.Values[´user´]:= ´SYSDBA´;
CntTeste.Params.Values[´password´]:= ´masterkey´;
CntTeste.Params.Values[´SQLDialect´]:= ´3´;
CntTeste.Open;
end;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.Run;

Eu não entendo, se eu tiro os .ini funciona normal, mas quando eu coloco alguma coisa que lê o .ini ele vai direto para o Application.Run, e retorna erro.

Obrigado


Lynx

Lynx

Curtidas 0

Respostas

Lynx

Lynx

07/08/2005

Eu não estava criando o arquivo, por isso estava acontecendo esse erro :wink:


GOSTEI 0
Technos

Technos

07/08/2005

Amigo...

Pelo o que to entendendo, voce tá querendo criar um arquivo ini pra servir como string, com o caminho pra um banco de dados ?

É isso ?

Se for, tenho uma solução fácil fácil pra voce...

Aguardo Resposta


GOSTEI 0
Lynx

Lynx

07/08/2005

era isso, mas já funcionou

Obrigado


GOSTEI 0
POSTAR