Passagem de Parametros em Tempo de Execução no Delphi 2007

Delphi

15/04/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


Fajo

Fajo

Curtidas 0

Respostas

Jax

Jax

15/04/2007

O driver UIB é incompativel até o memento com o DBX4.


GOSTEI 0
POSTAR