[iOS] [iOS10] Приложение падает при использовании камеры в iOS 10 64 bit

[Kitty]

Пустое приложение. Код из документации. Попытка получить фото с камеры:

void __fastcall TForm1::TakePhotoFromCameraAction1DidFinishTaking(TBitmap *Image)
{
 Image1->Bitmap->Assign(Image);
}

При нажатии на кнопку приложение вылетает. Кому нибудь удавалось получить фото в С++ Builder Берлин в iOS? Спасибо.

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

Разрешение камера стоит в настройках приложения?

[Kitty]

Я что-то не могу найти, а где это? В проекте iOS пункт вообще Uses Permision пустой.

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

Нет, это не в студии. Это на девайсе

[Kitty]

Есть тестовый Project1. iOs у меня 2й день в руках. Согласно https://support.apple.com/ru-ru/HT203033 приложение должно запросить само доступ к камере.

Цитата

Программа не появится в списке, пока она не запросит разрешение на использование ваших данных. Вы можете добавить или удалить разрешение для любой программы, которая запрашивала доступ к данным. Программа может использовать ваши данные, только если вы ей это разрешили.

На девайсе я нашла 2 места где оно может быть. Прилагаю скриншоты.  Я не знаю что сделать... Приложение падает.

[Pax Beach]

Чисто предположение: может быть нужно инициализировать камеру, что-то вроде

TPlatformServices.Current.SupportsPlatformService(IFMXCameraService, FCameraService);

Или использовать метод RegisterMediaLibraryServices из FMX.MediaLibrary.iOS.pas

 

[Kitty]

Подскажите, пожалуйста,  для открытия галереи c фотографиями надо также сделать доп. шаги не описанные в документации? Например код ниже также приводит к краху приложения iOS.

void __fastcall TFormCamera::TakePhotoFromLibraryAction1DidFinishTaking(TBitmap *Image)

{
 Image1->Bitmap->Assign(Image);
}

 

[Pax Beach]

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

Подскажите, пожалуйста,  для открытия галереи c фотографиями надо также сделать доп. шаги не описанные в документации? Например код ниже также приводит к краху приложения iOS.

void __fastcall TFormCamera::TakePhotoFromLibraryAction1DidFinishTaking(TBitmap *Image)

{
 Image1->Bitmap->Assign(Image);
}

 

Это не из-за платформы. Обсуждали на форуме несколько раз уже эту проблему — проблема в том, что работа с UI и Action идет в разных потоках.

Получение снимка через Action Menu я делаю так

procedure TfmPhotos.TakePhotoFromCameraActionDidFinishTaking(Image: TBitmap);
var
  ScaleFactor: Single;
begin
  if System.Math.Max(Image.Width, Image.Height) > 1024 then begin
    ScaleFactor := System.Math.Max(Image.Width, Image.Height) / 1024;
    Image.Resize(Round(Image.Width / ScaleFactor), Round(Image.Height / ScaleFactor));
  end;
  Image1.Bitmap.Assign(Image);
end;

Ну, т.е. так же, как и у тебя.

А... забыл сказать, что нужно вешать Action не на TSpeedButton, а на TButton. выглядят так же, только приложение не падает.

 

Изменено 3 октября, 2016 пользователем Pax Beach

[Rusland]

Pax Beach, почему такой код? Чтобы сберечь память?

4 минуты назад, Pax Beach сказал:

Это не из-за платформы. Обсуждали на форуме несколько раз уже эту проблему — проблема в том, что работа с UI и Action идет в разных потоках.

Надо синхронизировать?

[Pax Beach]

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

Pax Beach, почему такой код? Чтобы сберечь память?

Надо синхронизировать?

Да. Но я не стал заморачиваться, просто сменил SpeedButton на Button )

[Rusland]

25 минут назад, Pax Beach сказал:

Да. Но я не стал заморачиваться, просто сменил SpeedButton на Button )

Странно. Я использую обычный Button, но иногда приложение падает на процедуре TakePhotoFromCameraActionDidFinishTaking

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

10 минут назад, Rusland сказал:

Странно. Я использую обычный Button, но иногда приложение падает на процедуре TakePhotoFromCameraActionDidFinishTaking

оборачиваешь в синхронизацию?

[Rusland]

нет... в примерах же Embarcadero не оборачивает

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

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

нет... в примерах же Embarcadero не оборачивает

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

[Rusland]

Оказывается я уже оборачиваю в TThread.Synchronize(nil, procedure  

[Kitty]

Цитата

Да. Но я не стал заморачиваться, просто сменил SpeedButton на Button )

У меня везде только TButton...

[Pax Beach]

6 минут назад, Kitty сказал:

У меня везде только TButton...

А так получится?

  FThread := TThread.CreateAnonymousThread(
    procedure
    begin
      TThread.Synchronize(TThread.CurrentThread,
        procedure
        begin
          try
            Image1.Bitmap.Assign(Image);
          except
          end;
        end);
    end);

  FThread.FreeOnTerminate := true;
  FThread.Start;

 

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

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

А так получится?

  FThread := TThread.CreateAnonymousThread(
    procedure
    begin
      TThread.Synchronize(TThread.CurrentThread,
        procedure
        begin
          try
            Image1.Bitmap.Assign(Image);
          except
          end;
        end);
    end);

  FThread.FreeOnTerminate := true;
  FThread.Start;

 

эм, зачем такая конструкция? какой смысл?

[Pax Beach]

1 час назад, ZuBy сказал:

эм, зачем такая конструкция? какой смысл?

Размышления на тему синхронизации. А как лучше?

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

14 минут назад, Pax Beach сказал:

Размышления на тему синхронизации. А как лучше?

этого достаточно

 TThread.Synchronize(TThread.CurrentThread,
        procedure
        begin
          try
            Image1.Bitmap.Assign(Image);
          except
          end;
        end);

[Rusland]

8 минут назад, ZuBy сказал:

 

 TThread.Synchronize(TThread.CurrentThread,
        procedure
        begin
          try
            Image1.Bitmap.Assign(Image);
          except
          end;
        end);

Раз пошла такая пьянка, то есть ли разница TThread.CurrentThread или nil?:

 TThread.Synchronize(nil,
        procedure
        begin
          try
            Image1.Bitmap.Assign(Image);
          except
          end;
        end);

 

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

как я думаю TThread.CurrentThread используется в TThread.Queue (), в обычном TThread.Synchronize() разницы никакой

Изменено 3 октября, 2016 пользователем ZuBy

[Kitty]

Может кто знает как сию конструкцию транслировать в С++. Не могу найти в докивики ничего полезного...

[Rusland]

Может как-то так?

TThread::Synchronize(TThread::CurrentThread, Update);

void __fastcall Update(void)
{  
  Image1->Bitmap->Assign(Image);
}

 

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

2 минуты назад, Rusland сказал:

Может как-то так?

TThread::Synchronize(TThread::CurrentThread, Update);

void __fastcall Update(void)
{  
  Image1->Bitmap->Assign(Image);
}

 

а где ты возьмешь Image?

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

проблема как раз в том что Bitmap непотокозащищенный, все операции с Bitmap нужно в основном потоке делать