Delphi TFDConnection Exception произошла сборка проекта в режиме выпуска
Запустите этот код в Delphi. Это работает нормально, если я запускаю это в "режиме отладки", но когда я собираю этот проект в Release Mod, я получил исключение нарушения прав доступа. Я действительно не знаю, почему...
Код:
if not SQLConnection.Connected then begin
DatabaseValues := TStringList.Create;
try
IniFile := TPataxPlusGlobal.ClientIniFilename;
if FileExists(IniFile) then begin
TIniFileHelper.ReadSectionValuesFromIniFile(INI_SECTION_DATABASE, DatabaseValues, IniFile);
SQLConnection.TxOptions.AutoCommit := cbAutoCommit.Checked;
SQLConnection.Params.Add('Server=' + DatabaseValues.Values['Server']);
SQLConnection.Params.Add('Database=' + 'pps');
SQLConnection.Params.Add('User_Name=' + DatabaseValues.Values['Nutzer']);
SQLConnection.Params.Add('Password=' + TPataxPlusUtil.DecryptStr(DatabaseValues.Values['Passwort']));
SQLConnection.Params.Add('Port=' + DatabaseValues.Values['Port']);
SQLConnection.Open; //This line throw the Exception
end;
finally
DatabaseValues.Free;
end;
end;
И это исключение:
Нарушение доступа по адресу 00000000 в модуле "PataxPlusClient.exe" чтение адреса 00000000
1 ответ
Какой компонент используется для подключения?
также проверьте линию
SQLConnection.Params.Add('Password=' + TPataxPlusUtil.DecryptStr(DatabaseValues.Values['Passwort']));
компонент соединения был создан?