How to encode a GS1 barcode symbol
If you use any of the TBarcode2D_QRCode, TBarcode2D_rMQRCode, TBarcode2D_DataMatrixEcc200, or TBarcode2D_AztecCode components:

  1. Set the AllowEscape property to True.

  2. Set the AllowGS1 property to True.

  3. Use the GS1 barcode text directly as the value for the Barcode or Data property, or as the value for the Barcode or Data parameter in the DrawTo, DrawToSize, Print, and PrintSize methods.

    Note, in GS1 barcode text, parentheses "()" should be used to enclose Application Identifiers (AIs), and '((' should be used to insert a '(' character; the FNC1 is inserted automatically, there is no need to insert it manually. For example: '(01)00625251888886(18)110201(10)456((D)CB(21)9876543210'.

For example:

...

Barcode2D_QRCode1.AllowEscape := True;

Barcode2D_QRCode1.AllowGS1 := True;

Barcode2D_QRCode1.Barcode := Barcode2D_QRCode1.EncodeGS1('(01)12345678901231(10)ABC123(17)261231');

...

or

Printer.BeginDoc;

... { Print other content }

Barcode2D_QRCode1.AllowEscape := True;

Barcode2D_QRCode1.AllowGS1 := True;

Barcode2D_QRCode1.Print(Barcode2D_QRCode1.EncodeGS1('(01)12345678901231(10)ABC123(17)261231'), clBlack, clWhite, true, 20, 20, 0.3);

... { Print other content }

Printer.EndDoc;

If you use any of the TBarcode2D_RSSExpanded, TBarcode2D_CCA, TBarcode2D_CCB, or TBarcode2D_CCC components:

  1. Set the AutoFNC1 property to True.

  2. Use the GS1 barcode text directly as the value for the Barcode or Data property, or as the value for the Barcode or Data parameter in the DrawTo, DrawToSize, Print, and PrintSize methods.

    Note, in GS1 barcode text, parentheses "()" should be used to enclose Application Identifiers (AIs), and the characters '{' and '}' should be used to insert '(' and ')' characters to AIs data; the FNC1 character is inserted automatically and does not need to be added manually. For example: '(01)00625251888886(18)110201(10)456{D}CB(21)9876543210'.

For example:

...

Barcode2D_RSSExpanded1.AutoFNC1 := True;

Barcode2D_RSSExpanded1.Barcode := '(01)00625251888886(18)110201(10)456{D}CB(21)9876543210';

...

or

Printer.BeginDoc;

... { Print other content }

Barcode2D_RSSExpanded1.AutoFNC1 := True;

Barcode2D_RSSExpanded1.Print('(01)00625251888886(18)110201(10)456{D}CB(21)9876543210', clBlack, clWhite, true, 20, 20, 0.3);

... { Print other content }

Printer.EndDoc;

Contents