Delphi SqLite, firedac, застрял на черном загрузочном экране со значком огня - PullRequest
Новая
       10

Delphi SqLite, firedac, застрял на черном загрузочном экране со значком огня

0 голосов
/ 29 декабря 2018

Я работаю над простым приложением для Android, которое использует sqlite.У меня есть простое приложение для нескольких устройств.Существует список, связанный с fdquery1 и fdconnection1.Когда я компилирую на свой телефон Android, я получаю черный экран со значком огня.Если я включу fdconnection1, то приложение скомпилируется (БЕЗ отображения данных в Listview).Кто-нибудь сталкивался с этим раньше?Я использую Delphi Community Edition.Спасибо за вашу помощь.вот ссылка на мой код sorcecode

Единственный код, который у меня есть, предназначен для Android. 

procedure TForm4.FDConnection1BeforeConnect(Sender: TObject);
begin
   {$IF DEFINED(iOS) or DEFINED(ANDROID)}
    FDConnection1.Params.Values['Database'] :=
    TPath.Combine(TPath.GetDocumentsPath, 'flatrate.db3');
    {$ENDIF}
end;

Я отключил fdconnection1 и подключил его в формах на событии show.Приложение теперь будет компилироваться на Android, но у меня возникли проблемы с выполнением запроса1 sql для отображения данных в представлении списка. 

procedure TForm4.Button1Click(Sender: TObject);
  begin
    FDQuery1.SQL.Text := 'select * from main';
    fdquery1.ExecSQL;
    FDQuery1.Open;
  end;

Когда я нажимаю на кнопку на моем телефоне Android, я получаю сообщение «ошибка неттакой стол основной "

1 Ответ

0 голосов
/ 30 декабря 2018

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

procedure TForm4.FormShow(Sender: TObject);
 begin
   FDConnection1.Connected:= True;
   FDQuery1.Active:=True;

 end;

Надеюсь, это кому-нибудь поможет:)

...