Unit AsBarCode_interface

Description

AsBarCode_interface unit contains interface function for generating of barcodes by AsBarcode unit. It is used by RTFReport and XMLReport component but can be used also independently.

Full functional demo.

Overview

Classes, Interfaces, Objects and Records

Name Description
Record TBCdata record for definition of one BarCode type

Functions and Procedures

function GetBarCodeNames(L: TStrings; IncludeUndefined: boolean = false): integer;
function GetBarCodeType(Name: string): TBarcodeType;
procedure DrawBarCode(BarCode: string; BarCodeType: TBarcodeType; Canvas: Pointer; var Rect: TRect; var LineWidth: integer; Font: Pointer; AutoFontSize: boolean; ShowText: boolean; ShowTextPosition: TShowTextPosition; UseCheckSum: boolean = true); StdCall;

Types

TBarcodeType = (...);
TShowTextPosition = (...);

Constants

BCdata: array [bcCode_2_5_interleaved .. bcTypeUndefined] of TBCdata = ((Name: 'Code_2_5_interleaved'; num: true), (Name: 'Code_2_5_industrial'; num: true), (Name: 'Code_2_5_matrix'; num: true), (Name: 'Code39'; num: false), (Name: 'Code39Extended'; num: false), (Name: 'Code128A'; num: false), (Name: 'Code128B'; num: false), (Name: 'Code128C'; num: true), (Name: 'Code93'; num: false), (Name: 'Code93Extended'; num: false), (Name: 'CodeMSI'; num: true), (Name: 'CodePostNet'; num: true), (Name: 'CodeCodabar'; num: false), (Name: 'CodeEAN8'; num: true), (Name: 'CodeEAN13'; num: true), (Name: 'CodeUPC_A'; num: true), (Name: 'CodeUPC_E0'; num: true), (Name: 'CodeUPC_E1'; num: true), (Name: 'CodeUPC_Supp2'; num: true), (Name: 'CodeUPC_Supp5'; num: true), (Name: 'CodeEAN128A'; num: false), (Name: 'CodeEAN128B'; num: false), (Name: 'CodeEAN128C'; num: true), (Name: 'Undefined'; num: true));
BCCheckSumType = [bcCodeEAN8, bcCodeEAN13, bcCodeUPC_A];

Description

Functions and Procedures

function GetBarCodeNames(L: TStrings; IncludeUndefined: boolean = false): integer;

load list of BarCode names

function GetBarCodeType(Name: string): TBarcodeType;

return BarCode type according BarCode name

procedure DrawBarCode(BarCode: string; BarCodeType: TBarcodeType; Canvas: Pointer; var Rect: TRect; var LineWidth: integer; Font: Pointer; AutoFontSize: boolean; ShowText: boolean; ShowTextPosition: TShowTextPosition; UseCheckSum: boolean = true); StdCall;

draw selected BarCode to canvas, Rect return real size of generated barcode, if LineWidth=0 then it is calculated from Rect and returned

Types

TBarcodeType = (...);

list of supported Barcode types

Values
  • bcCode_2_5_interleaved
  • bcCode_2_5_industrial
  • bcCode_2_5_matrix
  • bcCode39
  • bcCode39Extended
  • bcCode128A
  • bcCode128B
  • bcCode128C
  • bcCode93
  • bcCode93Extended
  • bcCodeMSI
  • bcCodePostNet
  • bcCodeCodabar
  • bcCodeEAN8
  • bcCodeEAN13
  • bcCodeUPC_A
  • bcCodeUPC_E0
  • bcCodeUPC_E1
  • bcCodeUPC_Supp2
  • bcCodeUPC_Supp5
  • bcCodeEAN128A
  • bcCodeEAN128B
  • bcCodeEAN128C
  • bcTypeUndefined
TShowTextPosition = (...);

list of possible BarCode text positions

Values
  • stpTopLeft
  • stpTopRight
  • stpTopCenter
  • stpBottomLeft
  • stpBottomRight
  • stpBottomCenter

Constants

BCdata: array [bcCode_2_5_interleaved .. bcTypeUndefined] of TBCdata = ((Name: 'Code_2_5_interleaved'; num: true), (Name: 'Code_2_5_industrial'; num: true), (Name: 'Code_2_5_matrix'; num: true), (Name: 'Code39'; num: false), (Name: 'Code39Extended'; num: false), (Name: 'Code128A'; num: false), (Name: 'Code128B'; num: false), (Name: 'Code128C'; num: true), (Name: 'Code93'; num: false), (Name: 'Code93Extended'; num: false), (Name: 'CodeMSI'; num: true), (Name: 'CodePostNet'; num: true), (Name: 'CodeCodabar'; num: false), (Name: 'CodeEAN8'; num: true), (Name: 'CodeEAN13'; num: true), (Name: 'CodeUPC_A'; num: true), (Name: 'CodeUPC_E0'; num: true), (Name: 'CodeUPC_E1'; num: true), (Name: 'CodeUPC_Supp2'; num: true), (Name: 'CodeUPC_Supp5'; num: true), (Name: 'CodeEAN128A'; num: false), (Name: 'CodeEAN128B'; num: false), (Name: 'CodeEAN128C'; num: true), (Name: 'Undefined'; num: true));

array with definitions of all barcodes

BCCheckSumType = [bcCodeEAN8, bcCodeEAN13, bcCodeUPC_A];
 

Author

Created

Sep 2006

Last Modified

Apr 2014


Generated by PasDoc 0.15.0.