arquivo .ini na inicialização
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
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
Curtidas 0
Respostas
Lynx
07/08/2005
Eu não estava criando o arquivo, por isso estava acontecendo esse erro :wink:
GOSTEI 0
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
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
07/08/2005
era isso, mas já funcionou
Obrigado
Obrigado
GOSTEI 0