XE5 Android TBitmap.LoadFromStream не работает внутри потока

Судя по всему, это ошибка, которая должна быть исправлена ​​в следующем обновлении. Чтобы применить исправление к вашему коду, объявите эту процедуру:

uses
  Androidapi.NativeActivity,
  Posix.Pthread;


procedure MyEndThreadProc(ExitCode:Integer);
var
  PActivity: PANativeActivity;
begin
    PActivity := PANativeActivity(System.DelphiActivity);
    PActivity^.vm^.DetachCurrentThread(PActivity^.vm);
    pthread_exit(ExitCode);
end;

и назначьте его EndThreadProc из System.Classes:

procedure TForm1.FormCreate(Sender: TObject);
begin
  EndThreadProc := MyEndThreadProc;
end;

С помощью этого исправления вы можете установить, например, свой поток с помощью

FreeOnTerminate := true;

и тогда такой код больше не приведет к сбою приложения:

TYourThread.Create(something, somethingelse).Start;

Я должен отдать должное Антонио Тортосе за публикацию этого решения на форумах Embarcadero.

После долгих испытаний и помощи коллег мы с коллегой решили проблему. Решение состоит в том, чтобы не завершать поток, а продолжать его выполнение.

Я знаю, что это немного странно. Я попытался отключить FreeOnTerminate, но он управляет только объектом потока, а не фактическим потоком. Похоже, что синхронизированный вызов не синхронизирован. Я понятия не имею, когда и где растровое изображение фактически используется или копируется. Возможно, где-то есть еще один поток графического интерфейса, поскольку скомпилированный Delphi код библиотеки Android все равно не запускается в основном потоке.

Вот рабочий код.

procedure TBitmapThread.Execute;
begin
  inherited;
  BeforeExecute;
  try
    fBitmap := TBitmap.CreateFromFile(TPath.Combine(TPath.GetDocumentsPath, 'koala.jpg'));
    // Sleep(2000);
    Synchronize(UpdateImage);
    // Keep the thread running
    while not Terminated do
    begin
      Sleep(100);
    end;
    fBitmap.Free;
  except
    on E:Exception do
    begin
      Log.d('TestThread Exception: ' + E.message);
    end;
  end;
  AfterExecute;
end;