LAMW - barcodegen QrCode creation addition
lazarus / 43-Android

----------------------------------------------------------------------
Mongkey · 2023-09-15 06:23

source : https://www.callicoder.com/generate-qr-code-in-java-using-
zxing/

Code: Java  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i package
org.lamw.appbarcodegendemo1; import android.content.Context;import
android.graphics.Bitmap;import android.graphics.Color;import
android.net.Uri; import com.google.zxing.BarcodeFormat;import
com.google.zxing.MultiFormatWriter;import
com.google.zxing.WriterException;import
com.google.zxing.common.BitMatrix;import
com.google.zxing.qrcode.QRCodeWriter; import
java.io.IOException;import java.text.CharacterIterator;import
java.text.StringCharacterIterator;import java.util.Arrays; /*Draft
java code by "Lazarus Android Module Wizard" [7/25/2020 0:50:10]*//*ht
tps://github.com/jmpessoa/lazandroidmodulewizard*//*jControl LAMW
template*/ //ref.
https://stackoverflow.com/questions/22371626/android-generate-qr-code-
and-barcode-using-zxingpublic class jBarcodeGen /*extends ...*/ {    
private long pascalObj = 0;        //Pascal Object    private Controls
controls  = null; //Java/Pascal [events] Interface ...    private
Context  context   = null;     //GUIDELINE: please, preferentially,
init all yours params names with "_", ex: int _flag, String _hello
...     public jBarcodeGen(Controls _ctrls, long _Self) { //Add more
others news "_xxx" params if needed!        //super(_ctrls.activity); 
      context   = _ctrls.activity;        pascalObj = _Self;       
controls  = _ctrls;    }     public void jFree() {        //free local
objects...    }     //write others [public] methods code here......  
//GUIDELINE: please, preferentially, init all yours params names with
"_", ex: int _flag, String _hello ...     /*     CODABAR,    CODE_39, 
  CODE_93,    CODE_128,    EAN_8, EAN_13,    ITF,    RSS_14,   
RSS_EXPANDED,    UPC_A,    UPC_E,    UPC_EAN_EXTENSION;     AZTEC,   
MAXICODE,    PDF_417,    DATA_MATRIX,    QR_CODE,      */    //note:
QRCode, Data Matrix, Aztec, PDF 417 and MaxiCode all are 2D barcodes 
 //UCC-128, EAN-128 or SSCC-18       shipping cartons   
//https://www.morovia.com/kb/Identify-Barcode-Format-10623.html    
//https://www.scandit.com/blog/types-of-barcodes-choosing-the-right-
barcode-type-ean-upc-code128-itf-14-or-code39/     public Bitmap
QRCode(String _data, int _width, int _height)            throws
WriterException, IOException {//        Hashtable<EncodeHintType,
ErrorCorrectionLevel> hintMap = new Hashtable<EncodeHintType,
ErrorCorrectionLevel>();//      
 hintMap.put(EncodeHintType.ERROR_CORRECTION, ErrorCorrectionLevel.H);
// H = 30% damage         QRCodeWriter qrCodeWriter = new
QRCodeWriter();         BitMatrix bitMatrix =
qrCodeWriter.encode(_data,BarcodeFormat.QR_CODE, _width, _height);   
   int width = bitMatrix.getWidth();        int height =
bitMatrix.getHeight();        int[] pixels = new int[width * height]; 
      for (int y = 0; y < height; y++) {            int offset = y *
width;            for (int x = 0; x < width; x++) {               
pixels[offset + x] = bitMatrix.get(x, y) ? Color.BLACK : Color.WHITE; 
          }        }         Bitmap imageBitmap =
Bitmap.createBitmap(width, height, Bitmap.Config.ARGB_8888);       
imageBitmap.setPixels(pixels, 0, width, 0, 0, width, height);       
return imageBitmap;    }     public Bitmap Get128Bar(String _data, int
_width, int _height) throws WriterException {        MultiFormatWriter
writer = new MultiFormatWriter();        String finalData =
Uri.encode(_data);         // Use 1 as the height of the matrix as
this is a 1D Barcode.        BitMatrix bm = writer.encode(finalData,
BarcodeFormat.CODE_128, _width, 1);        int bmWidth =
bm.getWidth();         Bitmap imageBitmap =
Bitmap.createBitmap(bmWidth, _height, Bitmap.Config.ARGB_8888);      
 for (int i = 0; i < bmWidth; i++) {            // Paint columns of
width 1            int[] column = new int[_height];           
Arrays.fill(column, bm.get(i, 0) ? Color.BLACK : Color.WHITE);       
   imageBitmap.setPixels(column, 0, 1, i, 0, 1, _height);        }   
   return imageBitmap;    }     /*    CODE_128,    EAN_8,    EAN_13, 
 ITF,    UPC_A,    UPC_E,    CODE_39,     AZTEC,    MAXICODE,   
PDF_417,    DATA_MATRIX,    QR_CODE,     */     //ref.
https://stackoverflow.com/questions/10143547/how-do-i-validate-a-upc-
or-ean-code    //UPC-A encodes 11 digits   
//http://www.barcodeisland.com/upca.phtml    /*    UPC-A has the
following structure:
 http://www.barcodelib.com/java_barcode/barcode_symbologies/upca.html 
  1 digit for Number System (0: regular UPC codes, 1: reserved, 2:
random weight items marked at the store, 3: National Drug Code and
National Health Related Items code, 4: no format restrictions, for in-
store use on non-food items, 5: for use on coupons, 6: reserved, 7:
regular UPC codes, 8: reserved, 9: reserved).    5 digits for
Manufacturer (Company) Code or prefix. This number is assigned by the
Uniform Code Council (UCC).    5 digits for Product Code which is
assigned by the manufacturer.    1 digit for checksum.     */   
//UPC-E 0463783-7 //https://www.barcodesinc.com/articles/upce.htm   
//http://www.keepautomation.com/upce/    public String
GetUPCAChecksum(String _data11digits) { //01234567890-5
//04210000526-4   //12345678901-2        long num =
Long.valueOf(_data11digits);        int odd_sum = 0, even_sum = 0;   
   boolean odd = true;        while (num != 0) {            if (odd)
{                odd_sum += num%10;                odd = false;      
    } else {                even_sum += num%10;                odd =
true;            }            num = (num - num%10)/10; // reduce
number        }        int calcCheckDigit = (10 - ((even_sum  + 3 *
odd_sum) % 10)) % 10;        return String.valueOf(calcCheckDigit);  
}     /*    UPC-E barcode image has the following structure:
http://www.barcodelib.com/java_barcode/barcode_symbologies/upce.html 
 1 digit for Number System (0), set by library automatically.    6
digits for UPCE data set through Data property    1 digit for
checksum, calculated automatically by barcode library.     */   
//TODO    //public String GetUPCEChecksum(String _data6digits) {
 //123450 or[7] 0123450 ??    public String GetUPCEChecksum(String
_data7digits) { //01234567890-5 //04210000526-4   //12345678901-2    
  long num = Long.valueOf(_data7digits);        int odd_sum = 0,
even_sum = 0;        boolean odd = true;        while (num != 0) {   
       if (odd) {                odd_sum += num%10;                odd
= false;            } else {                even_sum += num%10;      
        odd = true;            }            num = (num - num%10)/10;
// reduce number        }        int calcCheckDigit = (10 - ((even_sum
 + 3 * odd_sum) % 10)) % 10;        return
