Intent für BarcodeScan geht unter XE8 aber nicht unter Berlin

[DeddyH]

Hilft Dir dieser Blog-Eintrag weiter?

[QuickAndDirty]

Ich hoffe.
denn wie ich gerade vom Kunden erfahren habe tritt dort das Problem noch auf.
Und ich kann es auch hier auf einmal wieder reproduzieren...warum auch immer.
der Call Back wird vom intent nicht aufgerufen, stattdessen wird die App neugestartet.
Verrückt.
Warum ging das in XE8 und in Berlin nicht mehr?

[QuickAndDirty]

Zitat von DeddyH:

Hilft Dir dieser Blog-Eintrag weiter?

Ok sie haben also den ganzen scheiß geändert in Delphi Seatle und Berlin

Seine Beispiele sind im prinzip wie meines. Mit der ausnahme das er innerhalb der callback methode Thread.Queue verwendet. Aber so weit komme ich ja schon nicht.
die Callback methode wird einfach nicht aufgerufen. zumindest nicht der breakpoint an ihrem anfang.

[QuickAndDirty]

Lustig in der App funktioniert der obige code

Delphi-Quellcode:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, uBarcodeScannerIntent,
  FMX.ScrollBox, FMX.Memo, FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }

    Scanner:TBarcodeScannerIntent;
    Procedure OnBarcodeScanned(Sender:TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Scanner.scan;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Scanner := TBarcodeScannerIntent.Create(self);
  Scanner.OnBarcodeScanned := OnBarcodeScanned;
end;

procedure TForm1.OnBarcodeScanned(Sender: TObject);
begin
  Memo1.Lines.insert(0,Scanner.Barcode);
end;

[QuickAndDirty]

Tja.
Es liegt wohl nicht am Barcode selbst. Es liegt am Wechsel in den Landscape-Mode.
Ich gucke mal wo das nun herkommt.