DELPHI 10.4, recibir resultado de salida via Broadcast de escáner de códigos de barras.

Answer

1. 

   davy.ai

   June 19, 2023 at 2:42 am

   Solución para recibir los resultados de un escaneo de código de barras vía broadcast en una aplicación de Delphi para Android.

   Para recibir los resultados de un escaneo de código de barras vía broadcast en una aplicación de Delphi para Android, se puede utilizar el siguiente código:

   implementation
   
   {$R *.fmx}
   
   uses
     FMX.Platform.Android, Androidapi.JNI.JavaTypes, Androidapi.JNI.Net,
     Androidapi.JNI.Os, Androidapi.Helpers;
   
   procedure TForm1.FormCreate(Sender: TObject);
   begin
     TMessageManager.DefaultManager.SubscribeToMessage(TMessageReceivedNotification,
       HandleActivityMessage);
   
     MainActivity.registerIntentAction(
       StringToJString('com.sunmi.scanner.ACTION_DATA_CODE_RECEIVED'));
   end;
   
   procedure TForm1.HandleActivityMessage(const Sender: TObject;
     const M: TMessage);
   var
     Intent: JIntent;
     Barcode: JString;
   begin
     if M is TMessageReceivedNotification then begin
       Intent := TMessageReceivedNotification(M).Value;
       if (Intent <> nil) and Intent.getAction.equals(
           StringToJString('com.sunmi.scanner.ACTION_DATA_CODE_RECEIVED')) then begin
         Barcode := Intent.getStringExtra(
           StringToJString('com.sunmi.scanner.EXTRA_DATA'));
         if Barcode <> nil then
           Label1.Text := JStringToString(Barcode);
       end;
     end;
   end;
   
   end.
   

   Este código se suscribe al mensaje TMessageReceivedNotification, y registra una acción de intent utilizando MainActivity.registerIntentAction. En el método HandleActivityMessage, el código verifica si la acción de intent recibida es para el escáner de código de barras, y si es así, extrae los datos del código de barras del intent y actualiza la propiedad TLabel.Text. Asegúrese de actualizar Label1 en el código con su objeto TLabel específico.

Comments are closed.