AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Cross-Platform-Entwicklung TCameraComponent nutzt den Autofocus nicht.
Thema durchsuchen
Ansicht
Themen-Optionen

TCameraComponent nutzt den Autofocus nicht.

Ein Thema von QuickAndDirty · begonnen am 7. Jun 2016 · letzter Beitrag vom 3. Dez 2018
Antwort Antwort
Benutzerbild von milos
milos

Registriert seit: 14. Jul 2008
Ort: Bern (CH)
512 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: TCameraComponent nutzt den Autofocus nicht.

  Alt 23. Jun 2016, 03:13
...nur ohne WWW. zu finden. (Sorry )

Freundliche Grüsse
Milos
  Mit Zitat antworten Zitat
QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
2.058 Beiträge
 
Delphi 12 Athens
 
#2

AW: TCameraComponent nutzt den Autofocus nicht.

  Alt 3. Dez 2018, 09:51
Es gibt ja diesen Workaround auf QC...der nicht für mich funktioniert.
Aber ich habe ihn Modifiziert und das funktioniert für mich.
Da die Camera in dieser App ja Barcodes von zetteln oder aufklebern scannen soll und diese in der regel "nah" sind.
Also sorge ich dafür das ContinuousAutoFocus immer den Makro mode aktiviert..

Ist etwas QuickAndDirty...


Folgende Änderung in lokaler Kopie von FMX.MEDIA.ANDROID.pas
Delphi-Quellcode:

procedure TAndroidVideoCaptureDevice.SetFocusMode(const Value: TFocusMode);
var
  Params: JCamera_Parameters;
begin
  Params := Camera.getParameters;
  if Params = nil then
    Exit;

  case Value of
    TFocusMode.AutoFocus:
      Params.setFocusMode(TJCamera_Parameters.JavaClass.FOCUS_MODE_AUTO);

    TFocusMode.ContinuousAutoFocus:
      Params.setFocusMode(TJCamera_Parameters.JavaClass.FOCUS_MODE_MACRO); //Changed Line //Params.setFocusMode(TJCamera_Parameters.JavaClass.FOCUS_MODE_CONTINUOUS_PICTURE);

    TFocusMode.Locked:
      Params.setFocusMode(TJCamera_Parameters.JavaClass.FOCUS_MODE_FIXED);
  end;

  Camera.setParameters(Params);
  if Value in [TFocusMode.AutoFocus, TFocusMode.ContinuousAutoFocus] then //Added line
    Camera.autoFocus(nil);//Added line
end;
folgende Änderung in lokaler kopie von FMX.Media.Pas
Delphi-Quellcode:
TCameraComponent = class(TFmxObject)
private
    [...]
// procedure SetFocusMode(const Value: TFocusMode);// deleted line
    [...]
protected
    [...]
public
    [...]
    procedure SetFocusMode(const Value: TFocusMode);// moved line
    [...]
published
[...]
end;
Wie im QC-Workaround beschrieben den Focusmode per "SetFocusMode" statt per Focusmode Property setzen.
Andreas
Nobody goes there anymore. It's too crowded!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz