Доступ к БД из сервиса

[Adm123]

Собственно, сабж в заголовке. Как? 

Пытаюсь использовать SQLite + FDConnection. 

  FDConnection.Params.Database:= TPath.Combine(System.IOUtils.TPath.GetDocumentsPath, 'basename.db');

работает в основной форме, но вешает сервис...

Изменено 21 марта, 2016 пользователем Adm123

[master webs]

если не секрет что можно делать в оффлайн базе ? сервисом ? 

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

TNotificationCenter

Изменено 21 марта, 2016 пользователем master webs

[dnekrasov]

Возможно проблема в System.IOUtils.TPath.GetDocumentsPath

Попробуйте прописать путь к базе константой. System.IOUtils.TPath.GetDocumentsPath - возвращает путь к папке "Мои документы" пользователя, а сервисы запускаются от своего пользователя.

[Adm123]

18 минуту назад, master webs сказал:

если не секрет что можно делать в оффлайн базе ? сервисом ? 

Не секрет. Из нее можно брать условия для парсинга и складывать в нее результаты.

 

9 минут назад, dnekrasov сказал:

Возможно проблема в System.IOUtils.TPath.GetDocumentsPath

Спасибо, попробую

[master webs]

не знаю мое мнение  такие вещи должен выполнять сервер парсинг ресурсоемкое дело

[Adm123]

24 минуты назад, dnekrasov сказал:

Возможно проблема в System.IOUtils.TPath.GetDocumentsPath

Попробуйте прописать путь к базе константой.

Увы, не помогло...

[master webs]

setings.LoadFromFile(TPath.GetDocumentsPath + TPath.DirectorySeparatorChar +'seting.json');

я так подгружаю

сделайте проверку файла есть ли он там 

if FileExists(TPath.GetDocumentsPath + TPath.DirectorySeparatorChar +'seting.json') then

Изменено 21 марта, 2016 пользователем master webs

[Adm123]

LoadFromFile - в принципе вариант... но хотелось все-таки базу прицепить

[Adm123]

20 минуты назад, master webs сказал:

сделайте проверку файла есть ли он там 

if FileExists(TPath.GetDocumentsPath + TPath.DirectorySeparatorChar +'seting.json') then

База по выбранному пути есть и из юнита основной программы нормально цепляется

[dnekrasov]

43 минуты назад, Adm123 сказал:

1 час назад, dnekrasov сказал:

Возможно проблема в System.IOUtils.TPath.GetDocumentsPath

Попробуйте прописать путь к базе константой.

Увы, не помогло...

Если файл базы лежит в документах пользователя - то сервис, возможно, просто не имеет прав доступа в эту папку. Попробуйте его переместить в папку общие документы (тогда можно будет использовать System.IOUtils.TPath.GetSharedDocumentsPath) или в какую-нибудь другую публичную папку.

 

20 минуты назад, master webs сказал:

1 час назад, dnekrasov сказал:

Возможно проблема в System.IOUtils.TPath.GetDocumentsPath

Попробуйте прописать путь к базе константой.

Увы, не помогло...

Полностью согласен, только одно маленькое дополнение - вместо TPath.GetDocumentsPath + TPath.DirectorySeparatorChar лучше использовать IncludeTrailingPathDelimiter(TPath.GetDocumentsPath)

[Adm123]

Да не в путях тут дело. Чтобы завис нормальный рабочий сервис достаточно просто кинуть ему на форму FDConnection. И ничего никуда не подключать, никак этот FDConnection не использовать...

Так что дело тут в использовании компонента. И вопрос остается открытым - как общаться с БД в сервисе?

[master webs]

ищите другой вариант реализации например список задач выгружайте в json  в сервисе обрабатывайте  по завершению отправляйте уведомление что все сделано  и заносите изменения в базу уже в запущенном состояние потом опять также  создавайте список новых задач или одни и тек же крутите постоянно до определенного условия  бесконечны циклы вроде можно запустить и выйти с него так же можно

обрабатывать базу данных в сервисе большего извращения нет  так как размер может быть непредсказуем и вы просто сожрете все ресурсы на телефоне 

Изменено 21 марта, 2016 пользователем master webs

[Adm123]

Размер как раз предсказуем и невелик. Но придется, похоже, так делать, через тот json

[Pax Beach]

Товарищи, вот у меня такой же вопрос, как в сабже.

Сервис работает в процессе приложения, должен собирать геокоординаты устройства и писать их в базу SQLite, которая используется и самим приложением, в том числе приложение работает с собранными координатами.

Подскажите пожалуйста, как обеспечить доступ к SQLite из программы и из сервиса, в какую папку базу лучше деплоить и как к ней из приложения и сервиса обращаться?

P.S.: Приложение работает с базой SQLite, но на устройстве базу найти не могу, ни в каталоге приложения, ни поиском по всему устройству. В чем фокус, может кто знает?

procedure TDM.conSQLiteBeforeConnect(Sender: TObject);
var
  dbPath: string;
begin
{$IF DEFINED(iOS) or DEFINED(ANDROID)}
  dbPath := TPath.Combine(TPath.GetDocumentsPath, 'mybase.sdb');
{$ENDIF}
{$IF DEFINED(MSWINDOWS)}
  dbPath := TPath.GetFullPath(TPath.Combine(TPath.GetLibraryPath, '..\..\..\DataBase\mybase.sdb'));
  if not FileExists(dbPath) then
    dbPath := TPath.GetFullPath(TPath.Combine(TPath.GetLibraryPath, 'mybase.sdb'));
{$ENDIF}
  conSQLite.Database := dbPath;
end;

 

[Pax Beach]

Товарищи, вот у меня такой же вопрос, как в сабже.

Сервис работает в процессе приложения, должен собирать геокоординаты устройства и писать их в базу SQLite, которая используется и самим приложением, в том числе приложение работает с собранными координатами.

Подскажите пожалуйста, как обеспечить доступ к SQLite из программы и из сервиса, в какую папку базу лучше деплоить и как к ней из приложения и сервиса обращаться?

P.S.: Приложение работает с базой SQLite, но на устройстве базу найти не могу, ни в каталоге приложения, ни поиском по всему устройству. В чем фокус, может кто знает?

 

UPDATE:

Я нашел решение, отписался в этой ветке.

procedure TDM.conSQLiteBeforeConnect(Sender: TObject);
var
  dbPath: string;
begin
{$IF DEFINED(iOS) or DEFINED(ANDROID)}
  dbPath := TPath.Combine(TPath.GetDocumentsPath, 'mybase.sdb');
{$ENDIF}
{$IF DEFINED(MSWINDOWS)}
  dbPath := TPath.GetFullPath(TPath.Combine(TPath.GetLibraryPath, '..\..\..\DataBase\mybase.sdb'));
  if not FileExists(dbPath) then
    dbPath := TPath.GetFullPath(TPath.Combine(TPath.GetLibraryPath, 'mybase.sdb'));
{$ENDIF}
  conSQLite.Database := dbPath;
end;

 

[Hevard]

Я не пойму, а в каком моменте идёт подключение к базе? BeforeConnect прописан, но в коде не указано .Conneсt :=True;