Переход на 10.2.3

[gonzales]

Доброго времени суток!

Установил 10.2.3, пытаюсь перевести на него проект. Нормально запускается только под win.

Андроид и iOS умирают на заставке. Дебаг работает почему-то только на андроид, но даже на нем не могу понять, что не так.

Пробовал  сделать следующие: удалил все из папки Android, делал revert system files to default в target platform - libraries, гонял туда сюда sdk. Ничего не помогает.

Кусок кода следующий

файл проекта

uses
  System.StartUpCopy,
  FMX.Forms,
  main_unit in 'main_unit.pas' {Form1},
  settings_unit in 'settings_unit.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.FormFactor.Orientations := [TFormOrientation.Portrait];

  Application.CreateForm(TSplashForm, SplashForm);

  Application.Run;
end.

procedure TSplashForm.FormShow(Sender: TObject);
begin
 SplashForm.LoadProgramm;
end;

procedure TSplashForm.LoadProgramm;
begin
  StartUpLabel.Text := 'Инициализация';
  application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  application.ProcessMessages;
  label1.Text:=VERSION;
  Application.CreateForm(TForm2, Form2);
  application.ProcessMessages;

  Form1.documentsfolder := System.IOUtils.TPath.GetDocumentsPath + PathDelim + DIR_NAME + PathDelim;
{$IFDEF ANDROID}
  Form1.downloadfolder := System.IOUtils.TPath.GetSharedMoviesPath + PathDelim;
{$ENDIF}
{$IFDEF IOS}
  Form1.downloadfolder := System.IOUtils.TPath.GetDocumentsPath + PathDelim + DIR_NAME + PathDelim;
{$ENDIF}
{$IFDEF MSWINDOWS}
  Form1.downloadfolder := System.IOUtils.TPath.GetSharedMoviesPath + PathDelim;
{$ENDIF}
{$IFDEF MACOS}
  Form1.downloadfolder := System.IOUtils.TPath.GetSharedMoviesPath + PathDelim;
{$ENDIF}

  try
    Form1.SettingsXML.LoadFromFile(Form1.settingsfilename);
    Form1.SettingsXML.Active := true;
  except
    showmessage('Не найден файл '+Form1.settingsfilename);
  end;
  if Form1.SettingsXML.Active = true then
  begin
    form1.Settings := Form1.SettingsXML.ChildNodes.Nodes['content'].ChildNodes.Nodes['Settings'];
    Form1.ExecuteSettings;
    form2.ConnectToHost;
  end;
  PreloadConfiguration;
  application.ProcessMessages;
  StartUpLabel.Text := 'Старт программы';
  application.ProcessMessages;
  application.MainForm := Form1;
  form1.Show;
  form2.CheckUserPriv;

На 10.1 при вызове processmessages отрисовывалась форма SplashScreen ну и далее. А тут нет отрисовки, висит картинка заставки и все(((

[gonzales]

Нашел причину зависания, не отрабатывает регистрация Пушей.

{$IFNDEF MSWINDOWS}
  Push.PushServiceRegister;
  for vCurNotification in Push.FPushService.StartupNotifications do
  begin
    Push.OnReceiveNotificationEvent(self, vCurNotification);
  end;
  Push.ClearAllNotification;
{$ENDIF}

закомментировал, программа стала подниматься, буду с ними отдельно разбираться. А пока не понятно, почему не показывается первая форма-заставка??? Если кто знает, подскажите пожалуйста.

Изменено 24 сентября, 2018 пользователем gonzales