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

[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.