FMX Android Barkod Scanner - [ÇÖZÜLDÜ]

[Mesut]

Merhabalar,
daha önce formu bu konuda baya araştırdım. hatta tüm yöntemlere de baktım benzer konular açılmış ama çözüm yolu ya bulunmuyor ya da sunulan çözümlerden de neticeye varamadım 
kütüphane olarak Zxing kullanıyorum . Önce TCameracontrol  bileşeni ile denedim inanılmaz yavaş çalışıyor. Video kalitesini Mediuma düşürmeme rağmen  yani ortalama bir barkodu okutmak neredeyse 7-8 saniyeyi buluyor focuslanma süresiyle beraber. Bunuın dışında Barcode scanner uygulaması ile birlikte kullanı sğlamaya çalışıyorum o güzel okutor ama onda da şöyle bir sıkıntı var okunan barkodu Edit ya da başka bir yere  yapıştırmak için illaki bir nesneyi etkileşime geçirmek gerekiyor. otomatize etmeye çalıştım ama olmadı her seferinde tıklama zorunluluğu oluyor. Malum çoklu barkod okunacak işlemlerde bu şekilde çalışmak imkansız bu konuda yardımalrınızı rica ediyorum. Timer ile de thread ile de otoamtize etmeye çalıştım olmuyor   Bu arada kodları aşağıya bırakıyorum. Aşağıda da görüleceği üzere cornerbutton3 tıklamadan yapıştırma işlemini gerçekleştirmiyor 

procedure TForm1.GetBarcode;
var
 intent: JIntent;
 ClipboardService: IFMXClipboardService;
 ClipboardText: string;
begin
  Edit1.Text := '';
   intent := TJIntent.Create;
  intent.setAction(stringtojstring('com.google.zxing.client.android.SCAN'));
  intent.putExtra(tjintent.JavaClass.EXTRA_TEXT, stringtojstring('SCAN_MODE,PRODUCT_MODE'));
  //intent.setType(StringToJString('text/plain'));
 SharedActivity.startActivityForResult(intent, 0);


 if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(ClipboardService)) then
 begin

   ClipboardText := ClipboardService.GetClipboard.ToString;


   Edit1.Text := ClipboardText;
   Edit1.PasteFromClipboard;
 end;

 Timer1.Enabled:=True;
end;

procedure TForm1.CornerButton2Click(Sender: TObject);
begin
GetBarcode;
end;

procedure TForm1.CornerButton3Click(Sender: TObject);
begin
Edit1.Text:='';
Edit1.PasteFromClipboard;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 if not TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(ClipService)) then
   ClipService := nil;Elapsed := 0

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled := False;
 TThread.ForceQueue(nil,
   procedure
   begin
     CornerButton3Click(nil);
   end
 );
end;