Passagem de Parametros em Tempo de Execução no Delphi 2007
Oi Pessoal,
nos meus projetos sempre repasso os parametros ao sqlconnection atraves de um arquivo .ini, cujo conteúdo é:
[PROJETO]
DriverName=UIB Firebird15
Database=C:\Sistemas\base.FDB
RoleName=RoleName
User_Name=SYSDBA
SQLDialect=3
BlobSize=-1
CommitRetain=False
WaitOnLocks=True
LocaleCode=
ErrorResourceFile=
Interbase TransIsolation=Read Commited
lc_ctype=WIN1252
TrimChar=False
e no evento OnCreate do DataModule:
procedure TDMPrincipal.DataModuleCreate(Sender: TObject);
var i : integer;
teste : TStringList;
begin
teste := TStringList.Create;
teste.LoadFromFile(extractfilepath(application.exename)+´base.ini´);
SQLConnection1.Connected := False;
SQLConnection1.Params.Clear;
for I := 0 to teste.Count - 1 do
SQLConnection1.Params.Add(teste.Strings[i]);
SQLConnection1.Params.Add(´Password=masterkey´);
Teste.Free;
SQLConnection1.LoginPrompt := False;
try
SQLConnection1.Connected := True;
except
begin
showmessage(´Base de Dados Não Encontrada!´);
Application.Terminate;
end;
end;
end;
no D2006 funciona perfeitamente, no entanto no D2007 ocorre um erro:
´Project Projeto1.exe raised exception class EAccessViolation with message ´Access violation at address 012E216B in module ´dbxint30.dll´.Read of Address 00000000´´.
o q está acontecendo?
e outra, alguém sabe onde estão os arquivos dbxconnections.ini e dbxdrivers.ini usados pelo D2007, ou eles estão com outro nome, eu sei q o DBExpress mudou sua versão, mas...
Muito Obrigado
nos meus projetos sempre repasso os parametros ao sqlconnection atraves de um arquivo .ini, cujo conteúdo é:
[PROJETO]
DriverName=UIB Firebird15
Database=C:\Sistemas\base.FDB
RoleName=RoleName
User_Name=SYSDBA
SQLDialect=3
BlobSize=-1
CommitRetain=False
WaitOnLocks=True
LocaleCode=
ErrorResourceFile=
Interbase TransIsolation=Read Commited
lc_ctype=WIN1252
TrimChar=False
e no evento OnCreate do DataModule:
procedure TDMPrincipal.DataModuleCreate(Sender: TObject);
var i : integer;
teste : TStringList;
begin
teste := TStringList.Create;
teste.LoadFromFile(extractfilepath(application.exename)+´base.ini´);
SQLConnection1.Connected := False;
SQLConnection1.Params.Clear;
for I := 0 to teste.Count - 1 do
SQLConnection1.Params.Add(teste.Strings[i]);
SQLConnection1.Params.Add(´Password=masterkey´);
Teste.Free;
SQLConnection1.LoginPrompt := False;
try
SQLConnection1.Connected := True;
except
begin
showmessage(´Base de Dados Não Encontrada!´);
Application.Terminate;
end;
end;
end;
no D2006 funciona perfeitamente, no entanto no D2007 ocorre um erro:
´Project Projeto1.exe raised exception class EAccessViolation with message ´Access violation at address 012E216B in module ´dbxint30.dll´.Read of Address 00000000´´.
o q está acontecendo?
e outra, alguém sabe onde estão os arquivos dbxconnections.ini e dbxdrivers.ini usados pelo D2007, ou eles estão com outro nome, eu sei q o DBExpress mudou sua versão, mas...
Muito Obrigado
Fajo
Curtidas 0
Respostas
Jax
15/04/2007
O driver UIB é incompativel até o memento com o DBX4.
GOSTEI 0