CameraComponent Portraitmodus erzwingen

[friedt99]

Hallo zusammen,

hat jemand eine Idee ob und wie es möglich ist die Android / IOS Kamera
in den Portraitmodus zu zwingen ?

Ich verwende die CameraComponent.

Wenn man beim Starten der Kamera das Smartphone waagerecht hält, erscheint
das Bild immer in Landscape. Das ist aber nervig wenn man Dokumente fotografieren
möchte. Man muss immer erst das Smartphone kurz auf einen Winkel > 30° kippen damit der
Portraitmodus anspringt.

Diese Verhalten (unter IOS) ist auch in der Demo "CameraComponent" zu sehen.

Grüße

Thomas

[zeras]

Ich habe das so gelöst. Du kannst ja mal probieren, ob das so etwa passt. Bei mir ist es Landscape. Das musst du dann entsprechend anpassen.

Delphi-Quellcode:

//wir lassen nur Landscape (Querformat) zu
Procedure SetScreenOrientation;
var
  ScreenService: IFMXScreenService;
  OrientSet: TScreenOrientations;

begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
  begin

    //Ausrichtung Bildschirm soll fest sein, damit sich nicht einfach der Bildschirm dreht, wenn jemand etwas bewegt
    if BildschirmAusrichtung then begin
      OrientSet := [TScreenOrientation.InvertedLandscape]; //Kabel links Nexus7
    end
    else begin
      OrientSet := [TScreenOrientation.Landscape]; //Kabel rechts Nexus7
    end;

    ScreenService.SetSupportedScreenOrientations(OrientSet);
  end;
end;

[friedt99]

Hallo Zeras,

danke für die Info.
Das mit der Anwendung auf Portrait festlegen, das habe ich auch schon hinbekommen.
Das geht auch über die Projektoptionen "Anwendung" - "Ausrichtung".

Ich meinte aber die Kameraausrichtung.

Die Kamera geht, bei einem waagerecht gehaltenen iPhone automatisch auf
Landscape. Erst wenn ich das iPhone etwas aus der waagerechten kippe, dann
geht die Kamera auf Portrait.

Kann man mit der Demo Anwendung CameraComponent sehen.

Grüße

Thomas