Delphi TFDConnection Exception произошла сборка проекта в режиме выпуска - PullRequest
Новая
       16

Delphi TFDConnection Exception произошла сборка проекта в режиме выпуска

0 голосов
/ 06 июня 2018

Запустите этот код в 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 Ответ

0 голосов
/ 07 июня 2018

какой компонент используется для соединения?

также проверьте строку 

SQLConnection.Params.Add('Password=' + TPataxPlusUtil.DecryptStr(DatabaseValues.Values['Passwort']));

был ли создан компонент соединения?

...