info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Delphi 10.3 android skanowanie kodu barcode scanner zxing
41 views
Skip to first unread message
Przemyslaw Rokicki
Nov 5, 2021, 2:36:46 PM11/5/21
to
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.
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.
Przemyslaw Rokicki
Nov 5, 2021, 2:59:00 PM11/5/21
to
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.
Przemyslaw Rokicki
Nov 7, 2021, 2:39:36 PM11/7/21
to
0 new messages