TCameraComponent nutzt den Autofocus nicht.

[QuickAndDirty]

Hallo,
ich wollte den ZebraCrossingLibrary-Delphi-Port testen.
https://github.com/Spelt/ZXing.Delphi
Die hier mitgelieferte "aTestApp" nutz den scheinbar den Autofocus oder Abstandssensor der Android Camera nicht.

Es wird die Firemonkey Komponente

TCameraComponent verwendet.

Delphi-Quellcode:

TCameraCompenent.FocusMode := TFocusMode.ContiousAutoFocus

führt zu einem Segmentation fault.


Edit: Die Lösung die funktioniert wäre im moment für $80-$240
http://www.winsoft.sk/acamera.htm
zu kaufen und TACamera im focus mode "Macro" zu betreiben.
Das funktioniert dann nicht für IOS.


So einen fix für TCameraComponent gibts nicht?



Gibts eine Lösung dazu?




Es gibt anlagen dazu.

unit Androidapi.JNI.Hardware

Delphi-Quellcode:

  JCamera_ParametersClass = interface(JObjectClass)
    {class} property FOCUS_MODE_AUTO: JString read _GetFOCUS_MODE_AUTO;
    {class} property FOCUS_MODE_CONTINUOUS_PICTURE: JString read _GetFOCUS_MODE_CONTINUOUS_PICTURE;
    {class} property FOCUS_MODE_CONTINUOUS_VIDEO: JString read _GetFOCUS_MODE_CONTINUOUS_VIDEO;
    {class} property FOCUS_MODE_EDOF: JString read _GetFOCUS_MODE_EDOF;
    {class} property FOCUS_MODE_FIXED: JString read _GetFOCUS_MODE_FIXED;
    {class} property FOCUS_MODE_INFINITY: JString read _GetFOCUS_MODE_INFINITY;
    {class} property FOCUS_MODE_MACRO: JString read _GetFOCUS_MODE_MACRO;

Nur hier wird es dann NICHT gemacht
Und TFocusMode ist auf genau die 3 beschnitten...

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_CONTINUOUS_PICTURE);

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

  Camera.setParameters(Params);
end;

[TurboMagic]

Kannst du dazu mal bitte unter quality.embarcadero.com entsprechende(n) Report(s) anlegen? Sonst macht EMBT nämlich höchstwahrscheinlich nix daran.

[QuickAndDirty]

Zitat:

Zitat von TurboMagic (Beitrag 1340537)

Kannst du dazu mal bitte unter quality.embarcadero.com entsprechende(n) Report(s) anlegen? Sonst macht EMBT nämlich höchstwahrscheinlich nix daran.

Ich glaube nur mein Chef hat zugang zur sogenannten Quality-Central...

Für mich wäre es ok wenn du es reportest.

Kannst du den Fall für dich nachvollziehen?

[TurboMagic]

Hallo,

bitte wirklich selber den Report anlegen, weil du dich mit der Thematik einfach am besten auskennst.

Der Login zu www.quality.embarcadero.com ist einfach dein EDN account. Falls du keinen hast kannst
du kostenlos einen anlegen. Es muss auch kein Delphi auf den Account registriert werden um einen
Bugreport zu erfassen.

Link zur EDN loginseite wo auch ein "Join Today" link zum Anlegen eines Kontos drauf ist:
https://members.embarcadero.com/logi...barcadero.com/

Grüße

TurboMagic

[milos]

Zitat:

Zitat von TurboMagic (Beitrag 1340806)

Der Login zu www.quality.embarcadero.com ist...

...nur ohne WWW. zu finden. (Sorry :D)

Freundliche Grüsse

[QuickAndDirty]

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.