Помогите разобраться с TThread.ForceQueue

[SVTX]

Добрый день уважаемые эксперты.

Помогите разобраться с функцией TThread.ForceQueue

Пришлось внедрить ее как костыль в IOS для показа модальных форм, и получаем кучу ошибок на очистке памяти.

Подскажите кто и как правильно ее использует в работе.

Ниже рабочий код который гарантированно приведет к ошибке и у нас таких более 100 мест в проекте.

FFrom := TFrom.Create(nil);
  TThread.ForceQueue(nil, procedure
  begin
    FFrom.ShowModal(procedure(Res: TModalResult)
    begin
      FreeForm(FFrom); //--> и тут получаем кучу ошибок - как правило на Form.Hide почемуто
    end);
  end);

[Slym]

Наоборот: сначала ShowModal, в колбеке ForceQueue Free

FFrom := TFrom.Create(nil);
FFrom.ShowModal(procedure(Res: TModalResult)
   begin
      TThread.ForceQueue(nil, procedure
      begin 
        FreeForm(FFrom);
      end);
   end);

 

Изменено 17 августа, 2022 пользователем Slym

[SVTX]

Slym спасибо что откликнулись

На IOS а конкретно iPhone 12/13 изменилась архитектура и появился баг с ShowModal.

Описано в тикете https://quality.embarcadero.com/browse/RSP-36095

И там описан обходной путь именно как я написал.

Он работает, но если очищать форму все ломается. А если не чистить приложение падает через 20 новых созданных форм.

 

[Slym]

очищай 

Thread.ForceQueue(nil, procedure
      begin 
        FFrom.Free;
      end);

Изменено 17 августа, 2022 пользователем Slym

[SVTX]

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

FFrom := TFrom.Create(nil);
  TThread.ForceQueue(nil, procedure
  begin
    FFrom.ShowModal(procedure(Res: TModalResult)
    begin
      //FreeForm(FFrom); //--> и тут получаем кучу ошибок - как правило на Form.Hide почемуто
      TThread.ForceQueue(nil, procedure
      begin
        FForm.Free;
      end, 100);
    end);
  end);

Изменено 17 августа, 2022 пользователем SVTX

[Slym]

переменная FForm -не глобальная?

тогда FForm .ReleaseForm, но оно тоже через TThread.ForceQueue работает

[SVTX]

Только что, Slym сказал:

переменная FForm -не глобальная?

тогда FForm .ReleaseForm, но оно тоже через TThread.ForceQueue работает

Чаще всего глобальная.

Спасибо, сейчас буду пробовать!!

[Slym]

не надо глобальные переменные... делай локальные 

var FFrom := TFrom.Create(nil);

[SVTX]

1 минуту назад, Slym сказал:

не надо глобальные переменные... делай локальные 

var FFrom := TFrom.Create(nil);

Я и так и так пробовал. Один корень. 

Поэтому пока решил что найду правильное решение и потом буду переводить на правильный код.

FFrom.Release также генерит ошибку.

Такое ощущение что чтото "держит" форму даже после завершения ForceQueue.

[Slym]

не Release а ReleaseForm

[SVTX]

17 минут назад, Slym сказал:

не Release а ReleaseForm

не нашел этого метода у TForm FMX ((

Вижу, она ушла в protected.

Попробую выдернуть.

Изменено 17 августа, 2022 пользователем SVTX

[Slym]

type
TOpenForm=class(TForm) end;

TOpenForm(FForm).ReleaseForm;

Ты так никогда не делал?
До protectedов регулярно так делаю, TOpenForm становится френдли объектом и разрешает protected

 

Изменено 17 августа, 2022 пользователем Slym

[SVTX]

7 минут назад, Slym сказал:

type
TOpenForm=class(TForm) end;

TOpenForm(FForm).ReleaseForm;

Ты так никогда не делал?
До protectedов регулярно так делаю

 

Забывается если не используешь регулярно.

Спасибо, уже получилось. Пробую.

[SVTX]

Slym большая благодарность.

Кажется в правильном направлении указали движение.

Буду пробовать в работе.

[krapotkin]

думаю, что более правильно один из двух вариантов

1) вообще не создавать переменную. в onClose просто делать Free

2) созданной форме вешать на OnClose обработчик и там делать проверку ModalResult , так же как реализовано в TDialogService.MessageDialog

 

Изменено 18 августа, 2022 пользователем krapotkin