Как я победил TCameraComponent

[pan]

Была задача сохранять надписи с приборов, т.е. сохраняется центральная часть фото, причём для прицеливания на экран выводится тоже только часть изображения с камеры, соответствующая видимой части экрана.

Начитавшись форумов о тормозах, решил что CameraComponent.Quality:=TVideoCaptureQuality.LowQuality это мой вариант, но в процессе отладки заметил, что если в одной процедуре деактивировать CameraComponent и через пару действий снова активировать, тормоза пропадают и на MediumQuality.

Потанцевал с бубном в этом направлении и получил несколько правил для комфортной работы CameraComponent:

1. Включение камеры нужно выполнять, когда закончилась подготовка экрана. Если например включается страница TabControl, на которую выводим изображение с камеры, то в этой процедуре нельзя включать камеру, нужно перенести это действие в Application.OnIdle:

Application.OnIdle:=CameraActivate; //CameraComponent.Active:=true;

procedure TFormApp.CameraActivate(Sender: TObject; var Done: Boolean);
begin
  Done:=true; Application.OnIdle:=nil; CameraComponent.Active:=true;
end;

2. Если включен автофокус CameraComponent.FocusMode:=TFocusMode.ContinuousAutoFocus;, после включения камере надо дать время потупить (пропустить несколько CameraComponentSampleBufferReady):

procedure TFormApp.CameraComponentSampleBufferReady(Sender: TObject; const ATime: TMediaTime);
begin
  TThread.Synchronize(TThread.CurrentThread, CameraComponentSampleBufferReadySync);
end;

procedure TFormApp.CameraComponentSampleBufferReadySync;
begin
  if CameraActivateStep>0 then CameraActivateStep:=CameraActivateStep-1 else
  begin
    CameraComponent.SampleBufferToBitmap(CameraBitmapFull,true);
    with ImagePositionImg.Bitmap.Canvas do if BeginScene then
    try
      DrawBitmap(CameraBitmapFull,RectScreenOnCamera,RectScreenOnScreen,1,true);
      DrawRect(RectAimOnScreen,1);
    finally
      EndScene;
    end;
  end;
end;

Я до конца так и не понял, нужен ли этот Synchronize, в примере эмбры на паскале он был а на си нет...

3. Если камера затупила во время работы, нужно сделать перезапуск в одной процедуре:

CameraComponent.Active:=false; CameraComponent.Active:=true;

Вдруг кому поможет... Это была Delphi 11.3

[GASCHE]

23 часа назад, pan сказал:

Я до конца так и не понял, нужен ли этот Synchronize

Так вроде у вас всё в основном потоке выполняется, зачем его с самим собой синхронизировать? 

[krapotkin]

если Synch вызвать в ГП то в теории все должно зависнуть