TTask опасен (Android)

[Major]

Я в шоке.

Была работающая процедура, скажем, My_Procedure. Работала и под Windows, и под Android.

Просто поместил ее в TTask и повалились ошибки (под Андроидом) 

 TTask.Run(
    procedure
    begin
      My_Procedure;

      TThread.Synchronize(nil,
        procedure
        begin
          Button1.Enabled := True;
        end);
    end);
end;

 

Дебагер открывает

{$IFDEF POSIX}
function SysGetMem(Size: NativeInt): Pointer;
begin
  Result := __malloc(size);
end;

 

[kami]

23 минуты назад, Major сказал:

My_Procedure;

А там что? Обращение к визуальным компонентам?

[krapotkin]

вот да

[Major]

4 часа назад, kami сказал:

А там что? Обращение к визуальным компонентам?

Верно. Рисуются линии на канве TImage. Рисуются линии, потом делается Sleep, потом опять линии (своего рода анимация)

В задаче нельзя обращаться к визуальным компонентам?

Изменено 14 февраля, 2017 пользователем Major

[Andrey Efimov]

19 минут назад, Major сказал:

Верно. Рисуются линии на канве TImage. Рисуются линии, потом делается Sleep, потом опять линии (своего рода анимация)

В задаче нельзя обращаться к визуальным компонентам?

Правило: Обращение к любому визуальному компоненту в потоке только через

TThread.Synchronize

[krapotkin]

вообще имхо плохой вариант делать анимацию через поток и sleep

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

смысл абсолютно тот же ибо доп. поток будет работать только на Sleep, все остальное все равно происходит в главном

[Major]

3 часа назад, krapotkin сказал:

вообще имхо плохой вариант делать анимацию через поток и sleep

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

смысл абсолютно тот же ибо доп. поток будет работать только на Sleep, все остальное все равно происходит в главном

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

[Major]

27 минут назад, Andrey Efimov сказал:

Правило: Обращение к любому визуальному компоненту в потоке только через

TThread.Synchronize

сделал так:

TTask.Run(
    procedure
    begin
      TThread.Synchronize(nil,
        procedure
        begin
          My_Procedure;
        end);

      TThread.Synchronize(nil,
        procedure
        begin
          Button1.Enabled := True;
        end);
    end);
end;

Ошибок run-time больше нет. А как обновить TImage после каждой прорисовки? У меня только конечный вариант показывает.

Причем под Windows TImage обновляется после каждой итерации, а под Android - показывается только заключательная картинка, а всё предыдущее время TImage стоит нетронутым.

[Равиль Зарипов (ZuBy)]

11 минут назад, Major сказал:

сделал так

эм, зачем тут поток? вы понимаете хоть что написали?

[Major]

3 часа назад, Равиль Зарипов (ZuBy) сказал:

эм, зачем тут поток? вы понимаете хоть что написали?

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

[krapotkin]

а сейчас тут в точности написано следующее

 My_Procedure;
 Button1.Enabled := True;

[Rusland]

Major, внутри My_Procedure делайте Synchronize только при обращении к визуальным компонентам. Покажите процедуру My_Procedure