[angvelem]

Уже начинаю тохонько звереть от непонимания причины. Когда программа запущена вручную, то работает нормально, но когда запускается через реестр перестаёт писать в базу, сваливается на выполнении SQL запроса. Чтение старых данных происходит нормально. Такое ощущение, что база становится ReadOnly.

Код:

      if Assigned(sldb) then
      begin
        sldb.BeginTransaction;
        try
          St := AnsiString(Format('INSERT INTO maplog(date, ...'))); // обрезано для краткости
          // Не выполняется при запуске из реестра
          sldb.ExecSQL(St);
          sldb.Commit;
        except
          sldb.Rollback;
        end;
      end;

[Freeman]

От имени какого пользователя запускается из реестра? Права на запись в файл у него есть?

[angvelem]

Пользователь один, права есть.

[Freeman]

Пользователь точно тот же самый, а не NetworkService какой-нибудь? Каков конкретно текст ошибки?

[angvelem]

Пользователь один. SQLite ошибок не даёт - гад, тупо не работает. Логирование каждой строки показало, что не отрабатывает ExecSql, да и только по автозапуску. При ручном запуске всё в норме.

[Freeman]

Сообщение от angvelem

SQLite ошибок не даёт - гад, тупо не работает.

Это больше похоже на саботаж try..except в коде или отсутствие вызова аналога RaiseLastSQLiteError в нужном месте. Какие компоненты для SQLite используются? Их можно потрассировать по исходникам на предмет подобной "закладки"?

Обработчик Application.OnException пустой?

[angvelem]

Вот в блоке except и переходит на Rollback.
Никаких компонентов. Имеется в исходниках процедура RaiseError, но она в секции private. Также имеется функция SQLiteErrorStr и хотя она доступна, толку от неё никакого - требует числового кода ошибки, которого нет.

[Freeman]

Сообщение от angvelem

Вот в блоке except и переходит на Rollback.

Правильный блок должен выглядеть так:

Код:

try
  ....
except
  Rollback;
  ....
  raise;
end;

Это если не хочется заморачиваться с типами исключений и отлавливать конкретные. Пусть всплывает и обрабатывается на высшем уровне или показывается на экране, если обработчика нет.

[angvelem]

Сообщение от Freeman

Правильный блок должен выглядеть так:

Не хотелось "шуметь", но видно придётся.

Шаманство, не желает нормально работать при запуске из реестра.

Бред конечно, но по какой-то причине при запуске из реестра, не срабатывает глобальная переменная. Обидно на такую мелочь потерять время.