String.valueOf(calcCheckDigit);    }    //}     // ref.
http://www.acordex.com/consulting/BarCode39.html    public String
GetCode39Checksum(String _dataCode) throws Exception {        String
charSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%";        int
total = 0;        CharacterIterator it = new
StringCharacterIterator(_dataCode);        for (char ch =
it.current(); ch != CharacterIterator.DONE; ch = it.next()) {        
  int charValue = charSet.indexOf(ch);            if (charValue == -1)
{                // Invalid character.                throw new
Exception("Input String '" +_dataCode+ "' contains characters that are
invalid in a Code39 barcode.");            }            total +=
charValue;        }        int checksum = total % 43;        return
Character.toString(charSet.charAt(checksum));    }     //ref.
https://stackoverflow.com/questions/1136642/ean-8-how-to-calculate-
checksum-digit    public String GetEAN13Checksum(String _data12digits)
{        int first = 0;        int second = 0;        int roundedNum =
0;        int total = 0;         if( _data12digits.length() != 12)
return "?";         for (int counter = 0; counter <
_data12digits.length() - 1; counter++) {            first = (first +
Integer.valueOf(_data12digits.substring(counter, counter + 1)));     
     counter++;            second = (second +
Integer.valueOf(_data12digits.substring(counter, counter + 1)));     
 }         second = second * 3;        total = second + first;       
roundedNum = Math.round((total + 9) / 10 * 10);         return
String.valueOf(roundedNum - total);    }     //ref.
https://stackoverflow.com/questions/1136642/ean-8-how-to-calculate-
checksum-digit    public String GetEAN8Checksum(String _data7digits)
{         String code= _data7digits; //"55123457";        
if(code.length() != 7) return "?";         char[] acode =
code.toCharArray();        int sum1 = acode[1] + acode[3] + acode[5]; 
      int sum2 = 3 * (acode[0] + acode[2] + acode[4] + acode[6]);    
  int checksum_value = sum1 + sum2;         int checksum_digit = 10 -
(checksum_value % 10);        if (checksum_digit == 10)           
checksum_digit = 0;         return String.valueOf(checksum_digit);   
}     public Bitmap GetBar1D(int _format, String _data, int _width,
int _height) throws WriterException {        MultiFormatWriter writer
= new MultiFormatWriter();        String finalData =
Uri.encode(_data);        BitMatrix bm;        switch (_format) {    
      case 0: bm = writer.encode(finalData, BarcodeFormat.CODE_128,
_width, 1);            case 1: bm = writer.encode(finalData,
BarcodeFormat.EAN_8, _width, 1); break;            case 2: bm =
writer.encode(finalData, BarcodeFormat.EAN_13, _width, 1); break;    
      case 3: bm = writer.encode(finalData, BarcodeFormat.ITF, _width,
1); break;            case 4: bm = writer.encode(finalData,
BarcodeFormat.UPC_A, _width, 1); break;            case 5: bm =
writer.encode(finalData, BarcodeFormat.UPC_E, _width, 1); break;     
     case 6: bm = writer.encode(finalData, BarcodeFormat.CODE_39,
_width, 1); break;            default:                bm =
writer.encode(finalData, BarcodeFormat.CODE_128, _width, 1);        } 
      // Use 1 as the height of the matrix as this is a 1D Barcode.  
    int bmWidth = bm.getWidth();        Bitmap imageBitmap =
Bitmap.createBitmap(bmWidth, _height, Bitmap.Config.ARGB_8888);      
 for (int i = 0; i < bmWidth; i++) {            // Paint columns of
width 1            int[] column = new int[_height];           
Arrays.fill(column, bm.get(i, 0) ? Color.BLACK : Color.WHITE);       
   imageBitmap.setPixels(column, 0, 1, i, 0, 1, _height);        }   
   return imageBitmap;    }     //TODO    public Bitmap
GetBar2D(String _data, int _width, int _height, int _format) throws
WriterException {        MultiFormatWriter writer = new
MultiFormatWriter();        String finalData = Uri.encode(_data);    
  BitMatrix bm;        switch (_format) {            case 0: bm =
writer.encode(finalData, BarcodeFormat.QR_CODE, _width, 1);          
case 1: bm = writer.encode(finalData, BarcodeFormat.DATA_MATRIX,
_width, 1); break;            case 2: bm = writer.encode(finalData,
BarcodeFormat.AZTEC, _width, 1); break;            default:          
    bm = writer.encode(finalData, BarcodeFormat.QR_CODE, _width, 1); 
     }        // Use 1 as the height of the matrix as this is a 1D
Barcode.        int bmWidth = bm.getWidth();        Bitmap imageBitmap
= Bitmap.createBitmap(bmWidth, _height, Bitmap.Config.ARGB_8888);    
   for (int i = 0; i < bmWidth; i++) {            // Paint columns of
width 1            //int[] column = new int[_height];           
//Arrays.fill(column, bm.get(i, 0) ? Color.BLACK : Color.WHITE);     
     //imageBitmap.setPixels(column, 0, 1, i, 0, 1, _height);       
}        return imageBitmap;    } }

----------------------------------------------------------------------
Mongkey · 2023-09-15 06:43

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i unit
barcodegen; {$mode delphi} interface uses  Classes, SysUtils, And_jni,
{And_jni_Bridge,} AndroidWidget; type {Draft Component code by "LAMW:
Lazarus Android Module Wizard" [9/15/2023 13:29:23]}{https://github.co
m/jmpessoa/lazandroidmodulewizard} {jControl template} TBarFormat1D =
(fmCODE_128, fmEAN_8, fmEAN_13, fmITF, fmUPC_A, fmUPC_E,
fmCODE_39); jBarcodeGen = class(jControl) private  public   
constructor Create(AOwner: TComponent); override;    destructor
 Destroy; override;    procedure Init; override;    function
jCreate(): jObject;    procedure jFree();    function QRCode(text:
string; width: integer; height: integer): jObject;    function
Get128Bar(_data: string; _width: integer; _height: integer): jObject; 
  function GetUPCAChecksum(_data11digits: string): string;    function
GetUPCEChecksum(_data7digits: string): string;    function
GetCode39Checksum(_dataCode: string): string;    function
GetEAN13Checksum(_data12digits: string): string;    function
GetEAN8Checksum(_data7digits: string): string;    function
GetBar1D(_format: integer; _data: string; _width: integer; _height:
integer): jObject;    function GetBar2D(_data: string; _width:
integer; _height: integer; _format: integer):
jObject;  published end; function jBarcodeGen_jCreate(env:
PJNIEnv;_Self: int64; this: jObject): jObject;procedure
jBarcodeGen_jFree(env: PJNIEnv; _jbarcodegen: JObject);function
jBarcodeGen_QRCode(env: PJNIEnv; _jbarcodegen: JObject; text: string;
width: integer; height: integer): jObject;function
jBarcodeGen_Get128Bar(env: PJNIEnv; _jbarcodegen: JObject; _data:
string; _width: integer; _height: integer): jObject;function
jBarcodeGen_GetUPCAChecksum(env: PJNIEnv; _jbarcodegen: JObject;
_data11digits: string): string;function
jBarcodeGen_GetUPCEChecksum(env: PJNIEnv; _jbarcodegen: JObject;
_data7digits: string): string;function
jBarcodeGen_GetCode39Checksum(env: PJNIEnv; _jbarcodegen: JObject;
_dataCode: string): string;function jBarcodeGen_GetEAN13Checksum(env:
PJNIEnv; _jbarcodegen: JObject; _data12digits: string):
string;function jBarcodeGen_GetEAN8Checksum(env: PJNIEnv;
_jbarcodegen: JObject; _data7digits: string): string;function
jBarcodeGen_GetBar1D(env: PJNIEnv; _jbarcodegen: JObject; _format:
integer; _data: string; _width: integer; _height: integer):
jObject;function jBarcodeGen_GetBar2D(env: PJNIEnv; _jbarcodegen:
JObject; _data: string; _width: integer; _height: integer; _format:
integer): jObject;  implementation {---------  jBarcodeGen
 --------------} constructor jBarcodeGen.Create(AOwner:
TComponent);begin  inherited Create(AOwner);//your code
here....end; destructor jBarcodeGen.Destroy;begin  if not (csDesigning
in ComponentState) then  begin     if FjObject <> nil then     begin 
    jFree();       FjObject:= nil;     end;  end;  //you others free
code here...'  inherited Destroy;end; procedure
jBarcodeGen.Init;begin   if FInitialized  then Exit;  inherited Init;
//set default ViewParent/FjPRLayout as jForm.View!  //your code here:
set/initialize create params....  FjObject := jCreate(); //jSelf !  
if FjObject = nil then exit;   FInitialized:= True;end;  function
jBarcodeGen.jCreate(): jObject;begin   Result:=
jBarcodeGen_jCreate(gApp.jni.jEnv, int64(Self),
gApp.jni.jThis);end; procedure jBarcodeGen.jFree();begin  //in
designing component state: set value here...  if FInitialized then   
 jBarcodeGen_jFree(gApp.jni.jEnv, FjObject);end; function
jBarcodeGen.QRCode(text: string; width: integer; height: integer):
jObject;begin  //in designing component state: result value here... 
if FInitialized then   Result:= jBarcodeGen_QRCode(gApp.jni.jEnv,
FjObject, text ,width ,height);end; function
jBarcodeGen.Get128Bar(_data: string; _width: integer; _height:
integer): jObject;begin  //in designing component state: result value
here...  if FInitialized then   Result:=
jBarcodeGen_Get128Bar(gApp.jni.jEnv, FjObject, _data ,_width
,_height);end; function jBarcodeGen.GetUPCAChecksum(_data11digits:
string): string;begin  //in designing component state: result value
here...  if FInitialized then   Result:=
jBarcodeGen_GetUPCAChecksum(gApp.jni.jEnv, FjObject,
_data11digits);end; function jBarcodeGen.GetUPCEChecksum(_data7digits:
string): string;begin  //in designing component state: result value
here...  if FInitialized then   Result:=
jBarcodeGen_GetUPCEChecksum(gApp.jni.jEnv, FjObject,
_data7digits);end; function jBarcodeGen.GetCode39Checksum(_dataCode:
string): string;begin  //in designing component state: result value
here...  if FInitialized then   Result:=
jBarcodeGen_GetCode39Checksum(gApp.jni.jEnv, FjObject,
_dataCode);end; function jBarcodeGen.GetEAN13Checksum(_data12digits:
string): string;begin  //in designing component state: result value
here...  if FInitialized then   Result:=
jBarcodeGen_GetEAN13Checksum(gApp.jni.jEnv, FjObject,
_data12digits);end; function jBarcodeGen.GetEAN8Checksum(_data7digits:
string): string;begin  //in designing component state: result value
here...  if FInitialized then   Result:=
jBarcodeGen_GetEAN8Checksum(gApp.jni.jEnv, FjObject,
_data7digits);end; function jBarcodeGen.GetBar1D(_format: integer;
_data: string; _width: integer; _height: integer): jObject;begin  //in
designing component state: result value here...  if FInitialized then 
 Result:= jBarcodeGen_GetBar1D(gApp.jni.jEnv, FjObject, _format ,_data
,_width ,_height);end; function jBarcodeGen.GetBar2D(_data: string;
_width: integer; _height: integer; _format: integer): jObject;begin 
//in designing component state: result value here...  if FInitialized
then   Result:= jBarcodeGen_GetBar2D(gApp.jni.jEnv, FjObject, _data
,_width ,_height ,_format);end; {-------- jBarcodeGen_JNI_Bridge
----------} function jBarcodeGen_jCreate(env: PJNIEnv;_Self: int64;
this: jObject): jObject;var  jParams: array[0..0] of jValue;  jMethod:
jMethodID=nil;  jCls: jClass=nil;label  _exceptionOcurred;begin  
Result := nil;   if (env = nil) or (this = nil) then exit;  jCls:=
Get_gjClass(env);  if jCls = nil then goto _exceptionOcurred; 
jMethod:= env^.GetMethodID(env, jCls, 'jBarcodeGen_jCreate',
'(J)Ljava/lang/Object;');  if jMethod = nil then goto
_exceptionOcurred;   jParams[0].j:= _Self;   Result:=
env^.CallObjectMethodA(env, this, jMethod, @jParams);   Result:=
env^.NewGlobalRef(env, Result);   _exceptionOcurred: if
jni_ExceptionOccurred(env) then result := nil;end;  procedure
jBarcodeGen_jFree(env: PJNIEnv; _jbarcodegen: JObject);var  jMethod:
jMethodID=nil;  jCls: jClass=nil;label  _exceptionOcurred;begin   if
(env = nil) or (_jbarcodegen = nil) then exit;  jCls:=
env^.GetObjectClass(env, _jbarcodegen);  if jCls = nil then goto
_exceptionOcurred;  jMethod:= env^.GetMethodID(env, jCls, 'jFree',
'()V');  if jMethod = nil then begin env^.DeleteLocalRef(env, jCls);
goto _exceptionOcurred; end;   env^.CallVoidMethod(env, _jbarcodegen,
jMethod);   env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function jBarcodeGen_QRCode(env:
PJNIEnv; _jbarcodegen: JObject; text: string; width: integer; height:
integer): jObject;var  jParams: array[0..2] of jValue;  jMethod:
jMethodID=nil;  jCls: jClass=nil;label  _exceptionOcurred;begin   if
(env = nil) or (_jbarcodegen = nil) then exit;  jCls:=
env^.GetObjectClass(env, _jbarcodegen);  if jCls = nil then goto
_exceptionOcurred;  jMethod:= env^.GetMethodID(env, jCls, 'QRCode',
'(Ljava/lang/String;II)Landroid/graphics/Bitmap;');  if jMethod = nil
then begin env^.DeleteLocalRef(env, jCls); goto _exceptionOcurred;
end;   jParams[0].l:= env^.NewStringUTF(env, PChar(text)); 
jParams[1].i:= width;  jParams[2].i:= height;    Result:=
env^.CallObjectMethodA(env, _jbarcodegen, jMethod,
@jParams);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function jBarcodeGen_Get128Bar(env:
PJNIEnv; _jbarcodegen: JObject; _data: string; _width: integer;
_height: integer): jObject;var  jParams: array[0..2] of jValue; 
jMethod: jMethodID=nil;  jCls: jClass=nil;label 
_exceptionOcurred;begin   if (env = nil) or (_jbarcodegen = nil) then
exit;  jCls:= env^.GetObjectClass(env, _jbarcodegen);  if jCls = nil
then goto _exceptionOcurred;  jMethod:= env^.GetMethodID(env, jCls,
'Get128Bar', '(Ljava/lang/String;II)Landroid/graphics/Bitmap;');  if
jMethod = nil then begin env^.DeleteLocalRef(env, jCls); goto
_exceptionOcurred; end;   jParams[0].l:= env^.NewStringUTF(env,
PChar(_data));  jParams[1].i:= _width;  jParams[2].i:= _height;   
Result:= env^.CallObjectMethodA(env, _jbarcodegen, jMethod,
@jParams);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function
jBarcodeGen_GetUPCAChecksum(env: PJNIEnv; _jbarcodegen: JObject;
_data11digits: string): string;var  jStr: JString;  jBoo: JBoolean; 
jParams: array[0..0] of jValue;  jMethod: jMethodID=nil;  jCls:
jClass=nil;label  _exceptionOcurred;begin   if (env = nil) or
(_jbarcodegen = nil) then exit;  jCls:= env^.GetObjectClass(env,
_jbarcodegen);  if jCls = nil then goto _exceptionOcurred;  jMethod:=
env^.GetMethodID(env, jCls, 'GetUPCAChecksum',
'(Ljava/lang/String;)Ljava/lang/String;');  if jMethod = nil then
begin env^.DeleteLocalRef(env, jCls); goto _exceptionOcurred; end;  
jParams[0].l:= env^.NewStringUTF(env, PChar(_data11digits));    jStr:=
env^.CallObjectMethodA(env, _jbarcodegen, jMethod, @jParams);  
Result:= GetPStringAndDeleteLocalRef(env,
jStr);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function
jBarcodeGen_GetUPCEChecksum(env: PJNIEnv; _jbarcodegen: JObject;
_data7digits: string): string;var  jStr: JString;  jBoo: JBoolean; 
jParams: array[0..0] of jValue;  jMethod: jMethodID=nil;  jCls:
jClass=nil;label  _exceptionOcurred;begin   if (env = nil) or
(_jbarcodegen = nil) then exit;  jCls:= env^.GetObjectClass(env,
_jbarcodegen);  if jCls = nil then goto _exceptionOcurred;  jMethod:=
env^.GetMethodID(env, jCls, 'GetUPCEChecksum',
'(Ljava/lang/String;)Ljava/lang/String;');  if jMethod = nil then
begin env^.DeleteLocalRef(env, jCls); goto _exceptionOcurred; end;  
jParams[0].l:= env^.NewStringUTF(env, PChar(_data7digits));    jStr:=
env^.CallObjectMethodA(env, _jbarcodegen, jMethod, @jParams);  
Result:= GetPStringAndDeleteLocalRef(env,
jStr);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function
jBarcodeGen_GetCode39Checksum(env: PJNIEnv; _jbarcodegen: JObject;
_dataCode: string): string;var  jStr: JString;  jBoo: JBoolean; 
jParams: array[0..0] of jValue;  jMethod: jMethodID=nil;  jCls:
jClass=nil;label  _exceptionOcurred;begin   if (env = nil) or
(_jbarcodegen = nil) then exit;  jCls:= env^.GetObjectClass(env,
_jbarcodegen);  if jCls = nil then goto _exceptionOcurred;  jMethod:=
env^.GetMethodID(env, jCls, 'GetCode39Checksum',
'(Ljava/lang/String;)Ljava/lang/String;');  if jMethod = nil then
begin env^.DeleteLocalRef(env, jCls); goto _exceptionOcurred; end;  
jParams[0].l:= env^.NewStringUTF(env, PChar(_dataCode));    jStr:=
env^.CallObjectMethodA(env, _jbarcodegen, jMethod, @jParams);  
Result:= GetPStringAndDeleteLocalRef(env,
jStr);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function
jBarcodeGen_GetEAN13Checksum(env: PJNIEnv; _jbarcodegen: JObject;
_data12digits: string): string;var  jStr: JString;  jBoo: JBoolean; 
jParams: array[0..0] of jValue;  jMethod: jMethodID=nil;  jCls:
jClass=nil;label  _exceptionOcurred;begin   if (env = nil) or
(_jbarcodegen = nil) then exit;  jCls:= env^.GetObjectClass(env,
_jbarcodegen);  if jCls = nil then goto _exceptionOcurred;  jMethod:=
env^.GetMethodID(env, jCls, 'GetEAN13Checksum',
'(Ljava/lang/String;)Ljava/lang/String;');  if jMethod = nil then
begin env^.DeleteLocalRef(env, jCls); goto _exceptionOcurred; end;  
jParams[0].l:= env^.NewStringUTF(env, PChar(_data12digits));    jStr:=
env^.CallObjectMethodA(env, _jbarcodegen, jMethod, @jParams);  
Result:= GetPStringAndDeleteLocalRef(env,
jStr);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function
jBarcodeGen_GetEAN8Checksum(env: PJNIEnv; _jbarcodegen: JObject;
_data7digits: string): string;var  jStr: JString;  jBoo: JBoolean; 
jParams: array[0..0] of jValue;  jMethod: jMethodID=nil;  jCls:
jClass=nil;label  _exceptionOcurred;begin   if (env = nil) or
(_jbarcodegen = nil) then exit;  jCls:= env^.GetObjectClass(env,
_jbarcodegen);  if jCls = nil then goto _exceptionOcurred;  jMethod:=
env^.GetMethodID(env, jCls, 'GetEAN8Checksum',
'(Ljava/lang/String;)Ljava/lang/String;');  if jMethod = nil then
begin env^.DeleteLocalRef(env, jCls); goto _exceptionOcurred; end;  
jParams[0].l:= env^.NewStringUTF(env, PChar(_data7digits));    jStr:=
env^.CallObjectMethodA(env, _jbarcodegen, jMethod, @jParams);  
Result:= GetPStringAndDeleteLocalRef(env,
jStr);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function jBarcodeGen_GetBar1D(env:
PJNIEnv; _jbarcodegen: JObject; _format: integer; _data: string;
_width: integer; _height: integer): jObject;var  jParams: array[0..3]
of jValue;  jMethod: jMethodID=nil;  jCls: jClass=nil;label 
_exceptionOcurred;begin   if (env = nil) or (_jbarcodegen = nil) then
exit;  jCls:= env^.GetObjectClass(env, _jbarcodegen);  if jCls = nil
then goto _exceptionOcurred;  jMethod:= env^.GetMethodID(env, jCls,
'GetBar1D', '(ILjava/lang/String;II)Landroid/graphics/Bitmap;');  if
jMethod = nil then begin env^.DeleteLocalRef(env, jCls); goto
_exceptionOcurred; end;   jParams[0].i:= _format;  jParams[1].l:=
env^.NewStringUTF(env, PChar(_data));  jParams[2].i:= _width; 
jParams[3].i:= _height;    Result:= env^.CallObjectMethodA(env,
_jbarcodegen, jMethod,
@jParams);env^.DeleteLocalRef(env,jParams[1].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;  function jBarcodeGen_GetBar2D(env:
PJNIEnv; _jbarcodegen: JObject; _data: string; _width: integer;
_height: integer; _format: integer): jObject;var  jParams: array[0..3]
of jValue;  jMethod: jMethodID=nil;  jCls: jClass=nil;label 
_exceptionOcurred;begin   if (env = nil) or (_jbarcodegen = nil) then
exit;  jCls:= env^.GetObjectClass(env, _jbarcodegen);  if jCls = nil
then goto _exceptionOcurred;  jMethod:= env^.GetMethodID(env, jCls,
'GetBar2D', '(Ljava/lang/String;III)Landroid/graphics/Bitmap;');  if
jMethod = nil then begin env^.DeleteLocalRef(env, jCls); goto
_exceptionOcurred; end;   jParams[0].l:= env^.NewStringUTF(env,
PChar(_data));  jParams[1].i:= _width;  jParams[2].i:= _height; 
jParams[3].i:= _format;    Result:= env^.CallObjectMethodA(env,
_jbarcodegen, jMethod,
@jParams);env^.DeleteLocalRef(env,jParams[0].l);  
env^.DeleteLocalRef(env, jCls);   _exceptionOcurred:
jni_ExceptionOccurred(env);end;   end. 
Success creating Qrcode 

Thank you

answer:
https://repo1.maven.org/maven2/com/google/zxing/core/3.4.0/
https://repo1.maven.org/maven2/com/google/zxing/javase/3.4.0/
https://stackoverflow.com/questions/8800919/how-to-generate-a-qr-code-
for-an-android-application/25283174#25283174

----------------------------------------------------------------------
jmpessoa · 2023-10-24 17:15

Great!

Done!

Thank you!