🚀 go-pugleaf

piątek, 5 listopada 2021 o 19:36:46 UTC+1 Przemyslaw Rokicki napisał(a):
> Witam, ma ktoś gotowy kod i podzieliłby się ze skanowaniem 
> poprzez wywołanie aplikacji barcodescanner zxing (zwykły ean oraz qr) ze zwrotem do aplikacji? Zastosowałem wbudowaną bibliotekę zxing, jednak bardzo wolno działa aparat. Nie mam doswiadczenia w programowaniu na androida i nie za bardzo wiem jak wywolywac z zastosowaniem wynikow zewnetrznych aplikacji . 
> 
> 
> Pozdrawiam 
> P.

W lazarusie zastosował jIntentManager ktorego w delphi nie ma, wywolanie 

  jIntentManager1.SetAction('com.google.zxing.client.android.SCAN');
  if jIntentManager1.IsCallable(jIntentManager1.GetIntent()) then
  begin
    jIntentManager1.PutExtraString('SCAN_FORMATS', ACodeType);
    jIntentManager1.StartActivityForResult(0);
  end else
  begin
    ShowMessage('Wymagana aplikacja skanera kodów kreskowych...');
    jIntentManager1.SetAction(jIntentManager1.GetActionViewAsString());
    jIntentManager1.SetDataUri(jIntentManager1.ParseUri('market://search?q=barcode+scanner'));
    jIntentManager1.StartActivity();
    gApp.Finish;
  end;

i na glownej formie jest zdarzenie on ActivityResult 
procedure TMainModule.MainModuleActivityResult(Sender: TObject;
  requestCode: integer; resultCode: TAndroidResult; intentData: jObject);

  if (requestCode = 0) then
  begin
    (..._)
      sBarCode := jIntentManager1.GetExtraString(intentData, 'SCAN_RESULT');
      i(....)

i to chce do delphi przezrzucić. 

Pozdrawiam
P.

piątek, 5 listopada 2021 o 19:59:00 UTC+1 Przemyslaw Rokicki napisał(a):
> piątek, 5 listopada 2021 o 19:36:46 UTC+1 Przemyslaw Rokicki napisał(a): 
> > Witam, ma ktoś gotowy kod i podzieliłby się ze skanowaniem 
> > poprzez wywołanie aplikacji barcodescanner zxing (zwykły ean oraz qr) ze zwrotem do aplikacji? Zastosowałem wbudowaną bibliotekę zxing, jednak bardzo wolno działa aparat. Nie mam doswiadczenia w programowaniu na androida i nie za bardzo wiem jak wywolywac z zastosowaniem wynikow zewnetrznych aplikacji . 
> > 
> > 
> > Pozdrawiam 
> > P.
> W lazarusie zastosował jIntentManager ktorego w delphi nie ma, wywolanie 
> 
> jIntentManager1.SetAction('com.google.zxing.client.android.SCAN'); 
> if jIntentManager1.IsCallable(jIntentManager1.GetIntent()) then 
> begin 
> jIntentManager1.PutExtraString('SCAN_FORMATS', ACodeType); 
> jIntentManager1.StartActivityForResult(0); 
> end else 
> begin 
> ShowMessage('Wymagana aplikacja skanera kodów kreskowych...'); 
> jIntentManager1.SetAction(jIntentManager1.GetActionViewAsString()); 
> jIntentManager1.SetDataUri(jIntentManager1.ParseUri('market://search?q=barcode+scanner')); 
> jIntentManager1.StartActivity(); 
> gApp.Finish; 
> end; 
> 
> i na glownej formie jest zdarzenie on ActivityResult 
> procedure TMainModule.MainModuleActivityResult(Sender: TObject; 
> requestCode: integer; resultCode: TAndroidResult; intentData: jObject); 
> 
> if (requestCode = 0) then 
> begin 
> (..._) 
> sBarCode := jIntentManager1.GetExtraString(intentData, 'SCAN_RESULT'); 
> i(....) 
> 
> i to chce do delphi przezrzucić. 
> 
> Pozdrawiam 
> P.

Nie było pytania