* Add barcode drawing routines

git-svn-id: trunk@37305 -

.gitattributes

@@ -2440,6 +2440,8 @@ packages/fcl-image/Makefile.fpc svneol=native#text/plain
 packages/fcl-image/Makefile.fpc.fpcmake svneol=native#text/plain
 packages/fcl-image/examples/Makefile svneol=native#text/plain
 packages/fcl-image/examples/Makefile.fpc svneol=native#text/plain
+packages/fcl-image/examples/createbarcode.lpi svneol=native#text/plain
+packages/fcl-image/examples/createbarcode.lpr svneol=native#text/plain
 packages/fcl-image/examples/drawing.pp svneol=native#text/plain
 packages/fcl-image/examples/imgconv.pp svneol=native#text/plain
 packages/fcl-image/examples/interpoldemo.pp svneol=native#text/plain
@@ -2451,6 +2453,7 @@ packages/fcl-image/src/bmpcomn.pp svneol=native#text/plain
 packages/fcl-image/src/clipping.pp svneol=native#text/plain
 packages/fcl-image/src/ellipses.pp svneol=native#text/plain
 packages/fcl-image/src/extinterpolation.pp svneol=native#text/plain
+packages/fcl-image/src/fpbarcode.pp svneol=native#text/plain
 packages/fcl-image/src/fpbrush.inc svneol=native#text/plain
 packages/fcl-image/src/fpcanvas.inc svneol=native#text/plain
 packages/fcl-image/src/fpcanvas.pp svneol=native#text/plain
@@ -2465,6 +2468,7 @@ packages/fcl-image/src/fphandler.inc svneol=native#text/plain
 packages/fcl-image/src/fphelper.inc svneol=native#text/plain
 packages/fcl-image/src/fpimage.inc svneol=native#text/plain
 packages/fcl-image/src/fpimage.pp svneol=native#text/plain
+packages/fcl-image/src/fpimgbarcode.pp svneol=native#text/plain
 packages/fcl-image/src/fpimgcanv.pp svneol=native#text/plain
 packages/fcl-image/src/fpimgcmn.pp svneol=native#text/plain
 packages/fcl-image/src/fpimggauss.pp svneol=native#text/plain
@@ -2502,6 +2506,9 @@ packages/fcl-image/src/pngcomn.pp svneol=native#text/plain
 packages/fcl-image/src/pscanvas.pp svneol=native#text/plain
 packages/fcl-image/src/targacmn.pp svneol=native#text/plain
 packages/fcl-image/src/xwdfile.pp svneol=native#text/plain
+packages/fcl-image/test/tcbarcodes.pp svneol=native#text/plain
+packages/fcl-image/test/testfpimage.lpi svneol=native#text/plain
+packages/fcl-image/test/testfpimage.lpr svneol=native#text/plain
 packages/fcl-js/Makefile svneol=native#text/plain
 packages/fcl-js/Makefile.fpc svneol=native#text/plain
 packages/fcl-js/Makefile.fpc.fpcmake svneol=native#text/plain

packages/fcl-image/examples/createbarcode.lpi

@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="10"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="Create Barcodes"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="createbarcode.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="../src/fpimgbarcode.pp"/>
+        <IsPartOfProject Value="True"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <Target>
+      <Filename Value="createbarcode"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="../src"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

packages/fcl-image/examples/createbarcode.lpr

@@ -0,0 +1,155 @@
+program createbarcode;
+
+{$mode objfpc}
+{$H+}
+
+uses
+  Classes, SysUtils, CustApp, fpbarcode, fpimgbarcode, fpimage,
+  fpwritepng, fpwritebmp,fpwritejpeg,FPWritePNM,fpwritexpm;
+
+type
+
+  { TCreateBarcodeApplication }
+
+  TCreateBarcodeApplication = class(TCustomApplication)
+  Private
+    FWidth : Cardinal;
+    FHeight : Cardinal;
+    FUnit : Cardinal;
+    FWeight : Double;
+    FText : string;
+    FFileName : String;
+    FEncoding : TBarcodeEncoding;
+    flist : Boolean;
+  protected
+    procedure DoRun; override;
+    Procedure ListEncodings;
+    Procedure CreateBarCode;
+  public
+    constructor Create(TheOwner: TComponent); override;
+    procedure WriteHelp(S: String); virtual;
+    Procedure AnalyzeParams;
+  end;
+
+{ TCreateBarcodeApplication }
+
+procedure TCreateBarcodeApplication.DoRun;
+
+begin
+  AnalyzeParams;
+  if FList then
+    ListEncodings
+  else
+    CreateBarCode;
+  Terminate;
+end;
+
+procedure TCreateBarcodeApplication.ListEncodings;
+
+Var
+  E : TBarcodeEncoding;
+  S : String;
+
+begin
+  Writeln('Known encodings : ');
+  For E in TBarcodeEncoding do
+    begin
+    Str(E,S);
+    Delete(S,1,2);
+    Writeln(S:16,':  ',BarcodeEncodingNames[E]);
+    end;
+end;
+
+procedure TCreateBarcodeApplication.CreateBarCode;
+
+Var
+  Img : TFPCustomImage;
+
+begin
+  Img:=TFPCompactImgGray16Bit.Create(FWidth,FHeight);
+  try
+    DrawBarCode(Img,FText,FEncoding,FUnit,FWeight);
+    Writeln('Writing to file : ',FFilename);
+    Img.SaveToFile(FFileName);
+  finally
+    Img.Free;
+  end;
+end;
+
+constructor TCreateBarcodeApplication.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+  StopOnException:=True;
+end;
+
+procedure TCreateBarcodeApplication.WriteHelp(S : String);
+begin
+  if (S<>'') then
+    Writeln('Error : ',S);
+  writeln('Usage: ', ExeName, ' -h');
+  Free;
+  Halt(Ord(S<>''));
+end;
+
+procedure TCreateBarcodeApplication.AnalyzeParams;
+
+Var
+  S,ES : String;
+  E : TBarcodeEncoding;
+  B : Boolean;
+
+begin
+  S:=CheckOptions('hw:h:t:o:lu:i:e:', ['help','width:','height:','text:','encoding','output:','list','unit:','weight:']);
+  if (S<>'') or HasOption('h', 'help') then
+    WriteHelp(S);
+  if HasOption('h','height') then
+    FHeight:=StrToInt(GetOptionValue('h','height'));
+  if HasOption('w','width') then
+    FWidth:=StrToInt(GetOptionValue('w','width'));
+  if HasOption('u','unit') then
+    FUnit:=StrToInt(GetOptionValue('u','unit'));
+  if HasOption('i','weight') then
+    FWeight:=StrToFloat(GetOptionValue('i','weight'));
+  FText:=GetOptionValue('t','text');
+  FFileName:=GetOptionValue('o','output');
+  S:=GetOptionValue('e','encoding');
+  FList:=HasOption('l','list');
+  if FList then
+     exit;
+  // Sanitize
+  if (S='') then
+    WriteHelp('Need barcode encoding');
+  if FText='' then
+    WriteHelp('Need a text');
+  E:=Low(TBarCodeEncoding);
+  B:=False;
+  While (Not B) and (E<=High(TBarcodeEncoding)) do
+    begin
+    Str(E,ES);
+    delete(ES,1,2);
+    B:=SameText(S,ES);
+    if B then
+      FEncoding:=E;
+    E:=Succ(E);
+    end;
+  if not B then
+    WriteHelp('Invalid barcode encoding: '+S);
+  if FWidth=0 then
+    FWidth:=200;
+  if Fheight=0 then
+    FHeight:=30;
+  if FUnit=0 then
+    FUnit:=1;
+  if FWeight=0 then
+    FWeight:=2.0;
+end;
+
+var
+  Application: TCreateBarcodeApplication;
+begin
+  Application:=TCreateBarcodeApplication.Create(nil);
+  Application.Title:='Create Barcodes';
+  Application.Run;
+  Application.Free;
+end.
+

packages/fcl-image/fpmake.pp

@@ -32,7 +32,6 @@ begin
 
     P.SourcePath.Add('src');
     P.IncludePath.Add('src');
-
     T:=P.Targets.AddUnit('bmpcomn.pp');
       with T.Dependencies do
         begin
@@ -265,10 +264,19 @@ begin
     T:=P.Targets.AddUnit('fpimggauss.pp');
     With T.Dependencies do
       AddUnit('fpimage');
+    T:=P.Targets.AddUnit('fpbarcode.pp');
+    T:=P.Targets.AddUnit('fpimgbarcode.pp');
+    With T.Dependencies do
+      begin
+      AddUnit('fpimage');
+      AddUnit('fpcanvas');
+      Addunit('fpimgcmn');
+      end;
 
     P.ExamplePath.Add('examples');
     T:=P.Targets.AddExampleProgram('drawing.pp');
     T:=P.Targets.AddExampleProgram('imgconv.pp');
+    T:=P.Targets.AddExampleProgram('createbarcode.lpr');
 
 {$ifndef ALLPACKAGES}
     Run;

packages/fcl-image/src/fpbarcode.pp

@@ -0,0 +1,1446 @@
+{
+    This file is part of the Free Pascal FCL library.
+    Copyright (c) 2017 by Michael Van Canneyt
+    member of the Free Pascal development team
+
+    Barcode encoding routines.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+unit fpbarcode;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  sysutils;
+
+Type
+  // Various encodings. Sorted
+  TBarcodeEncoding = (
+    be128A, be128B, be128C,
+    be2of5industrial, be2of5interleaved, be2of5matrix,
+    be39, be39Extended,
+    be93, be93Extended,
+    beCodabar,
+    beEAN13, beEAN8,
+    beMSI,
+    bePostNet
+  );
+  TBarcodeEncodings = Set of TBarcodeEncoding;
+
+  {
+    Various types of known bars in a barcode.
+    Each type encapsulates 3 parameters.
+    Color: black/white
+    width: 100, (weighted) 150 or 200 % of unit width
+    Height: full height or 2/5th (the latter is for postnet)
+  }
+  TBarColor = (bcWhite,bcBlack);
+  TBarWidth = (bw100,bwWeighted,bw150,bw200);
+  TBarheight = (bhFull,bhTwoFifth);
+  TBarWidthArray = Array[TBarWidth] of Integer;
+
+  TBarParams = record
+    c : TBarColor;
+    w : TBarWidth;
+    h : TBarHeight;
+  end;
+
+  TBarType = 0..11;
+  // auxiliary type for the constant
+  TBarTypeParams = Array[TBarType] of TBarParams;
+  // This
+  TBarTypeArray = array of TBarType;
+  TBarParamsArray = Array of TBarParams;
+  EBarEncoding = class(exception);
+
+Const
+  NumericalEncodings = [beEAN8,beEAN13,be2of5industrial,be2of5interleaved, be2of5matrix,bePostNet,beMSI,be128C];
+  BarcodeEncodingNames: array[TBarcodeEncoding] of string =
+    (
+      '128 A', '128 B', '128 C',
+      '2 of 5 industrial', '2 of 5 interleaved', '2 of 5 matrix',
+      '39', '39 Extended',
+      '93', '93 Extended',
+      'Codabar',
+      'EAN 13', 'EAN 8',
+      'MSI',
+      'PostNet'
+    );
+
+Function StringAllowsBarEncoding(S : AnsiString; aEncoding : TBarcodeEncoding) : Boolean;
+Function StringToBarTypeArray(S : AnsiString; aEncoding : TBarcodeEncoding) : TBarTypeArray;
+Function StringToBarcodeParams(S : AnsiString; aEncoding : TBarcodeEncoding) : TBarParamsArray;
+Function IntToBarTypeArray(I: Int64; aEncoding : TBarcodeEncoding; aWidth : Integer = 0) : TBarTypeArray;
+Function IntToBarcodeParams(I : Int64; aEncoding : TBarcodeEncoding; aWidth : Integer = 0) : TBarParamsArray;
+Function BarTypeToBarParams(aType : TBarType) : TBarParams;
+Function BarTypeArrayToBarParamsArray(anArray : TBarTypeArray) : TBarParamsArray;
+Function CalcBarWidths(aEncoding : TBarcodeEncoding; aUnit : Integer; AWeight : Double) : TBarWidthArray;
+Function CalcStringWidthInBarCodeEncoding(S : String;aEncoding : TBarcodeEncoding; aUnit : Integer; AWeight : Double) : Cardinal;
+
+// Check with barcode unit
+
+implementation
+
+Const
+  NumChars = ['0'..'9'];
+
+
+Procedure IllegalChar(C : AnsiChar;E : TBarcodeEncoding);
+
+Var
+  S : AnsiString;
+
+begin
+  Str(E,S);
+  Raise EBarEncoding.CreateFmt('%s is an illegal character for encoding %s',[C,S]);
+end;
+
+Const
+  BarTypes : TBarTypeParams = (
+  { 0}   (c: bcWhite; w: bw100;      h: bhFull),
+  { 1}   (c: bcWhite; w: bwWeighted; h: bhFull),
+  { 2}   (c: bcWhite; w: bw150;      h: bhFull),
+  { 3}   (c: bcWhite; w: bw200;      h: bhFull),
+  { 4}   (c: bcBlack; w: bw100;      h: bhFull),
+  { 5}   (c: bcBlack; w: bwWeighted; h: bhFull),
+  { 6}   (c: bcBlack; w: bw150;      h: bhFull),
+  { 7}   (c: bcBlack; w: bw200;      h: bhFull),
+  { 8}   (c: bcBlack; w: bw100;      h: bhTwoFifth),
+  { 9}   (c: bcBlack; w: bwWeighted; h: bhTwoFifth),
+  {10}   (c: bcBlack; w: bw150;      h: bhTwoFifth),
+  {11}   (c: bcBlack; w: bw200;      h: bhTwoFifth)
+  );
+
+{ ---------------------------------------------------------------------
+  EAN 8
+  ---------------------------------------------------------------------}
+Type
+  TEANChar = array[1..4] of TBarType;
+  TEanParity = array[1..6] of TBarType;
+
+Const
+  EANStartStop : array[1..3] of TBarType = (4,0,4);
+  EANSep : array[1..5] of TBarType = (0,4,0,4,0);
+
+  EANEncodingA : array['0'..'9'] of TEANChar = (
+    ( 2, 5, 0, 4),   // 0
+    ( 1, 5, 1, 4),   // 1
+    ( 1, 4, 1, 5),   // 2
+    ( 0, 7, 0, 4),   // 3
+    ( 0, 4, 2, 5),   // 4
+    ( 0, 5, 2, 4),   // 5
+    ( 0, 4, 0, 7),   // 6
+    ( 0, 6, 0, 5),   // 7
+    ( 0, 5, 0, 6),   // 8
+    ( 2, 4, 0, 5)    // 9
+  );
+
+  EANEncodingC : array['0'..'9'] of TEANChar = (
+    ( 6, 1, 4, 0),   // 0
+    ( 5, 1, 5, 0),   // 1
+    ( 5, 0, 5, 1),   // 2
+    ( 4, 3, 4, 0),   // 3
+    ( 4, 0, 6, 1),   // 4
+    ( 4, 1, 6, 0),   // 5
+    ( 4, 0, 4, 3),   // 6
+    ( 4, 2, 4, 1),   // 7
+    ( 4, 1, 4, 2),   // 8
+    ( 6, 0, 4, 1)    // 9
+  );
+
+  EANEncodingB : array['0'..'9'] of TEANChar = (
+    ( 0, 4, 1, 6),   // 0
+    ( 0, 5, 1, 5),   // 1
+    ( 1, 5, 0, 5),   // 2
+    ( 0, 4, 3, 4),   // 3
+    ( 1, 6, 0, 4),   // 4
+    ( 0, 6, 1, 4),   // 5
+    ( 3, 4, 0, 4),   // 6
+    ( 1, 4, 2, 4),   // 7
+    ( 2, 4, 1, 4),   // 8
+    ( 1, 4, 0, 6)    // 9
+  );
+
+  EANEncodingParity : array[0..9] of TEanParity = (
+    ( 8, 8, 8, 8, 8, 8),   // 0
+    ( 8, 8, 9, 8, 9, 9),   // 1
+    ( 8, 8, 9, 9, 8, 9),   // 2
+    ( 8, 8, 9, 9, 9, 8),   // 3
+    ( 8, 9, 8, 8, 9, 9),   // 4
+    ( 8, 9, 9, 8, 8, 9),   // 5
+    ( 8, 9, 9, 9, 8, 8),   // 6
+    ( 8, 9, 8, 9, 8, 9),   // 7
+    ( 8, 9, 8, 9, 9, 8),   // 8
+    ( 8, 9, 9, 8, 9, 8)    // 9
+  );
+
+Procedure AddToArray(A : TBarTypeArray; var aPos : integer; Elements : Array of TBarType);
+
+Var
+  I,L : Integer;
+begin
+  L:=Length(Elements);
+  // Safety check
+  if ((aPos+L)>Length(A)) then
+    Raise EBarEncoding.CreateFmt('Cannot add %d elements to array of length %d at pos %d,',[L,Length(A),aPos]);
+  For I:=0 to L-1 do
+    begin
+    A[aPos]:=Elements[i];
+    inc(aPos);
+    end;
+end;
+
+function CheckEANValue(const AValue:AnsiString; const ASize: Byte): AnsiString;
+
+var
+  L,I : Integer;
+
+begin
+  Result:=AValue;
+  UniqueString(Result);
+  L:=Length(Result);
+  for i:=1 to L do
+    if not (Result[i] in NumChars) then
+      Result[i]:='0';
+  if L<ASize then
+    Result:=StringOfChar('0', ASize-L-1)+Result+'0';
+end;
+
+function EncodeEAN8(S : AnsiString) : TBarTypeArray;
+
+var
+  i, p: integer;
+
+begin
+  S:=CheckEANValue(S,8);
+  SetLength(Result,2*Length(EANStartStop)+Length(EANSep)+8*4);
+  P:=0;
+  AddToArray(Result,P,EANStartStop); // start
+  for I:=1 to 4 do
+    AddToArray(Result,P,EANEncodingA[S[i]]);
+  AddToArray(Result,P,EANSep); // Separator
+  for i := 5 to 8 do
+    AddToArray(Result,P,EANEncodingC[S[i]]);
+  AddToArray(Result,P,EANStartStop); // Stop
+end;
+
+function EnCodeEAN13(S : AnsiString) : TBarTypeArray;
+
+var
+  i, p, cc : integer;
+
+begin
+  S:=CheckEanValue(S, 13);
+  SetLength(Result,2*Length(EANStartStop)+Length(EANSep)+12*4);
+  cc:=Ord(S[1])-Ord('0');
+  Delete(S,1,1);
+  P:=0;
+  AddToArray(Result,P,EANStartStop); // start
+  for i := 1 to 6 do
+    case EANEncodingParity[cc,i] of
+      8: AddToArray(Result,P,EANEncodingA[s[i]]);
+      9: AddToArray(Result,P,EANEncodingB[s[i]]);
+      10: AddToArray(Result,P,EANEncodingC[s[i]]);// will normally not happen...
+    end;
+  AddToArray(Result,P,EANSep); // Separator
+  for i := 7 to 12 do
+    AddToArray(Result,P,EANEncodingC[s[i]]);
+  AddToArray(Result,P,EANStartStop); // stop
+end;
+
+{ ---------------------------------------------------------------------
+  Encoding 39 (+ extended)
+  ---------------------------------------------------------------------}
+
+Type
+  TCode39Char = array[0..9] of TBarType;
+  TCode39Data = record
+    c: AnsiChar;
+    ck: byte;
+    Data:  TCode39Char;
+  end;
+
+Const
+  Encoding39 : array[0..43] of TCode39Data = (
+    (c: '0'; ck:  0; data: ( 4, 0, 4, 1, 5, 0, 5, 0, 4, 0)),
+    (c: '1'; ck:  1; data: ( 5, 0, 4, 1, 4, 0, 4, 0, 5, 0)),
+    (c: '2'; ck:  2; data: ( 4, 0, 5, 1, 4, 0, 4, 0, 5, 0)),
+    (c: '3'; ck:  3; data: ( 5, 0, 5, 1, 4, 0, 4, 0, 4, 0)),
+    (c: '4'; ck:  4; data: ( 4, 0, 4, 1, 5, 0, 4, 0, 5, 0)),
+    (c: '5'; ck:  5; data: ( 5, 0, 4, 1, 5, 0, 4, 0, 4, 0)),
+    (c: '6'; ck:  6; data: ( 4, 0, 5, 1, 5, 0, 4, 0, 4, 0)),
+    (c: '7'; ck:  7; data: ( 4, 0, 4, 1, 4, 0, 5, 0, 5, 0)),
+    (c: '8'; ck:  8; data: ( 5, 0, 4, 1, 4, 0, 5, 0, 4, 0)),
+    (c: '9'; ck:  9; data: ( 4, 0, 5, 1, 4, 0, 5, 0, 4, 0)),
+    (c: 'A'; ck: 10; data: ( 5, 0, 4, 0, 4, 1, 4, 0, 5, 0)),
+    (c: 'B'; ck: 11; data: ( 4, 0, 5, 0, 4, 1, 4, 0, 5, 0)),
+    (c: 'C'; ck: 12; data: ( 5, 0, 5, 0, 4, 1, 4, 0, 4, 0)),
+    (c: 'D'; ck: 13; data: ( 4, 0, 4, 0, 5, 1, 4, 0, 5, 0)),
+    (c: 'E'; ck: 14; data: ( 5, 0, 4, 0, 5, 1, 4, 0, 4, 0)),
+    (c: 'F'; ck: 15; data: ( 4, 0, 5, 0, 5, 1, 4, 0, 4, 0)),
+    (c: 'G'; ck: 16; data: ( 4, 0, 4, 0, 4, 1, 5, 0, 5, 0)),
+    (c: 'H'; ck: 17; data: ( 5, 0, 4, 0, 4, 1, 5, 0, 4, 0)),
+    (c: 'I'; ck: 18; data: ( 4, 0, 5, 0, 4, 1, 5, 0, 0, 0)),
+    (c: 'J'; ck: 19; data: ( 4, 0, 4, 0, 5, 1, 5, 0, 4, 0)),
+    (c: 'K'; ck: 20; data: ( 5, 0, 4, 0, 4, 0, 4, 1, 5, 0)),
+    (c: 'L'; ck: 21; data: ( 4, 0, 5, 0, 4, 0, 4, 1, 5, 0)),
+    (c: 'M'; ck: 22; data: ( 5, 0, 5, 0, 4, 0, 4, 1, 4, 0)),
+    (c: 'N'; ck: 23; data: ( 4, 0, 4, 0, 5, 0, 4, 1, 5, 0)),
+    (c: 'O'; ck: 24; data: ( 5, 0, 4, 0, 5, 0, 4, 1, 4, 0)),
+    (c: 'P'; ck: 25; data: ( 4, 0, 5, 0, 5, 0, 4, 1, 4, 0)),
+    (c: 'Q'; ck: 26; data: ( 4, 0, 4, 0, 4, 0, 5, 1, 5, 0)),
+    (c: 'R'; ck: 27; data: ( 5, 0, 4, 0, 4, 0, 5, 1, 4, 0)),
+    (c: 'S'; ck: 28; data: ( 4, 0, 5, 0, 4, 0, 5, 1, 4, 0)),
+    (c: 'T'; ck: 29; data: ( 4, 0, 4, 0, 5, 0, 5, 1, 4, 0)),
+    (c: 'U'; ck: 30; data: ( 5, 1, 4, 0, 4, 0, 4, 0, 5, 0)),
+    (c: 'V'; ck: 31; data: ( 4, 1, 5, 0, 4, 0, 4, 0, 5, 0)),
+    (c: 'W'; ck: 32; data: ( 5, 1, 5, 0, 4, 0, 4, 0, 4, 0)),
+    (c: 'X'; ck: 33; data: ( 4, 1, 4, 0, 5, 0, 4, 0, 5, 0)),
+    (c: 'Y'; ck: 34; data: ( 5, 1, 4, 0, 5, 0, 4, 0, 4, 0)),
+    (c: 'Z'; ck: 35; data: ( 4, 1, 5, 0, 5, 0, 4, 0, 4, 0)),
+    (c: '-'; ck: 36; data: ( 4, 1, 4, 0, 4, 0, 5, 0, 5, 0)),
+    (c: '.'; ck: 37; data: ( 5, 1, 4, 0, 4, 0, 5, 0, 4, 0)),
+    (c: ' '; ck: 38; data: ( 4, 1, 5, 0, 4, 0, 5, 0, 4, 0)),
+    (c: '*'; ck:  0; data: ( 4, 1, 4, 0, 5, 0, 5, 0, 4, 0)),
+    (c: '$'; ck: 39; data: ( 4, 1, 4, 1, 4, 1, 4, 0, 4, 0)),
+    (c: '/'; ck: 40; data: ( 4, 1, 4, 1, 4, 0, 4, 1, 4, 0)),
+    (c: '+'; ck: 41; data: ( 4, 1, 4, 0, 4, 1, 4, 1, 4, 0)),
+    (c: '%'; ck: 42; data: ( 4, 0, 4, 1, 4, 1, 4, 1, 4, 0))
+  );
+
+function IndexOfCode39Char(c: AnsiChar): integer;
+
+begin
+  Result:=High(Encoding39);
+  While (Result>=0) and (c<>Encoding39[Result].c) do
+    Dec(Result);
+end;
+
+Function AllowEncode39 (S : AnsiString) : boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=IndexOfCode39Char(S[i])>=0;
+    Inc(I);
+    end;
+end;
+
+Function Encode39(S : AnsiString; aCheckSum : Boolean) : TBarTypeArray;
+
+Const
+  StartStopIndex = 39;
+
+
+  function IndexOfCC(cs: byte): integer;
+
+  Var
+    H : integer;
+
+  begin
+    Result:=0;
+    H:=High(Encoding39);
+    While (Result<=H) and (cs<>Encoding39[Result].ck) do
+      Inc(Result);
+    if Result>=H then
+      Result:=StartStopIndex;
+  end;
+
+var
+  cs, p, Idx: integer;
+  c : AnsiChar;
+
+begin
+  cs:=0;
+  // Length = (length text + startstop * 2) * (length of data)
+  SetLength(Result,(Length(S)+2)*10);
+  P:=0;
+  // Startcode
+  AddToArray(Result,P,Encoding39[StartStopIndex].Data);
+  for C in S do
+    begin
+    Idx:=IndexOfCode39Char(C);
+    if Idx<0 then
+      IllegalChar(C,be39);
+    AddToArray(Result,P,Encoding39[Idx].Data);
+    Inc(cs, Encoding39[Idx].ck);
+    end;
+  // Calculate Checksum if requested and add.
+  if aCheckSum then
+    begin
+    AddToArray(Result,P,Encoding39[IndexOfCc(cs mod 43)].Data);
+    SetLength(Result,P); // Correct result
+    end
+  else // No checksum: add startcode, minus last 0 !
+    begin
+    AddToArray(Result,P,Encoding39[StartStopIndex].Data);
+    SetLength(Result,P-1); // Correct result
+    end;
+end;
+
+function AllowEncode39Extended(S : AnsiString) : boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=Ord(S[i])<128;
+    Inc(I);
+    end;
+end;
+
+function Encode39Extended(S : AnsiString; aCheckSum : boolean): TBarTypeArray;
+
+// Extended uses an encoding for the first 127 characters...
+
+const
+  CharEncoding : array[0..127] of String[2] = (
+    '%U', '$A', '$B', '$C', '$D', '$E', '$F', '$G',
+    '$H', '$I', '$J', '$K', '$L', '$M', '$N', '$O',
+    '$P', '$Q', '$R', '$S', '$T', '$U', '$V', '$W',
+    '$X', '$Y', '$Z', '%A', '%B', '%C', '%D', '%E',
+    ' ',  '/A', '/B', '/C', '/D', '/E', '/F', '/G',
+    '/H', '/I', '/J', '/K', '/L', '/M', '/N', '/O',
+    '0',  '1',  '2',  '3',  '4',  '5',  '6',  '7',
+    '8',  '9',  '/Z', '%F', '%G', '%H', '%I', '%J',
+    '%V', 'A',  'B',  'C',  'D',  'E',  'F',  'G',
+    'H',  'I',  'J',  'K',  'L',  'M',  'N',  'O',
+    'P',  'Q',  'R',  'S',  'T',  'U',  'V',  'W',
+    'X',  'Y',  'Z',  '%K', '%L', '%M', '%N', '%O',
+    '%W', '+A', '+B', '+C', '+D', '+E', '+F', '+G',
+    '+H', '+I', '+J', '+K', '+L', '+M', '+N', '+O',
+    '+P', '+Q', '+R', '+S', '+T', '+U', '+V', '+W',
+    '+X', '+Y', '+Z', '%P', '%Q', '%R', '%S', '%T'
+  );
+
+var
+  T : AnsiString;
+  O,i: integer;
+
+begin
+  T:='';
+  for I:=1 to Length(S) do
+    begin
+    O:=Ord(S[i]);
+    if (O>127) then
+      IllegalChar(S[i],be39Extended);
+    T:=T+CharEncoding[O];
+    end;
+  Result:=Encode39(T,aChecksum);
+end;
+
+{ ---------------------------------------------------------------------
+  Code 93
+  ---------------------------------------------------------------------}
+Type
+  TCode93Char = array[0..5] of TBarType;
+  TCode93Data = record
+    c: AnsiChar;
+    Data:  TCode93Char;
+  end;
+
+Const
+  Encoding93 : array[0..46] of TCode93Data = (
+    (c: '0'; data: ( 4, 2, 4, 0, 4, 1)),
+    (c: '1'; data: ( 4, 0, 4, 1, 4, 2)),
+    (c: '2'; data: ( 4, 0, 4, 2, 4, 1)),
+    (c: '3'; data: ( 4, 0, 4, 3, 4, 0)),
+    (c: '4'; data: ( 4, 1, 4, 0, 4, 2)),
+    (c: '5'; data: ( 4, 1, 4, 1, 4, 1)),
+    (c: '6'; data: ( 4, 1, 4, 2, 4, 0)),
+    (c: '7'; data: ( 4, 0, 4, 0, 4, 3)),
+    (c: '8'; data: ( 4, 2, 4, 1, 4, 0)),
+    (c: '9'; data: ( 4, 3, 4, 0, 4, 0)),
+    (c: 'A'; data: ( 5, 0, 4, 0, 4, 2)),
+    (c: 'B'; data: ( 5, 0, 4, 1, 4, 1)),
+    (c: 'C'; data: ( 5, 0, 4, 2, 4, 0)),
+    (c: 'D'; data: ( 5, 1, 4, 0, 4, 1)),
+    (c: 'E'; data: ( 5, 1, 4, 1, 4, 0)),
+    (c: 'F'; data: ( 5, 2, 4, 0, 4, 0)),
+    (c: 'G'; data: ( 4, 0, 5, 0, 4, 2)),
+    (c: 'H'; data: ( 4, 0, 5, 1, 4, 1)),
+    (c: 'I'; data: ( 4, 0, 5, 2, 4, 0)),
+    (c: 'J'; data: ( 4, 1, 5, 0, 4, 1)),
+    (c: 'K'; data: ( 4, 2, 5, 0, 4, 0)),
+    (c: 'L'; data: ( 4, 0, 4, 0, 5, 2)),
+    (c: 'M'; data: ( 4, 0, 4, 1, 5, 1)),
+    (c: 'N'; data: ( 4, 0, 4, 2, 5, 0)),
+    (c: 'O'; data: ( 4, 1, 4, 0, 5, 1)),
+    (c: 'P'; data: ( 4, 2, 4, 0, 5, 0)),
+    (c: 'Q'; data: ( 5, 0, 5, 0, 4, 1)),
+    (c: 'R'; data: ( 5, 0, 5, 1, 4, 0)),
+    (c: 'S'; data: ( 5, 0, 4, 0, 5, 1)),
+    (c: 'T'; data: ( 5, 0, 4, 1, 5, 0)),
+    (c: 'U'; data: ( 5, 1, 4, 0, 5, 0)),
+    (c: 'V'; data: ( 5, 1, 5, 0, 4, 0)),
+    (c: 'W'; data: ( 4, 0, 5, 0, 5, 1)),
+    (c: 'X'; data: ( 4, 0, 5, 1, 5, 0)),
+    (c: 'Y'; data: ( 4, 1, 5, 0, 5, 0)),
+    (c: 'Z'; data: ( 4, 1, 6, 0, 4, 0)),
+    (c: '-'; data: ( 4, 1, 4, 0, 6, 0)),
+    (c: '.'; data: ( 6, 0, 4, 0, 4, 1)),
+    (c: ' '; data: ( 6, 0, 4, 1, 4, 0)),
+    (c: '$'; data: ( 6, 1, 4, 0, 4, 0)),
+    (c: '/'; data: ( 4, 0, 5, 0, 6, 0)),
+    (c: '+'; data: ( 4, 0, 6, 0, 5, 0)),
+    (c: '%'; data: ( 5, 0, 4, 0, 6, 0)),
+    (c: '['; data: ( 4, 1, 4, 1, 5, 0)),
+    (c: ']'; data: ( 6, 0, 5, 0, 4, 0)),
+    (c: '{'; data: ( 6, 0, 4, 0, 5, 0)),
+    (c: '}'; data: ( 4, 1, 5, 1, 4, 0))
+  );
+
+function IndexOfCode93Char(c: AnsiChar): integer;
+
+begin
+  Result:=High(Encoding93);
+  While (Result>=0) and (c<>Encoding93[Result].c) do
+    Dec(Result);
+end;
+
+Function AllowEncode93 (S : AnsiString) : boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=IndexOfCode93Char(S[i])>=0;
+    Inc(I);
+    end;
+end;
+
+Function Encode93(S : AnsiString) : TBarTypeArray;
+
+Const
+  Code93Start : Array[1..6] of TBarType =  ( 4, 0, 4, 0, 7, 0);
+  Code93Stop : Array[1..7] of TBarType = ( 4, 0, 4, 0, 7, 0, 4);
+
+var
+  L,i, P, Idx, CC, CK, WC, WK  : integer;
+  C : Char;
+
+begin
+  L:=Length(S);
+  // Length String * 6 + Start + Stop + Checksum
+  SetLength(Result,L*6+6+7+2*6);
+  P:=0;
+  AddToArray(Result,P,Code93Start);
+  for C in S do
+    begin
+    Idx:=IndexOfCode93Char(C);
+    if Idx<0 then
+      IllegalChar(C,be93);
+    AddToArray(Result,P,Encoding93[Idx].Data);
+    end;
+  CC:=0;
+  CK:=0;
+  WC:=1;
+  WK:=2;
+  for i:=L downto 1 do
+    begin
+    Idx:=IndexOfCode93Char(S[i]);
+    Inc(CC,Idx*WC);
+    Inc(CK,Idx*WK);
+    Inc(WC);
+    if (WC>20) then
+      WC:=1;
+    Inc(WK);
+    if (WK>15) then
+      WK:=1;
+    end;
+  Inc(CK,CC);
+  CC:=CC mod 47;
+  CK:=CK mod 47;
+  AddToArray(Result,P,Encoding93[CC].Data);
+  AddToArray(Result,P,Encoding93[CK].Data);
+  AddToArray(Result,P,Code93Stop);
+end;
+
+function AllowEncode93Extended(S : AnsiString) : boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=Ord(S[i])<128;
+    Inc(I);
+    end;
+end;
+
+
+function Encode93Extended(S: string) : TBarTypeArray;
+
+const
+  CharEncoding: array[0..127] of string[2] = (
+    ']U', '[A', '[B', '[C', '[D', '[E', '[F', '[G',
+    '[H', '[I', '[J', '[K', '[L', '[M', '[N', '[O',
+    '[P', '[Q', '[R', '[S', '[T', '[U', '[V', '[W',
+    '[X', '[Y', '[Z', ']A', ']B', ']C', ']D', ']E',
+    ' ',  '{A', '{B', '{C', '{D', '{E', '{F', '{G',
+    '{H', '{I', '{J', '{K', '{L', '{M', '{N', '{O',
+    '0',  '1',  '2',  '3',  '4',  '5',  '6',  '7',
+    '8',  '9',  '{Z', ']F', ']G', ']H', ']I', ']J',
+    ']V', 'A',  'B',  'C',  'D',  'E',  'F',  'G',
+    'H',  'I',  'J',  'K',  'L',  'M',  'N',  'O',
+    'P',  'Q',  'R',  'S',  'T',  'U',  'V',  'W',
+    'X',  'Y',  'Z',  ']K', ']L', ']M', ']N', ']O',
+    ']W', '}A', '}B', '}C', '}D', '}E', '}F', '}G',
+    '}H', '}I', '}J', '}K', '}L', '}M', '}N', '}O',
+    '}P', '}Q', '}R', '}S', '}T', '}U', '}V', '}W',
+    '}X', '}Y', '}Z', ']P', ']Q', ']R', ']S', ']T'
+  );
+
+var
+  T : AnsiString;
+  O,i: integer;
+
+begin
+  T:='';
+  for I:=1 to Length(S) do
+    begin
+    O:=Ord(S[i]);
+    if (O>127) then
+      IllegalChar(S[i],be93Extended);
+    T:=T+CharEncoding[O];
+    end;
+  Result:=Encode93(T);
+end;
+
+{ ---------------------------------------------------------------------
+  MSI
+  ---------------------------------------------------------------------}
+
+Type
+  TMSIChar = Array[1..8] of TBarType;
+
+Const
+  EncodingMSI : array['0'..'9'] of TMSIChar = (
+    ( 4, 1, 4, 1, 4, 1, 4, 1),   // 0
+    ( 4, 1, 4, 1, 4, 1, 5, 0),   // 1
+    ( 4, 1, 4, 1, 5, 0, 4, 1),   // 2
+    ( 4, 1, 4, 1, 5, 0, 5, 0),   // 3
+    ( 4, 1, 5, 0, 4, 1, 4, 1),   // 4
+    ( 4, 1, 5, 0, 4, 1, 5, 0),   // 5
+    ( 4, 1, 5, 0, 5, 0, 4, 1),   // 6
+    ( 4, 1, 5, 0, 5, 0, 5, 0),   // 7
+    ( 5, 0, 4, 1, 4, 1, 4, 1),   // 8
+    ( 5, 0, 4, 1, 4, 1, 5, 0)    // 9
+  );
+
+function EncodeMSI(S : AnsiString) : TBarTypeArray;
+
+  function SumDigits(D: integer): integer;
+
+  begin
+    Result:=0;
+    while (D>0) do
+      begin
+      Result:=Result+(D mod 10);
+      D:=D div 10;
+      end;
+  end;
+
+
+Const
+  MSIPrefix : Array [1..2] of TBarType  = (5,0);
+  MSISuffix : Array [1..3] of TBarType  = (4,1,4);
+
+var
+  P,I,CSE,CSO,CS : integer;
+  C : AnsiChar;
+
+begin
+  // Length(Prefix)+Length(Suffix)+Length(S)+CheckSum
+  SetLength(Result,(Length(S)+1)*8+2+3);
+  P:=0;
+  AddToArray(Result,P,MSIPrefix); // Prefix
+  CSE:=0;
+  CSO:=0;
+  for i:=1 to Length(s) do
+    begin
+    C:=S[i];
+    if Not (C in NumChars) then
+      IllegalChar(S[i],beMSI);
+    if odd(i-1) then
+      CSO:=CSO*10+Ord(C)
+    else
+      CSE:=CSE+Ord(c);
+    AddToArray(Result,P,EncodingMSI[C]);
+    end;
+  // Add checksum
+  CS:=(SumDigits(CSO*2) + CSE) mod 10;
+  if CS>0 then
+    CS:=10-CS;
+  AddToArray(Result,P,EncodingMSI[chr(Ord('0')+CS)]);
+  AddToArray(Result,P,MSISuffix); // Suffix
+end;
+
+{ ---------------------------------------------------------------------
+  CodaBar
+  ---------------------------------------------------------------------}
+
+Type
+  TCodabarChar = array[0..6] of TBarType;
+  TCodabarCharZero = array[0..7] of TBarType;
+
+  TCodaBarData = record
+    c: AnsiChar;
+    Data: TCodabarChar;
+  end;
+
+Var
+  EncodingCodaBar : array[0..19] of TCodaBarData = (
+    (c: '1'; data: ( 4, 0, 4, 0, 5, 1, 4)),
+    (c: '2'; data: ( 4, 0, 4, 1, 4, 0, 5)),
+    (c: '3'; data: ( 5, 1, 4, 0, 4, 0, 4)),
+    (c: '4'; data: ( 4, 0, 5, 0, 4, 1, 4)),
+    (c: '5'; data: ( 5, 0, 4, 0, 4, 1, 4)),
+    (c: '6'; data: ( 4, 1, 4, 0, 4, 0, 5)),
+    (c: '7'; data: ( 4, 1, 4, 0, 5, 0, 4)),
+    (c: '8'; data: ( 4, 1, 5, 0, 4, 0, 4)),
+    (c: '9'; data: ( 5, 0, 4, 1, 4, 0, 4)),
+    (c: '0'; data: ( 4, 0, 4, 0, 4, 1, 5)),
+    (c: '-'; data: ( 4, 0, 4, 1, 5, 0, 4)),
+    (c: '$'; data: ( 4, 0, 5, 1, 4, 0, 4)),
+    (c: ':'; data: ( 5, 0, 4, 0, 5, 0, 5)),
+    (c: '/'; data: ( 5, 0, 5, 0, 4, 0, 5)),
+    (c: '.'; data: ( 5, 0, 5, 0, 5, 0, 4)),
+    (c: '+'; data: ( 4, 0, 5, 0, 5, 0, 5)),
+    (c: 'A'; data: ( 4, 0, 5, 1, 4, 1, 4)),
+    (c: 'B'; data: ( 4, 1, 4, 1, 4, 0, 5)),
+    (c: 'C'; data: ( 4, 0, 4, 1, 4, 1, 5)),
+    (c: 'D'; data: ( 4, 0, 4, 1, 5, 1, 4))
+  );
+
+
+function IndexOfCodaChar(c: AnsiChar): integer;
+
+begin
+  Result:=High(EncodingCodaBar);
+  While (Result>=0) and (c<>EncodingCodaBar[Result].c) do
+    Dec(Result);
+end;
+
+Function AllowEncodeCodaBar (S : AnsiString) : boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=IndexOfCodaChar(S[i])>=0;
+    Inc(I);
+    end;
+end;
+
+
+Function EncodeCodaBar(S : AnsiString) : TBarTypeArray;
+
+  Function AddZero(C :TCodaBarChar) : TCodabarCharZero;
+
+  begin
+    Move(C,result,SizeOf(C));
+    Result[7]:=0;
+  end;
+
+var
+  i, P, Idx: integer;
+
+begin
+  // (Length(S)+1)*8+7
+  Setlength(Result,(Length(S)+1)*8+7);
+  P:=0;
+  AddToArray(Result,P,AddZero(EncodingCodaBar[IndexOfCodaChar('A')].Data));
+  for i:=1 to Length(S) do
+    begin
+    Idx:=IndexOfCodaChar(S[i]);
+    if Idx<0 then
+      IllegalChar(S[i],beCodabar);
+    AddToArray(Result,P,AddZero(EncodingCodaBar[Idx].Data));
+    end;
+  AddToArray(Result,P,EncodingCodaBar[IndexOfCodaChar('B')].Data);
+end;
+
+{ ---------------------------------------------------------------------
+  Postnet
+  ---------------------------------------------------------------------}
+Type
+  TPostNetChar = Packed Array[1..10] of TBarType;
+
+Const
+  EncodingPostNet : Packed array['0'..'9'] of TPostNetChar = (
+    ( 4, 1, 4, 1, 8, 1, 8, 1, 8, 1),   // 0
+    ( 8, 1, 8, 1, 8, 1, 4, 1, 4, 1),   // 1
+    ( 8, 1, 8, 1, 4, 1, 8, 1, 4, 1),   // 2
+    ( 8, 1, 8, 1, 4, 1, 4, 1, 8, 1),   // 3
+    ( 8, 1, 4, 1, 8, 1, 8, 1, 4, 1),   // 4
+    ( 8, 1, 4, 1, 8, 1, 4, 1, 8, 1),   // 5
+    ( 8, 1, 4, 1, 4, 1, 8, 1, 8, 1),   // 6
+    ( 4, 1, 8, 1, 8, 1, 8, 1, 4, 1),   // 7
+    ( 4, 1, 8, 1, 8, 1, 4, 1, 8, 1),   // 8
+    ( 4, 1, 8, 1, 4, 1, 8, 1, 8, 1)    // 9
+  );
+
+
+Function EncodePostNet (S : AnsiString) : TBarTypeArray;
+
+var
+  i,P : integer;
+
+begin
+  SetLength(Result,Length(S)*10+2+1);
+  P:=0;
+  AddToArray(Result,P,[4,1]);
+  for i := 1 to Length(S) do
+    begin
+    if Not (S[I] in NumChars) then
+      IllegalChar(S[i],bePostNet);
+    AddToArray(Result,P,EncodingPostNet[S[i]]);
+    end;
+  AddToArray(Result,P,[4]);
+end;
+
+{ ---------------------------------------------------------------------
+  Code 128
+  ---------------------------------------------------------------------}
+
+Type
+  TCode128Char = Packed Array[1..6] of TBarType;
+  TCode128StopChar = Packed Array[1..7] of TBarType;
+
+Const
+
+  // The order of these elements must be the same as for
+  // the Encoding128A,Encoding128B,Encoding128C arrays below !
+
+  Encoding128Data : Packed array[0..102] of TCode128Char = (
+    ( 5, 0, 5, 1, 5, 1),   // 0
+    ( 5, 1, 5, 0, 5, 1),   // 1
+    ( 5, 1, 5, 1, 5, 0),   // 2
+    ( 4, 1, 4, 1, 5, 2),   // 3
+    ( 4, 1, 4, 2, 5, 1),   // 4
+    ( 4, 2, 4, 1, 5, 1),   // 5
+    ( 4, 1, 5, 1, 4, 2),   // 6
+    ( 4, 1, 5, 2, 4, 1),   // 7
+    ( 4, 2, 5, 1, 4, 1),   // 8
+    ( 5, 1, 4, 1, 4, 2),   // 9
+    ( 5, 1, 4, 2, 4, 1),   // 10
+    ( 5, 2, 4, 1, 4, 1),   // 11
+    ( 4, 0, 5, 1, 6, 1),   // 12
+    ( 4, 1, 5, 0, 6, 1),   // 13
+    ( 4, 1, 5, 1, 6, 0),   // 14
+    ( 4, 0, 6, 1, 5, 1),   // 15
+    ( 4, 1, 6, 0, 5, 1),   // 16
+    ( 4, 1, 6, 1, 5, 0),   // 17
+    ( 5, 1, 6, 1, 4, 0),   // 18
+    ( 5, 1, 4, 0, 6, 1),   // 19
+    ( 5, 1, 4, 1, 6, 0),   // 20
+    ( 5, 0, 6, 1, 4, 1),   // 21
+    ( 5, 1, 6, 0, 4, 1),   // 22
+    ( 6, 0, 5, 0, 6, 0),   // 23
+    ( 6, 0, 4, 1, 5, 1),   // 24
+    ( 6, 1, 4, 0, 5, 1),   // 25
+    ( 6, 1, 4, 1, 5, 0),   // 26
+    ( 6, 0, 5, 1, 4, 1),   // 27
+    ( 6, 1, 5, 0, 4, 1),   // 28
+    ( 6, 1, 5, 1, 4, 0),   // 29
+    ( 5, 0, 5, 0, 5, 2),   // 30
+    ( 5, 0, 5, 2, 5, 0),   // 31
+    ( 5, 2, 5, 0, 5, 0),   // 32
+    ( 4, 0, 4, 2, 5, 2),   // 33
+    ( 4, 2, 4, 0, 5, 2),   // 34
+    ( 4, 2, 4, 2, 5, 0),   // 35
+    ( 4, 0, 5, 2, 4, 2),   // 36
+    ( 4, 2, 5, 0, 4, 2),   // 37
+    ( 4, 2, 5, 2, 4, 0),   // 38
+    ( 5, 0, 4, 2, 4, 2),   // 39
+    ( 5, 2, 4, 0, 4, 2),   // 40
+    ( 5, 2, 4, 2, 4, 0),   // 41
+    ( 4, 0, 5, 0, 6, 2),   // 42
+    ( 4, 0, 5, 2, 6, 0),   // 43
+    ( 4, 2, 5, 0, 6, 0),   // 44
+    ( 4, 0, 6, 0, 5, 2),   // 45
+    ( 4, 0, 6, 2, 5, 0),   // 46
+    ( 4, 2, 6, 0, 5, 0),   // 47
+    ( 6, 0, 6, 0, 5, 0),   // 48
+    ( 5, 0, 4, 2, 6, 0),   // 49
+    ( 5, 2, 4, 0, 6, 0),   // 50
+    ( 5, 0, 6, 0, 4, 2),   // 51
+    ( 5, 0, 6, 2, 4, 0),   // 52
+    ( 5, 0, 6, 0, 6, 0),   // 53
+    ( 6, 0, 4, 0, 5, 2),   // 54
+    ( 6, 0, 4, 2, 5, 0),   // 55
+    ( 6, 2, 4, 0, 5, 0),   // 56
+    ( 6, 0, 5, 0, 4, 2),   // 57
+    ( 6, 0, 5, 2, 4, 0),   // 58
+    ( 6, 2, 5, 0, 4, 0),   // 59
+    ( 6, 0, 7, 0, 4, 0),   // 60
+    ( 5, 1, 4, 3, 4, 0),   // 61
+    ( 7, 2, 4, 0, 4, 0),   // 62
+    ( 4, 0, 4, 1, 5, 3),   // 63
+    ( 4, 0, 4, 3, 5, 1),   // 64
+    ( 4, 1, 4, 0, 5, 3),   // 65
+    ( 4, 1, 4, 3, 5, 0),   // 66
+    ( 4, 3, 4, 0, 5, 1),   // 67
+    ( 4, 3, 4, 1, 5, 0),   // 68
+    ( 4, 0, 5, 1, 4, 3),   // 69
+    ( 4, 0, 5, 3, 4, 1),   // 70
+    ( 4, 1, 5, 0, 4, 3),   // 71
+    ( 4, 1, 5, 3, 4, 0),   // 72
+    ( 4, 3, 5, 0, 4, 1),   // 73
+    ( 4, 3, 5, 1, 4, 0),   // 74
+    ( 5, 3, 4, 1, 4, 0),   // 75
+    ( 5, 1, 4, 0, 4, 3),   // 76
+    ( 7, 0, 6, 0, 4, 0),   // 77
+    ( 5, 3, 4, 0, 4, 1),   // 78
+    ( 4, 2, 7, 0, 4, 0),   // 79
+    ( 4, 0, 4, 1, 7, 1),   // 80
+    ( 4, 1, 4, 0, 7, 1),   // 81
+    ( 4, 1, 4, 1, 7, 0),   // 82
+    ( 4, 0, 7, 1, 4, 1),   // 83
+    ( 4, 1, 7, 0, 4, 1),   // 84
+    ( 4, 1, 7, 1, 4, 0),   // 85
+    ( 7, 0, 4, 1, 4, 1),   // 86
+    ( 7, 1, 4, 0, 4, 1),   // 87
+    ( 7, 1, 4, 1, 4, 0),   // 88
+    ( 5, 0, 5, 0, 7, 0),   // 89
+    ( 5, 0, 7, 0, 5, 0),   // 90
+    ( 7, 0, 5, 0, 5, 0),   // 91
+    ( 4, 0, 4, 0, 7, 2),   // 92
+    ( 4, 0, 4, 2, 7, 0),   // 93
+    ( 4, 2, 4, 0, 7, 0),   // 94
+    ( 4, 0, 7, 0, 4, 2),   // 95
+    ( 4, 0, 7, 2, 4, 0),   // 96
+    ( 7, 0, 4, 0, 4, 2),   // 97
+    ( 7, 0, 4, 2, 4, 0),   // 98
+    ( 4, 0, 6, 0, 7, 0),   // 99
+    ( 4, 0, 7, 0, 6, 0),   // 100
+    ( 6, 0, 4, 0, 7, 0),   // 101
+    ( 7, 0, 4, 0, 6, 0)    // 102
+  );
+
+
+Const
+  Encoding128ACount        = 64;
+  Encoding128AChecksumInit = 103;
+
+  Encoding128BCount        = 95;
+  Encoding128BChecksumInit = 104;
+
+  Encoding128CChecksumInit = 105;
+
+Type
+  /// 0 based, checksum relies on 0-based index
+  TEncoding128AArray = Packed Array[0..Encoding128ACount-1] of Ansichar;
+  TEncoding128BArray = Packed Array[0..Encoding128BCount-1] of Ansichar;
+
+Const
+   StartEncoding128A : TCode128Char = ( 5, 0, 4, 3, 4, 1);
+   StartEncoding128B : TCode128Char = ( 5, 0, 4, 1, 4, 3);
+   StartEncoding128C : TCode128Char = ( 5, 0, 4, 1, 6, 1);
+   StopEncoding128   : TCode128StopChar = ( 5, 2, 6, 0, 4, 0, 5);
+
+  // The order of these elements must be the same as on Encoding128Data
+
+  Encoding128A : TEncoding128AArray = (
+    ' ','!','"','#','$','%','&','''','(',')',
+    '*','+',',','-','.','/','0','1','2','3',
+    '4','5','6','7','8','9',':',';','<','=',
+    '>','?','@','A','B','C','D','E','F','G',
+    'H','I','J','K','L','M','N','O','P','Q',
+    'R','S','T','U','V','W','X','Y','Z','[',
+    '\',']','^','_'
+  );
+
+  Encoding128B : TEncoding128BArray = (
+    ' ','!','"','#','$','%','&','''','(',')',
+    '*','+',',','-','.','/','0','1','2','3',
+    '4','5','6','7','8','9',':',';','<','=',
+    '>','?','@','A','B','C','D','E','F','G',
+    'H','I','J','K','L','M','N','O','P','Q',
+    'R','S','T','U','V','W','X','Y','Z','[',
+    '\',']','^','_','`','a','b','c','d','e',
+    'f','g','h','i','j','k','l','m','n','o',
+    'p','q','r','s','t','u','v','w','x','y',
+    'z','{','|','}','~'
+  );
+
+function IndexOf128AChar(c: AnsiChar): integer;
+
+begin
+  Result:=0;
+  While (Result<Encoding128ACount) and (c<>Encoding128A[Result]) do
+    Inc(Result);
+  if Result>=Encoding128ACount then
+    Result:=-1;
+end;
+
+Function AllowEncode128A(S : String) : Boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=IndexOf128AChar(S[i])>=0;
+    Inc(I);
+    end;
+end;
+
+Function Encode128A(S : AnsiString) : TBarTypeArray;
+
+Var
+  CS,I,P,Idx : integer;
+
+begin
+  // Length(S)+StartCode+CheckSum+StopCode (stopcode has 7 bars)
+  SetLength(Result,(Length(S)+2)*6+7);
+  P:=0;
+  AddToArray(Result,P,StartEncoding128A);
+  CS:=Encoding128AChecksumInit;
+  For I:=1 to Length(S) do
+    begin
+    Idx:=IndexOf128AChar(S[i]);
+    if Idx<0 then
+      IllegalChar(S[i],be128a);
+    AddToArray(Result,P,Encoding128Data[Idx]);
+    Inc(CS,Idx*I);
+    end;
+  // Cap CS
+  CS:=CS mod 103;
+  AddToArray(Result,P,Encoding128Data[CS]);
+  AddToArray(Result,P,StopEncoding128);
+end;
+
+function IndexOf128BChar(c: AnsiChar): integer;
+
+begin
+  Result:=1;
+  While (Result<=Encoding128BCount) and (c<>Encoding128B[Result]) do
+    Inc(Result);
+  if Result>Encoding128BCount then
+    Result:=-1;
+end;
+
+Function AllowEncode128B(S : String) : Boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=IndexOf128BChar(S[i])>=0;
+    Inc(I);
+    end;
+end;
+
+Function Encode128B(S : AnsiString) : TBarTypeArray;
+
+
+Var
+  CS,I,P,Idx : integer;
+
+begin
+  // Length(S)+StartCode+CheckSum+StopCode (stopcode has 7 bars)
+  SetLength(Result,(Length(S)+2)*6+7);
+  P:=0;
+  AddToArray(Result,P,StartEncoding128B);
+  CS:=Encoding128BChecksumInit;
+  For I:=1 to Length(S) do
+    begin
+    Idx:=IndexOf128BChar(S[i]);
+    if Idx<0 then
+      IllegalChar(S[i],be128b);
+    AddToArray(Result,P,Encoding128Data[Idx]);
+    Inc(CS,Idx*I);
+    end;
+  // Cap CS
+  CS:=CS mod 103;
+  AddToArray(Result,P,Encoding128Data[CS]);
+  AddToArray(Result,P,StopEncoding128);
+end;
+
+Function C(S : AnsiString) : TBarTypeArray;
+
+  function IndexOfChar(c: AnsiChar): integer;
+
+  begin
+    Result:=1;
+    While (Result<=Encoding128BCount) and (c<>Encoding128A[Result]) do
+      Inc(Result);
+    if Result>Encoding128BCount then
+      Result:=-1;
+  end;
+
+Var
+  CS,I,P,Idx : integer;
+
+begin
+  // Length(S)+StartCode+CheckSum+StopCode (stopcode has 7 bars)
+  SetLength(Result,(Length(S)+2)*6+7);
+  P:=0;
+  AddToArray(Result,P,StartEncoding128B);
+  CS:=Encoding128BChecksumInit;
+  For I:=1 to Length(S) do
+    begin
+    Idx:=IndexOfChar(S[i]);
+    if Idx<0 then
+      IllegalChar(S[i],be128b);
+    AddToArray(Result,P,Encoding128Data[Idx]);
+    Inc(CS,Idx*I);
+    end;
+  // Cap CS
+  CS:=CS mod 103;
+  AddToArray(Result,P,Encoding128Data[CS]);
+  AddToArray(Result,P,StopEncoding128);
+end;
+
+Function Encode128C(S : AnsiString) : TBarTypeArray;
+
+Var
+  CS,I,CC,P,Idx : integer;
+  T : AnsiString;
+
+begin
+  // Length(S)+StartCode+CheckSum+StopCode (stopcode has 7 bars)
+  if Odd(Length(S)) then
+    S:='0'+S;
+  I:=1;
+  T:='';
+  // construct a AnsiString with codes.
+  while i<Length(S) do
+    begin
+    CC:=StrToIntDef(Copy(S,i,2),-1);
+    if CC=-1 then
+      IllegalChar(S[i],be128C);
+    T:=T+Chr(CC);
+    Inc(I,2);
+    end;
+  // With the new AnsiString, construct barcode
+  SetLength(Result,(Length(T)+2)*6+7);
+  P:=0;
+  AddToArray(Result,P,StartEncoding128C);
+  CS:=Encoding128CChecksumInit;
+  For I:=1 to Length(T) do
+    begin
+    Idx:=Ord(T[i]);
+    AddToArray(Result,P,Encoding128Data[Idx]);
+    Inc(CS,Idx*I);
+    end;
+  // Cap CS
+  CS:=CS mod 103;
+  AddToArray(Result,P,Encoding128Data[CS]);
+  AddToArray(Result,P,StopEncoding128);
+end;
+
+{ ---------------------------------------------------------------------
+  Barcode 2 of 5
+  ---------------------------------------------------------------------}
+Type
+  TCode2of5Char = Packed array [1..5] of boolean;
+
+Const
+  Encoding2of5 : array['0'..'9'] of TCode2of5Char = (
+    (false, false, True, True, false),    // 0
+    (True, false, false, false, True),    // 1
+    (false, True, false, false, True),    // 2
+    (True, True, false, false, false),    // 3
+    (false, false, True, false, True),    // 4
+    (True, false, True, false, false),    // 5
+    (false, True, True, false, false),    // 6
+    (false, false, false, True, True),    // 7
+    (True, false, false, True, false),    // 8
+    (false, True, false, True, false)     // 9
+  );
+
+Function Encode2of5Interleaved(S : AnsiString) : TBarTypeArray;
+
+Const
+  Encode2of5Start : Array [1..4] of TBarType = (4,0,4,0);
+  Encode2of5Stop : Array [1..3] of TBarType = (5,0,4);
+
+  COdd : Array [Boolean] of TBarType = (4,5);
+  CEven : Array [Boolean] of TBarType = (0,1);
+
+var
+  P, i, j: integer;
+  CC : Array[1..2] of TBarType;
+
+begin
+  SetLength(Result,(Length(S)*5)+4+3);
+  P:=0;
+  AddToArray(Result,P,Encode2of5Start);
+  for i := 1 to Length(S) div 2 do
+    for j:=1 to 5 do
+      begin
+      if not (S[i*2-1] in NumChars) then
+        IllegalChar(S[i*2-1],be2of5interleaved);
+      if not (S[i*2] in NumChars) then
+        IllegalChar(S[i*2],be2of5interleaved);
+      CC[1]:=COdd[Encoding2of5[S[i*2-1],j]];
+      CC[2]:=CEven[Encoding2of5[S[i*2],j]];
+      AddToArray(Result,P,CC);
+      end;
+  AddToArray(Result,P,Encode2of5Stop);
+end;
+
+Function Encode2of5Industrial(S : AnsiString) : TBarTypeArray;
+
+Const
+  Encode2of5Start : Array [1..6] of TBarType = (5,0,5,0,4,0);
+  Encode2of5Stop : Array [1..6] of TBarType = (5,0,4,0,5,0);
+
+  Codes : Array [Boolean] of Array[1..2] of TBarType = ((4,0),(5,0));
+
+var
+  P,I,J : integer;
+  C : Char;
+begin
+  // Length of AnsiString * 2 + StartCode+StopCode
+  SetLength(Result,Length(S)*10+6+6);
+  P:=0;
+  AddToArray(Result,P,Encode2of5Start);
+  for i := 1 to Length(S) do
+    for j := 1 to 5 do
+      begin
+      C:=S[i];
+      if not (C in NumChars) then
+        IllegalChar(C,be2of5industrial);
+      AddToArray(Result,P,Codes[Encoding2of5[S[i],j]]);
+      end;
+  AddToArray(Result,P,Encode2of5Stop);
+end;
+
+Function Encode2of5Matrix(S : AnsiString) : TBarTypeArray;
+
+Const
+  Encode2of5Start : Array [1..6] of TBarType = (6,0,4,0,4,0);
+  Encode2of5Stop : Array [1..5] of TBarType = (6,0,4,0,4);
+
+var
+  P,I,J : integer;
+  C : Char;
+  BT : TBarType;
+begin
+  // Length of AnsiString  + StartCode+StopCode
+  SetLength(Result,Length(S)*6+6+5);
+  P:=0;
+  AddToArray(Result,P,Encode2of5Start);
+  for i:=1 to Length(S) do
+    begin
+    for j:=1 to 5 do
+      begin
+      C:=S[i];
+      if not (C in NumChars) then
+        IllegalChar(C,be2of5industrial);
+      BT:=Ord(Encoding2of5[S[i],j]); // 0 or 1
+      if odd(J) then
+        BT:=BT+4;
+      AddToArray(Result,P,[BT]);
+      end;
+    AddToArray(Result,P,[0]);
+    end;
+  AddToArray(Result,P,Encode2of5Stop);
+end;
+
+{ ---------------------------------------------------------------------
+  Global routines
+  ---------------------------------------------------------------------}
+
+Function AllNumerical (S : AnsiString) : boolean;
+
+Var
+  I,L : integer;
+
+begin
+  L:=Length(S);
+  Result:=L>0;
+  I:=1;
+  While Result and (I<=L) do
+    begin
+    Result:=S[i] in Numchars;
+    Inc(I);
+    end;
+end;
+
+Function StringAllowsBarEncoding(S : AnsiString; aEncoding : TBarcodeEncoding) : Boolean;
+
+begin
+  if (AEncoding in NumericalEncodings) then
+    Result:=AllNumerical(S)
+  else
+    Case aEncoding of
+      be128A : Result:=AllowEncode128A(S);
+      be128B : Result:=AllowEncode128B(S);
+      be39: Result:=AllowEncode39(S);
+      be39Extended: Result:=AllowEncode39Extended(S);
+      be93: Result:=AllowEncode93(S);
+      be93Extended: Result:=AllowEncode93Extended(S);
+      beCodabar: Result:=AllowEncodeCodaBar(S);
+    else
+      Raise EBarEncoding.CreateFmt('Unknown/Unhandled encoding, ordinal value : %d',[ord(aEncoding)]);
+    end;
+end;
+
+
+Function StringToBarTypeArray(S : AnsiString; aEncoding : TBarcodeEncoding) : TBarTypeArray;
+
+begin
+  SetLength(Result,0);
+  Case aEncoding of
+    beEAN8 : Result:=EncodeEan8(S);
+    beEAN13 : Result:=EncodeEan13(S);
+    be128A : Result:=Encode128A(S);
+    be128B : Result:=Encode128B(S);
+    be128C: Result:=Encode128C(S);
+    be2of5industrial: Result:=Encode2of5Industrial(S);
+    be2of5interleaved: Result:=Encode2of5Interleaved(S);
+    be2of5matrix: Result:=Encode2of5Matrix(S);
+    be39: Result:=Encode39(S,False);
+    be39Extended: Result:=Encode39Extended(S,False);
+    be93: Result:=Encode93(S);
+    be93Extended: Result:=Encode93Extended(S);
+    beCodabar: Result:=EncodeCodaBar(S);
+    beMSI: Result:=EncodeMSI(S);
+    bePostNet : Result:=EncodePostNet(S);
+  else
+    Raise EBarEncoding.CreateFmt('Unknown/Unhandled encoding, ordinal value : %d',[ord(aEncoding)]);
+  end;
+end;
+
+Function StringToBarcodeParams(S : AnsiString; aEncoding : TBarcodeEncoding) : TBarParamsArray;
+
+begin
+  Result:=BarTypeArrayToBarParamsArray(StringToBarTypeArray(S,aEncoding));
+end;
+
+Function IntToBarTypeArray(I: Int64; aEncoding : TBarcodeEncoding; aWidth : Integer = 0) : TBarTypeArray;
+
+Var
+  S : AnsiString;
+  L : integer;
+
+begin
+  S:=IntToStr(i);
+  L:=Length(S);
+  if (AWidth>0) and (L<AWidth) then
+    S:=StringOfChar('0',AWidth-L)+S;
+  Result:=StringToBarTypeArray(S,aEncoding);
+end;
+
+Function IntToBarcodeParams(I : Int64; aEncoding : TBarcodeEncoding; aWidth : Integer = 0) : TBarParamsArray;
+
+begin
+  Result:=BarTypeArrayToBarParamsArray(IntToBarTypeArray(I,aEncoding,aWidth));
+end;
+
+Function BarTypeToBarParams(aType : TBarType) : TBarParams;
+
+begin
+  Result:=BarTypes[aType];
+end;
+
+Function BarTypeArrayToBarParamsArray(anArray : TBarTypeArray) : TBarParamsArray;
+
+Var
+  I: Integer;
+
+begin
+  Setlength(Result,Length(anArray));
+  For I:=0 to length(AnArray)-1 do
+    Result[i]:=BarTypeToBarParams(anArray[i]);
+end;
+
+function CalcBarWidths(aEncoding: TBarcodeEncoding; aUnit: Integer; AWeight: Double): TBarWidthArray;
+
+Const
+  Weight2to3Encodings  =
+    [be2of5interleaved, be2of5industrial, be39, beEAN8, beEAN13, be39Extended, beCodabar];
+  Weight225to3Encodings = [be2of5matrix];
+
+begin
+  if aEncoding in Weight2to3Encodings then
+    begin
+    if aWeight < 2.0 then
+      aWeight := 2.0;
+    if aWeight > 3.0 then
+      aWeight := 3.0;
+    end
+  else if aEncoding in Weight225to3Encodings then
+    begin
+      if aWeight < 2.25 then
+        aWeight := 2.25;
+      if aWeight > 3.0 then
+        aWeight := 3.0;
+    end;
+
+  Result[bw100]:=aUnit;
+  Result[bwWeighted]:=Round(aUnit*aWeight);
+  Result[bw150]:=Result[bwWeighted]*3 div 2;
+  Result[bw200]:=Result[bwWeighted]*2;
+end;
+
+function CalcStringWidthInBarCodeEncoding(S : String;aEncoding: TBarcodeEncoding; aUnit: Integer; AWeight: Double): Cardinal;
+
+Var
+  BP : TBarParams;
+  Data : TBarTypeArray;
+  BWT : TBarWidthArray;
+  I : integer;
+
+begin
+  Result:=0;
+  BWT:=CalcBarWidths(aEncoding,aUnit,aWeight);
+  Data:=StringToBarTypeArray(S,aEncoding);
+  for i:=0 to Length(Data)-1 do  // examine the pattern string
+    begin
+    BP:=BarTypeToBarParams(Data[i]);
+    Result:=Result+BWT[BP.w];
+    end;
+end;
+
+end.
+

packages/fcl-image/src/fpimgbarcode.pp

@@ -0,0 +1,80 @@
+unit fpimgbarcode;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, fpcanvas, fpimage, types, fpbarcode;
+
+
+Function DrawBarCode(Img : TFPCustomImage; S : String; E : TBarcodeEncoding; aWidth : Integer = 1; AWeight : Double = 2.0) : Boolean;
+Function DrawBarCode(Img : TFPCustomImage; Rect : TRect; S : String; E : TBarcodeEncoding; aWidth : Integer = 1; AWeight : Double = 2.0) : Boolean;
+
+implementation
+
+uses
+  FPImgCanv;
+
+Function DrawBarCode(Img : TFPCustomImage; S : String; E : TBarcodeEncoding; aWidth : Integer = 1; AWeight : Double = 2.0) : Boolean;
+
+Var
+  T : TRect;
+
+begin
+  T.Left:=0;
+  T.Top:=0;
+  T.Right:=Img.Width-1;
+  T.Bottom:=Img.Height-1;
+  Result:=DrawBarCode(Img,T,S,E,aWidth,aWeight);
+end;
+
+Function DrawBarCode(Img : TFPCustomImage; Rect : TRect; S : String; E : TBarcodeEncoding; aWidth : Integer = 1; AWeight : Double = 2.0) : Boolean;
+
+Var
+  Cnv : TFPImageCanvas;
+  BWT : TBarWidthArray;
+  i: integer;
+  xOffset: integer;
+  w, h: integer;
+  BarRect : TRect;
+  BP : TBarParams;
+  Data : TBarTypeArray;
+
+begin
+  BWT:=CalcBarWidths(E,aWidth,aWeight);
+  Data:=StringToBarTypeArray(S,E);
+  Cnv:=TFPImageCanvas.Create(Img);
+  try
+    xOffset := 0;
+    Cnv.Brush.FPColor := colWhite;
+    Cnv.Brush.Style:=bsSolid;
+    Cnv.FillRect(Rect);
+    Cnv.Pen.Width := 1;
+    for i:=0 to Length(Data)-1 do
+      begin
+      BP:=BarTypeToBarParams(Data[i]);
+      case BP.c of
+        bcBlack : Cnv.Pen.FPColor := colBlack;
+        bcWhite : Cnv.Pen.FPColor := colWhite;
+      end;
+      W:=BWT[BP.w];
+      Cnv.Brush.FPColor:=Cnv.Pen.FPColor;
+      H:=Rect.Bottom-Rect.Top;
+      if BP.h=bhTwoFifth then
+        H:=H*2 div 5;
+      BarRect.Left:=Rect.Left+xOffset;
+      BarRect.Top:=Rect.Top;
+      BarRect.Bottom:=Rect.Top+H;
+      BarRect.Right:=BarRect.Left + W-1;
+      Cnv.FillRect(BarRect);
+      xOffset:=xOffset + W;
+      end;
+  finally
+    Cnv.Free;
+  end;
+end;
+
+
+end.
+

packages/fcl-image/test/tcbarcodes.pp

@@ -0,0 +1,769 @@
+unit tcbarcodes;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  TypInfo, Classes, SysUtils, fpcunit, testutils, testregistry, fpbarcode;
+
+type
+
+  { TTestBarcodes }
+
+  TTestBarcodes = class(TTestCase)
+  private
+    FText: String;
+    FType: TBarcodeEncoding;
+    class procedure AssertEquals(Msg: String; AExpected, AActual: TBarColor);
+    class procedure AssertEquals(Msg: String; AExpected, AActual: TBarWidth);
+    class procedure AssertEquals(Msg: String; AExpected, AActual: TBarHeight);
+    procedure AssertParams(aType: TBarType; AColor: TBarColor; AWidth: TBarWidth; AHeight: TBarheight);
+  Protected
+    Procedure SetEncoding(aType: TBarcodeEncoding);
+    Procedure SetText(aText : String);
+    Function DoEncode : TBarTypeArray;
+    Class Procedure AssertEquals(Msg : String; AExpected : Array of Byte; AActual : TBarTypeArray); overload;
+    Property TheType : TBarcodeEncoding Read FType;
+    Property TheText : String Read FText;
+  published
+    procedure TestEan8;
+    procedure TestEan13;
+    procedure TestCode39;
+    procedure TestCode39Extended;
+    procedure TestCode128A;
+    procedure TestCode128B;
+    procedure TestCode128C;
+    procedure Testbe2of5industrial;
+    procedure Testbe2of5interleaved;
+    procedure Testbe2of5matrix;
+    procedure TestCode93;
+    procedure TestCode93Extended;
+    procedure TestCodeCodabar;
+    procedure TestCodeMSI;
+    procedure TestCodePostNet;
+    Procedure CheckParamsType;
+    Procedure CheckNumerictypes;
+  end;
+
+implementation
+
+procedure TTestBarcodes.SetEncoding(aType: TBarcodeEncoding);
+begin
+  FType:=aType;
+end;
+
+procedure TTestBarcodes.SetText(aText: String);
+begin
+  FText:=aText;
+end;
+
+function TTestBarcodes.DoEncode: TBarTypeArray;
+begin
+  Result:=StringToBarTypeArray(FText,FType);
+  //Writeln(NewToOld(Result));
+end;
+
+class procedure TTestBarcodes.AssertEquals(Msg: String; AExpected: array of Byte; AActual: TBarTypeArray);
+
+Var
+  I : Integer;
+
+begin
+  AssertEquals(Msg+': length equal',Length(aExpected),Length(AActual));
+  for I:=0 to Length(aExpected)-1 do
+    AssertEquals(Msg+': Element at position ['+intTostr(I)+']',aExpected[i],AActual[i]);
+end;
+
+{
+  The tests have been generated using the barcode unit distributed with lazarus.
+  The string text in the comment is the string as reproduced with the MakeData function of the TBarCode class.
+}
+
+procedure TTestBarcodes.TestEan8;
+
+begin
+  SetEncoding(beEAN8);
+  // 0 --> 5052605260526052605050507150715071507150505
+  SetText('0');
+  AssertEquals('Test for "0"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,0,4],DoEncode);
+  // 1 --> 5052605260526052605050507150715061607150505
+  SetText('1');
+  AssertEquals('Test for "1"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,5,1,5,0,6,1,4,0,4,0,4],DoEncode);
+  // 2 --> 5052605260526052605050507150715060617150505
+  SetText('2');
+  AssertEquals('Test for "2"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,5,0,5,1,6,1,4,0,4,0,4],DoEncode);
+  // 3 --> 5052605260526052605050507150715053507150505
+  SetText('3');
+  AssertEquals('Test for "3"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,4,3,4,0,6,1,4,0,4,0,4],DoEncode);
+  // 4 --> 5052605260526052605050507150715050717150505
+  SetText('4');
+  AssertEquals('Test for "4"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,4,0,6,1,6,1,4,0,4,0,4],DoEncode);
+  // 5 --> 5052605260526052605050507150715051707150505
+  SetText('5');
+  AssertEquals('Test for "5"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,4,1,6,0,6,1,4,0,4,0,4],DoEncode);
+  // 6 --> 5052605260526052605050507150715050537150505
+  SetText('6');
+  AssertEquals('Test for "6"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,4,0,4,3,6,1,4,0,4,0,4],DoEncode);
+  // 7 --> 5052605260526052605050507150715052517150505
+  SetText('7');
+  AssertEquals('Test for "7"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,4,2,4,1,6,1,4,0,4,0,4],DoEncode);
+  // 8 --> 5052605260526052605050507150715051527150505
+  SetText('8');
+  AssertEquals('Test for "8"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,4,1,4,2,6,1,4,0,4,0,4],DoEncode);
+  // 9 --> 5052605260526052605050507150715070517150505
+  SetText('9');
+  AssertEquals('Test for "9"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,0,4,1,6,1,4,0,4,0,4],DoEncode);
+  // 12345678 --> 5051615151608050526050505170505352515152505
+  SetText('12345678');
+  AssertEquals('Test for "12345678"',[4,0,4,1,5,1,4,1,4,1,5,0,7,0,4,0,4,2,5,0,4,0,4,0,4,1,6,0,4,0,4,3,4,2,4,1,4,1,4,2,4,0,4],DoEncode);
+end;
+
+procedure TTestBarcodes.TestEan13;
+begin
+  SetEncoding(beEAN13);
+  // 0 --> 50526052605260526052605260505050715071507150715071507150505
+  SetText('0');
+  AssertEquals('Test for "0"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,0,4],DoEncode);
+  // 1 --> 50526052605260526052605260505050715071507150715061607150505
+  SetText('1');
+  AssertEquals('Test for "1"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,5,1,5,0,6,1,4,0,4,0,4],DoEncode);
+  // 2 --> 50526052605260526052605260505050715071507150715060617150505
+  SetText('2');
+  AssertEquals('Test for "2"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,5,0,5,1,6,1,4,0,4,0,4],DoEncode);
+  // 3 --> 50526052605260526052605260505050715071507150715053507150505
+  SetText('3');
+  AssertEquals('Test for "3"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,3,4,0,6,1,4,0,4,0,4],DoEncode);
+  // 4 --> 50526052605260526052605260505050715071507150715050717150505
+  SetText('4');
+  AssertEquals('Test for "4"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,0,6,1,6,1,4,0,4,0,4],DoEncode);
+  // 5 --> 50526052605260526052605260505050715071507150715051707150505
+  SetText('5');
+  AssertEquals('Test for "5"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,1,6,0,6,1,4,0,4,0,4],DoEncode);
+  // 6 --> 50526052605260526052605260505050715071507150715050537150505
+  SetText('6');
+  AssertEquals('Test for "6"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,0,4,3,6,1,4,0,4,0,4],DoEncode);
+  // 7 --> 50526052605260526052605260505050715071507150715052517150505
+  SetText('7');
+  AssertEquals('Test for "7"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,2,4,1,6,1,4,0,4,0,4],DoEncode);
+  // 8 --> 50526052605260526052605260505050715071507150715051527150505
+  SetText('8');
+  AssertEquals('Test for "8"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,4,1,4,2,6,1,4,0,4,0,4],DoEncode);
+  // 9 --> 50526052605260526052605260505050715071507150715070517150505
+  SetText('9');
+  AssertEquals('Test for "9"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,2,5,0,4,0,4,0,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,1,4,0,6,0,4,1,6,1,4,0,4,0,4],DoEncode);
+  // 12345678 --> 50526052605260516151516080505050507151705053525151527150505
+  SetText('12345678');
+  AssertEquals('Test for "12345678"',[4,0,4,2,5,0,4,2,5,0,4,2,5,0,4,1,5,1,4,1,4,1,5,0,7,0,4,0,4,0,4,0,4,0,6,1,4,1,6,0,4,0,4,3,4,2,4,1,4,1,4,2,6,1,4,0,4,0,4],DoEncode);
+  // 1234567890123 --> 50515160805170506253505152505050515270517150616060615350505
+  SetText('1234567890123');
+  AssertEquals('Test for "1234567890123"',[4,0,4,1,4,1,5,0,7,0,4,1,6,0,4,0,5,2,4,3,4,0,4,1,4,2,4,0,4,0,4,0,4,1,4,2,6,0,4,1,6,1,4,0,5,1,5,0,5,0,5,1,4,3,4,0,4,0,4],DoEncode);
+end;
+
+procedure TTestBarcodes.TestCode39;
+begin
+  SetEncoding(be39);
+  // 0 --> 51506060505051606050515060605
+  SetText('0');
+  AssertEquals('Test for "0"',[4,1,4,0,5,0,5,0,4,0,4,0,4,1,5,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 1 --> 51506060506051505060515060605
+  SetText('1');
+  AssertEquals('Test for "1"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,4,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 2 --> 51506060505061505060515060605
+  SetText('2');
+  AssertEquals('Test for "2"',[4,1,4,0,5,0,5,0,4,0,4,0,5,1,4,0,4,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 3 --> 51506060506061505050515060605
+  SetText('3');
+  AssertEquals('Test for "3"',[4,1,4,0,5,0,5,0,4,0,5,0,5,1,4,0,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 4 --> 51506060505051605060515060605
+  SetText('4');
+  AssertEquals('Test for "4"',[4,1,4,0,5,0,5,0,4,0,4,0,4,1,5,0,4,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 5 --> 51506060506051605050515060605
+  SetText('5');
+  AssertEquals('Test for "5"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,5,0,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 6 --> 51506060505061605050515060605
+  SetText('6');
+  AssertEquals('Test for "6"',[4,1,4,0,5,0,5,0,4,0,4,0,5,1,5,0,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 7 --> 51506060505051506060515060605
+  SetText('7');
+  AssertEquals('Test for "7"',[4,1,4,0,5,0,5,0,4,0,4,0,4,1,4,0,5,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 8 --> 51506060506051506050515060605
+  SetText('8');
+  AssertEquals('Test for "8"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 9 --> 51506060505061506050515060605
+  SetText('9');
+  AssertEquals('Test for "9"',[4,1,4,0,5,0,5,0,4,0,4,0,5,1,4,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 12345678 --> 515060605060515050605061505060606150505050516050606051605050506160505050515060606051506050515060605
+  SetText('12345678');
+  AssertEquals('Test for "12345678"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,4,0,5,0,4,0,5,1,4,0,4,0,5,0,5,0,5,1,4,0,4,0,4,0,4,0,4,1,5,0,4,0,5,0,5,0,4,1,5,0,4,0,4,0,4,0,5,1,5,0,4,0,4,0,4,0,4,1,4,0,5,0,5,0,5,0,4,1,4,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 123456789ABCDE --> 515060605060515050605061505060606150505050516050606051605050506160505050515060606051506050506150605060505150605060515060606051505050506150606050615050515060605
+  SetText('123456789ABCDE');
+  AssertEquals('Test for "123456789ABCDE"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,4,0,5,0,4,0,5,1,4,0,4,0,5,0,5,0,5,1,4,0,4,0,4,0,4,0,4,1,5,0,4,0,5,0,5,0,4,1,5,0,4,0,4,0,4,0,5,1,5,0,4,0,4,0,4,0,4,1,4,0,5,0,5,0,5,0,4,1,4,0,5,0,4,0,4,0,5,1,4,0,5,0,4,0,5,0,4,0,4,1,4,0,5,0,4,0,5,0,4,1,4,0,5,0,5,0,5,0,4,1,4,0,4,0,4,0,4,0,5,1,4,0,5,0,5,0,4,0,5,1,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+end;
+
+procedure TTestBarcodes.TestCode39Extended;
+
+begin
+  SetEncoding(be39extended);
+  // 0 --> 51506060505051606050515060605
+  SetText('0');
+  AssertEquals('Test for "0"',[4,1,4,0,5,0,5,0,4,0,4,0,4,1,5,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 1 --> 51506060506051505060515060605
+  SetText('1');
+  AssertEquals('Test for "1"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,4,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 2 --> 51506060505061505060515060605
+  SetText('2');
+  AssertEquals('Test for "2"',[4,1,4,0,5,0,5,0,4,0,4,0,5,1,4,0,4,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 3 --> 51506060506061505050515060605
+  SetText('3');
+  AssertEquals('Test for "3"',[4,1,4,0,5,0,5,0,4,0,5,0,5,1,4,0,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 4 --> 51506060505051605060515060605
+  SetText('4');
+  AssertEquals('Test for "4"',[4,1,4,0,5,0,5,0,4,0,4,0,4,1,5,0,4,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 5 --> 51506060506051605050515060605
+  SetText('5');
+  AssertEquals('Test for "5"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,5,0,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 6 --> 51506060505061605050515060605
+  SetText('6');
+  AssertEquals('Test for "6"',[4,1,4,0,5,0,5,0,4,0,4,0,5,1,5,0,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 7 --> 51506060505051506060515060605
+  SetText('7');
+  AssertEquals('Test for "7"',[4,1,4,0,5,0,5,0,4,0,4,0,4,1,4,0,5,0,5,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 8 --> 51506060506051506050515060605
+  SetText('8');
+  AssertEquals('Test for "8"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 9 --> 51506060505061506050515060605
+  SetText('9');
+  AssertEquals('Test for "9"',[4,1,4,0,5,0,5,0,4,0,4,0,5,1,4,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 1234567800 --> 51506060506051505060506150506060615050505051605060605160505050616050505051506060605150605050516060505051606050515060605
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,4,0,5,0,4,0,5,1,4,0,4,0,5,0,5,0,5,1,4,0,4,0,4,0,4,0,4,1,5,0,4,0,5,0,5,0,4,1,5,0,4,0,4,0,4,0,5,1,5,0,4,0,4,0,4,0,4,1,4,0,5,0,5,0,5,0,4,1,4,0,5,0,4,0,4,0,4,1,5,0,5,0,4,0,4,0,4,1,5,0,5,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+  // 123456789ABCDEwxyz --> 51506060506051505060506150506060615050505051605060605160505050616050505051506060605150605050615060506050515060506051506060605150505050615060605061505051505151506160505050515051515051506050605150515150615060505051505151505160605050515060605
+  SetText('123456789ABCDEwxyz');
+  AssertEquals('Test for "123456789ABCDEwxyz"',[4,1,4,0,5,0,5,0,4,0,5,0,4,1,4,0,4,0,5,0,4,0,5,1,4,0,4,0,5,0,5,0,5,1,4,0,4,0,4,0,4,0,4,1,5,0,4,0,5,0,5,0,4,1,5,0,4,0,4,0,4,0,5,1,5,0,4,0,4,0,4,0,4,1,4,0,5,0,5,0,5,0,4,1,4,0,5,0,4,0,4,0,5,1,4,0,5,0,4,0,5,0,4,0,4,1,4,0,5,0,4,0,5,0,4,1,4,0,5,0,5,0,5,0,4,1,4,0,4,0,4,0,4,0,5,1,4,0,5,0,5,0,4,0,5,1,4,0,4,0,4,1,4,0,4,1,4,1,4,0,5,1,5,0,4,0,4,0,4,0,4,1,4,0,4,1,4,1,4,0,4,1,4,0,5,0,4,0,5,0,4,1,4,0,4,1,4,1,4,0,5,1,4,0,5,0,4,0,4,0,4,1,4,0,4,1,4,1,4,0,4,1,5,0,5,0,4,0,4,0,4,1,4,0,5,0,5,0,4],DoEncode);
+end;
+
+Procedure TTestBarcodes.TestCode128A;
+
+
+begin
+  SetEncoding(be128A);
+  // 0 --> 6053515170615170616270506
+  SetText('0');
+  AssertEquals('Test for "0"',[5,0,4,3,4,1,4,1,6,0,5,1,4,1,6,0,5,1,5,2,6,0,4,0,5],DoEncode);
+  // 1 --> 6053515171605171606270506
+  SetText('1');
+  AssertEquals('Test for "1"',[5,0,4,3,4,1,4,1,6,1,5,0,4,1,6,1,5,0,5,2,6,0,4,0,5],DoEncode);
+  // 2 --> 6053516171506171506270506
+  SetText('2');
+  AssertEquals('Test for "2"',[5,0,4,3,4,1,5,1,6,1,4,0,5,1,6,1,4,0,5,2,6,0,4,0,5],DoEncode);
+  // 3 --> 6053516150716150716270506
+  SetText('3');
+  AssertEquals('Test for "3"',[5,0,4,3,4,1,5,1,4,0,6,1,5,1,4,0,6,1,5,2,6,0,4,0,5],DoEncode);
+  // 4 --> 6053516151706151706270506
+  SetText('4');
+  AssertEquals('Test for "4"',[5,0,4,3,4,1,5,1,4,1,6,0,5,1,4,1,6,0,5,2,6,0,4,0,5],DoEncode);
+  // 5 --> 6053516071516071516270506
+  SetText('5');
+  AssertEquals('Test for "5"',[5,0,4,3,4,1,5,0,6,1,4,1,5,0,6,1,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 6 --> 6053516170516170516270506
+  SetText('6');
+  AssertEquals('Test for "6"',[5,0,4,3,4,1,5,1,6,0,4,1,5,1,6,0,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 7 --> 6053517060707060706270506
+  SetText('7');
+  AssertEquals('Test for "7"',[5,0,4,3,4,1,6,0,5,0,6,0,6,0,5,0,6,0,5,2,6,0,4,0,5],DoEncode);
+  // 8 --> 6053517051617051616270506
+  SetText('8');
+  AssertEquals('Test for "8"',[5,0,4,3,4,1,6,0,4,1,5,1,6,0,4,1,5,1,5,2,6,0,4,0,5],DoEncode);
+  // 9 --> 6053517150617150616270506
+  SetText('9');
+  AssertEquals('Test for "9"',[5,0,4,3,4,1,6,1,4,0,5,1,6,1,4,0,5,1,5,2,6,0,4,0,5],DoEncode);
+  // 1234567800 --> 6053515171606171506150716151706071516170517060707051615170615170617050626270506
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[5,0,4,3,4,1,4,1,6,1,5,0,5,1,6,1,4,0,5,1,4,0,6,1,5,1,4,1,6,0,5,0,6,1,4,1,5,1,6,0,4,1,6,0,5,0,6,0,6,0,4,1,5,1,4,1,6,0,5,1,4,1,6,0,5,1,6,0,4,0,5,2,5,2,6,0,4,0,5],DoEncode);
+  // 123456789ABCD --> 6053515171606171506150716151706071516170517060707051617150615052625250625252605062526170516270506
+  SetText('123456789ABCD');
+  AssertEquals('Test for "123456789ABCD"',[5,0,4,3,4,1,4,1,6,1,5,0,5,1,6,1,4,0,5,1,4,0,6,1,5,1,4,1,6,0,5,0,6,1,4,1,5,1,6,0,4,1,6,0,5,0,6,0,6,0,4,1,5,1,6,1,4,0,5,1,4,0,4,2,5,2,4,2,4,0,5,2,4,2,4,2,5,0,4,0,5,2,4,2,5,1,6,0,4,1,5,2,6,0,4,0,5],DoEncode);
+end;
+
+procedure TTestBarcodes.TestCode128B;
+
+begin
+  SetEncoding(be128B);
+  // 0 --> 6051535170615171606270506
+  SetText('0');
+  AssertEquals('Test for "0"',[5,0,4,1,4,3,4,1,6,0,5,1,4,1,6,1,5,0,5,2,6,0,4,0,5],DoEncode);
+  // 1 --> 6051535171606171506270506
+  SetText('1');
+  AssertEquals('Test for "1"',[5,0,4,1,4,3,4,1,6,1,5,0,5,1,6,1,4,0,5,2,6,0,4,0,5],DoEncode);
+  // 2 --> 6051536171506150716270506
+  SetText('2');
+  AssertEquals('Test for "2"',[5,0,4,1,4,3,5,1,6,1,4,0,5,1,4,0,6,1,5,2,6,0,4,0,5],DoEncode);
+  // 3 --> 6051536150716151706270506
+  SetText('3');
+  AssertEquals('Test for "3"',[5,0,4,1,4,3,5,1,4,0,6,1,5,1,4,1,6,0,5,2,6,0,4,0,5],DoEncode);
+  // 4 --> 6051536151706071516270506
+  SetText('4');
+  AssertEquals('Test for "4"',[5,0,4,1,4,3,5,1,4,1,6,0,5,0,6,1,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 5 --> 6051536071516170516270506
+  SetText('5');
+  AssertEquals('Test for "5"',[5,0,4,1,4,3,5,0,6,1,4,1,5,1,6,0,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 6 --> 6051536170517060706270506
+  SetText('6');
+  AssertEquals('Test for "6"',[5,0,4,1,4,3,5,1,6,0,4,1,6,0,5,0,6,0,5,2,6,0,4,0,5],DoEncode);
+  // 7 --> 6051537060707051616270506
+  SetText('7');
+  AssertEquals('Test for "7"',[5,0,4,1,4,3,6,0,5,0,6,0,6,0,4,1,5,1,5,2,6,0,4,0,5],DoEncode);
+  // 8 --> 6051537051617150616270506
+  SetText('8');
+  AssertEquals('Test for "8"',[5,0,4,1,4,3,6,0,4,1,5,1,6,1,4,0,5,1,5,2,6,0,4,0,5],DoEncode);
+  // 9 --> 6051537150617151606270506
+  SetText('9');
+  AssertEquals('Test for "9"',[5,0,4,1,4,3,6,1,4,0,5,1,6,1,4,1,5,0,5,2,6,0,4,0,5],DoEncode);
+  // 1234567800 --> 6051535171606171506150716151706071516170517060707051615170615170617052606270506
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[5,0,4,1,4,3,4,1,6,1,5,0,5,1,6,1,4,0,5,1,4,0,6,1,5,1,4,1,6,0,5,0,6,1,4,1,5,1,6,0,4,1,6,0,5,0,6,0,6,0,4,1,5,1,4,1,6,0,5,1,4,1,6,0,5,1,6,0,4,2,5,0,5,2,6,0,4,0,5],DoEncode);
+  // 123456789ABCD --> 6051535171606171506150716151706071516170517060707051617150615052625250625252605062527060706270506
+  SetText('123456789ABCD');
+  AssertEquals('Test for "123456789ABCD"',[5,0,4,1,4,3,4,1,6,1,5,0,5,1,6,1,4,0,5,1,4,0,6,1,5,1,4,1,6,0,5,0,6,1,4,1,5,1,6,0,4,1,6,0,5,0,6,0,6,0,4,1,5,1,6,1,4,0,5,1,4,0,4,2,5,2,4,2,4,0,5,2,4,2,4,2,5,0,4,0,5,2,4,2,6,0,5,0,6,0,5,2,6,0,4,0,5],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.TestCode128C;
+
+begin
+  SetEncoding(be128C);
+  // 0 --> 6051716061616161606270506
+  SetText('0');
+  AssertEquals('Test for "0"',[5,0,4,1,6,1,5,0,5,1,5,1,5,1,5,1,5,0,5,2,6,0,4,0,5],DoEncode);
+  // 1 --> 6051716160615151626270506
+  SetText('1');
+  AssertEquals('Test for "1"',[5,0,4,1,6,1,5,1,5,0,5,1,4,1,4,1,5,2,5,2,6,0,4,0,5],DoEncode);
+  // 2 --> 6051716161605152616270506
+  SetText('2');
+  AssertEquals('Test for "2"',[5,0,4,1,6,1,5,1,5,1,5,0,4,1,4,2,5,1,5,2,6,0,4,0,5],DoEncode);
+  // 3 --> 6051715151625251616270506
+  SetText('3');
+  AssertEquals('Test for "3"',[5,0,4,1,6,1,4,1,4,1,5,2,4,2,4,1,5,1,5,2,6,0,4,0,5],DoEncode);
+  // 4 --> 6051715152615161526270506
+  SetText('4');
+  AssertEquals('Test for "4"',[5,0,4,1,6,1,4,1,4,2,5,1,4,1,5,1,4,2,5,2,6,0,4,0,5],DoEncode);
+  // 5 --> 6051715251615162516270506
+  SetText('5');
+  AssertEquals('Test for "5"',[5,0,4,1,6,1,4,2,4,1,5,1,4,1,5,2,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 6 --> 6051715161525261516270506
+  SetText('6');
+  AssertEquals('Test for "6"',[5,0,4,1,6,1,4,1,5,1,4,2,4,2,5,1,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 7 --> 6051715162516151526270506
+  SetText('7');
+  AssertEquals('Test for "7"',[5,0,4,1,6,1,4,1,5,2,4,1,5,1,4,1,4,2,5,2,6,0,4,0,5],DoEncode);
+  // 8 --> 6051715261516152516270506
+  SetText('8');
+  AssertEquals('Test for "8"',[5,0,4,1,6,1,4,2,5,1,4,1,5,1,4,2,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 9 --> 6051716151526251516270506
+  SetText('9');
+  AssertEquals('Test for "9"',[5,0,4,1,6,1,5,1,4,1,4,2,5,2,4,1,4,1,5,2,6,0,4,0,5],DoEncode);
+  // 1234567800 --> 6051715061715250627250606350516061615270606270506
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[5,0,4,1,6,1,4,0,5,1,6,1,4,2,4,0,5,2,6,2,4,0,5,0,5,3,4,0,4,1,5,0,5,1,5,1,4,2,6,0,5,0,5,2,6,0,4,0,5],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.Testbe2of5industrial;
+
+begin
+  SetEncoding(be2of5industrial);
+  // 00 --> 60605050506060505050606050605060
+  SetText('00');
+  AssertEquals('Test for "00"',[5,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,5,0,4,0,5,0],DoEncode);
+  // 11 --> 60605060505050606050505060605060
+  SetText('11');
+  AssertEquals('Test for "11"',[5,0,5,0,4,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,5,0],DoEncode);
+  // 22 --> 60605050605050605060505060605060
+  SetText('22');
+  AssertEquals('Test for "22"',[5,0,5,0,4,0,4,0,5,0,4,0,4,0,5,0,4,0,5,0,4,0,4,0,5,0,5,0,4,0,5,0],DoEncode);
+  // 33 --> 60605060605050506060505050605060
+  SetText('33');
+  AssertEquals('Test for "33"',[5,0,5,0,4,0,5,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,4,0,4,0,5,0,4,0,5,0],DoEncode);
+  // 44 --> 60605050506050605050605060605060
+  SetText('44');
+  AssertEquals('Test for "44"',[5,0,5,0,4,0,4,0,4,0,5,0,4,0,5,0,4,0,4,0,5,0,4,0,5,0,5,0,4,0,5,0],DoEncode);
+  // 55 --> 60605060506050506050605050605060
+  SetText('55');
+  AssertEquals('Test for "55"',[5,0,5,0,4,0,5,0,4,0,5,0,4,0,4,0,5,0,4,0,5,0,4,0,4,0,5,0,4,0,5,0],DoEncode);
+  // 66 --> 60605050606050505060605050605060
+  SetText('66');
+  AssertEquals('Test for "66"',[5,0,5,0,4,0,4,0,5,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,4,0,5,0,4,0,5,0],DoEncode);
+  // 77 --> 60605050505060605050506060605060
+  SetText('77');
+  AssertEquals('Test for "77"',[5,0,5,0,4,0,4,0,4,0,4,0,5,0,5,0,4,0,4,0,4,0,5,0,5,0,5,0,4,0,5,0],DoEncode);
+  // 88 --> 60605060505060506050506050605060
+  SetText('88');
+  AssertEquals('Test for "88"',[5,0,5,0,4,0,5,0,4,0,4,0,5,0,4,0,5,0,4,0,4,0,5,0,4,0,5,0,4,0,5,0],DoEncode);
+  // 99 --> 60605050605060505060506050605060
+  SetText('99');
+  AssertEquals('Test for "99"',[5,0,5,0,4,0,4,0,5,0,4,0,5,0,4,0,4,0,5,0,4,0,5,0,4,0,5,0,4,0,5,0],DoEncode);
+  // 1234567800 --> 6060506050505060506050506060605050505050605060605060505050606050505050506060605050605050506060505050606050605060
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[5,0,5,0,4,0,5,0,4,0,4,0,4,0,5,0,4,0,5,0,4,0,4,0,5,0,5,0,5,0,4,0,4,0,4,0,4,0,4,0,5,0,4,0,5,0,5,0,4,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,4,0,4,0,4,0,4,0,5,0,5,0,5,0,4,0,4,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,4,0,4,0,5,0,5,0,4,0,5,0,4,0,5,0],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.Testbe2of5interleaved;
+
+begin
+  SetEncoding(be2of5interleaved);
+   // 00 --> 50505050616150605
+   SetText('00');
+   AssertEquals('Test for "00"',[4,0,4,0,4,0,4,0,5,1,5,1,4,0,5,0,4],DoEncode);
+   // 11 --> 50506150505061605
+   SetText('11');
+   AssertEquals('Test for "11"',[4,0,4,0,5,1,4,0,4,0,4,0,5,1,5,0,4],DoEncode);
+   // 22 --> 50505061505061605
+   SetText('22');
+   AssertEquals('Test for "22"',[4,0,4,0,4,0,5,1,4,0,4,0,5,1,5,0,4],DoEncode);
+   // 33 --> 50506161505050605
+   SetText('33');
+   AssertEquals('Test for "33"',[4,0,4,0,5,1,5,1,4,0,4,0,4,0,5,0,4],DoEncode);
+   // 44 --> 50505050615061605
+   SetText('44');
+   AssertEquals('Test for "44"',[4,0,4,0,4,0,4,0,5,1,4,0,5,1,5,0,4],DoEncode);
+   // 55 --> 50506150615050605
+   SetText('55');
+   AssertEquals('Test for "55"',[4,0,4,0,5,1,4,0,5,1,4,0,4,0,5,0,4],DoEncode);
+   // 66 --> 50505061615050605
+   SetText('66');
+   AssertEquals('Test for "66"',[4,0,4,0,4,0,5,1,5,1,4,0,4,0,5,0,4],DoEncode);
+   // 77 --> 50505050506161605
+   SetText('77');
+   AssertEquals('Test for "77"',[4,0,4,0,4,0,4,0,4,0,5,1,5,1,5,0,4],DoEncode);
+   // 88 --> 50506150506150605
+   SetText('88');
+   AssertEquals('Test for "88"',[4,0,4,0,5,1,4,0,4,0,5,1,4,0,5,0,4],DoEncode);
+   // 99 --> 50505061506150605
+   SetText('99');
+   AssertEquals('Test for "99"',[4,0,4,0,4,0,5,1,4,0,5,1,4,0,5,0,4],DoEncode);
+   // 1234567800 --> 505060515050616060515051605161505051505061605050616150605
+   SetText('1234567800');
+   AssertEquals('Test for "1234567800"',[4,0,4,0,5,0,4,1,4,0,4,0,5,1,5,0,5,0,4,1,4,0,4,1,5,0,4,1,5,1,4,0,4,0,4,1,4,0,4,0,5,1,5,0,4,0,4,0,5,1,5,1,4,0,5,0,4],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.Testbe2of5matrix;
+
+begin
+  SetEncoding(be2of5matrix);
+  // 00 --> 70505050615050615070505
+  SetText('00');
+  AssertEquals('Test for "00"',[6,0,4,0,4,0,4,0,5,1,4,0,4,0,5,1,4,0,6,0,4,0,4],DoEncode);
+  // 11 --> 70505060506060506070505
+  SetText('11');
+  AssertEquals('Test for "11"',[6,0,4,0,4,0,5,0,4,0,5,0,5,0,4,0,5,0,6,0,4,0,4],DoEncode);
+  // 22 --> 70505051506051506070505
+  SetText('22');
+  AssertEquals('Test for "22"',[6,0,4,0,4,0,4,1,4,0,5,0,4,1,4,0,5,0,6,0,4,0,4],DoEncode);
+  // 33 --> 70505061505061505070505
+  SetText('33');
+  AssertEquals('Test for "33"',[6,0,4,0,4,0,5,1,4,0,4,0,5,1,4,0,4,0,6,0,4,0,4],DoEncode);
+  // 44 --> 70505050606050606070505
+  SetText('44');
+  AssertEquals('Test for "44"',[6,0,4,0,4,0,4,0,5,0,5,0,4,0,5,0,5,0,6,0,4,0,4],DoEncode);
+  // 55 --> 70505060605060605070505
+  SetText('55');
+  AssertEquals('Test for "55"',[6,0,4,0,4,0,5,0,5,0,4,0,5,0,5,0,4,0,6,0,4,0,4],DoEncode);
+  // 66 --> 70505051605051605070505
+  SetText('66');
+  AssertEquals('Test for "66"',[6,0,4,0,4,0,4,1,5,0,4,0,4,1,5,0,4,0,6,0,4,0,4],DoEncode);
+  // 77 --> 70505050516050516070505
+  SetText('77');
+  AssertEquals('Test for "77"',[6,0,4,0,4,0,4,0,4,1,5,0,4,0,4,1,5,0,6,0,4,0,4],DoEncode);
+  // 88 --> 70505060515060515070505
+  SetText('88');
+  AssertEquals('Test for "88"',[6,0,4,0,4,0,5,0,4,1,4,0,5,0,4,1,4,0,6,0,4,0,4],DoEncode);
+  // 99 --> 70505051515051515070505
+  SetText('99');
+  AssertEquals('Test for "99"',[6,0,4,0,4,0,4,1,4,1,4,0,4,1,4,1,4,0,6,0,4,0,4],DoEncode);
+  // 1234567800 --> 70505060506051506061505050606060605051605050516060515050615050615070505
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[6,0,4,0,4,0,5,0,4,0,5,0,4,1,4,0,5,0,5,1,4,0,4,0,4,0,5,0,5,0,5,0,5,0,4,0,4,1,5,0,4,0,4,0,4,1,5,0,5,0,4,1,4,0,4,0,5,1,4,0,4,0,5,1,4,0,6,0,4,0,4],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.TestCode93;
+
+begin
+  SetEncoding(be93);
+  // 0 --> 5050805250515250515250515050805
+  SetText('0');
+  AssertEquals('Test for "0"',[4,0,4,0,7,0,4,2,4,0,4,1,4,2,4,0,4,1,4,2,4,0,4,1,4,0,4,0,7,0,4],DoEncode);
+  // 1 --> 5050805051525051525053505050805
+  SetText('1');
+  AssertEquals('Test for "1"',[4,0,4,0,7,0,4,0,4,1,4,2,4,0,4,1,4,2,4,0,4,3,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 2 --> 5050805052515052515152505050805
+  SetText('2');
+  AssertEquals('Test for "2"',[4,0,4,0,7,0,4,0,4,2,4,1,4,0,4,2,4,1,4,1,4,2,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 3 --> 5050805053505053505350505050805
+  SetText('3');
+  AssertEquals('Test for "3"',[4,0,4,0,7,0,4,0,4,3,4,0,4,0,4,3,4,0,4,3,4,0,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 4 --> 5050805150525150526052505050805
+  SetText('4');
+  AssertEquals('Test for "4"',[4,0,4,0,7,0,4,1,4,0,4,2,4,1,4,0,4,2,5,0,4,2,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 5 --> 5050805151515151516250505050805
+  SetText('5');
+  AssertEquals('Test for "5"',[4,0,4,0,7,0,4,1,4,1,4,1,4,1,4,1,4,1,5,2,4,0,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 6 --> 5050805152505152505062505050805
+  SetText('6');
+  AssertEquals('Test for "6"',[4,0,4,0,7,0,4,1,4,2,4,0,4,1,4,2,4,0,4,0,5,2,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 7 --> 5050805050535050535050625050805
+  SetText('7');
+  AssertEquals('Test for "7"',[4,0,4,0,7,0,4,0,4,0,4,3,4,0,4,0,4,3,4,0,4,0,5,2,4,0,4,0,7,0,4],DoEncode);
+  // 8 --> 5050805251505251505150615050805
+  SetText('8');
+  AssertEquals('Test for "8"',[4,0,4,0,7,0,4,2,4,1,4,0,4,2,4,1,4,0,4,1,4,0,5,1,4,0,4,0,7,0,4],DoEncode);
+  // 9 --> 5050805350505350506061505050805
+  SetText('9');
+  AssertEquals('Test for "9"',[4,0,4,0,7,0,4,3,4,0,4,0,4,3,4,0,4,0,5,0,5,1,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 1234567800 --> 5050805051525052515053505150525151515152505050535251505250515250515150527060505050805
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[4,0,4,0,7,0,4,0,4,1,4,2,4,0,4,2,4,1,4,0,4,3,4,0,4,1,4,0,4,2,4,1,4,1,4,1,4,1,4,2,4,0,4,0,4,0,4,3,4,2,4,1,4,0,4,2,4,0,4,1,4,2,4,0,4,1,4,1,4,0,4,2,6,0,5,0,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 123456789ABCD --> 5050805051525052515053505150525151515152505050535251505350506050526051516052506150515060616151505050805
+  SetText('123456789ABCD');
+  AssertEquals('Test for "123456789ABCD"',[4,0,4,0,7,0,4,0,4,1,4,2,4,0,4,2,4,1,4,0,4,3,4,0,4,1,4,0,4,2,4,1,4,1,4,1,4,1,4,2,4,0,4,0,4,0,4,3,4,2,4,1,4,0,4,3,4,0,4,0,5,0,4,0,4,2,5,0,4,1,4,1,5,0,4,2,4,0,5,1,4,0,4,1,4,0,5,0,5,1,5,1,4,1,4,0,4,0,4,0,7,0,4],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.TestCode93Extended;
+
+begin
+  SetEncoding(be93Extended);
+  // 00 --> 5050805250515250515250515250515050805
+  SetText('00');
+  AssertEquals('Test for "00"',[4,0,4,0,7,0,4,2,4,0,4,1,4,2,4,0,4,1,4,2,4,0,4,1,4,2,4,0,4,1,4,0,4,0,7,0,4],DoEncode);
+  // 11 --> 5050805051525051525053505251505050805
+  SetText('11');
+  AssertEquals('Test for "11"',[4,0,4,0,7,0,4,0,4,1,4,2,4,0,4,1,4,2,4,0,4,3,4,0,4,2,4,1,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 22 --> 5050805052515052515152505060525050805
+  SetText('22');
+  AssertEquals('Test for "22"',[4,0,4,0,7,0,4,0,4,2,4,1,4,0,4,2,4,1,4,1,4,2,4,0,4,0,5,0,4,2,4,0,4,0,7,0,4],DoEncode);
+  // 33 --> 5050805053505053505350505150615050805
+  SetText('33');
+  AssertEquals('Test for "33"',[4,0,4,0,7,0,4,0,4,3,4,0,4,0,4,3,4,0,4,3,4,0,4,0,4,1,4,0,5,1,4,0,4,0,7,0,4],DoEncode);
+  // 44 --> 5050805150525150526052505060615050805
+  SetText('44');
+  AssertEquals('Test for "44"',[4,0,4,0,7,0,4,1,4,0,4,2,4,1,4,0,4,2,5,0,4,2,4,0,4,0,5,0,5,1,4,0,4,0,7,0,4],DoEncode);
+  // 55 --> 5050805151515151516250505060705050805
+  SetText('55');
+  AssertEquals('Test for "55"',[4,0,4,0,7,0,4,1,4,1,4,1,4,1,4,1,4,1,5,2,4,0,4,0,4,0,5,0,6,0,4,0,4,0,7,0,4],DoEncode);
+  // 66 --> 5050805152505152505062505051525050805
+  SetText('66');
+  AssertEquals('Test for "66"',[4,0,4,0,7,0,4,1,4,2,4,0,4,1,4,2,4,0,4,0,5,2,4,0,4,0,4,1,4,2,4,0,4,0,7,0,4],DoEncode);
+  // 77 --> 5050805050535050535050625350505050805
+  SetText('77');
+  AssertEquals('Test for "77"',[4,0,4,0,7,0,4,0,4,0,4,3,4,0,4,0,4,3,4,0,4,0,5,2,4,3,4,0,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 88 --> 5050805251505251505150615061515050805
+  SetText('88');
+  AssertEquals('Test for "88"',[4,0,4,0,7,0,4,2,4,1,4,0,4,2,4,1,4,0,4,1,4,0,5,1,4,0,5,1,4,1,4,0,4,0,7,0,4],DoEncode);
+  // 99 --> 5050805350505350506061505250605050805
+  SetText('99');
+  AssertEquals('Test for "99"',[4,0,4,0,7,0,4,3,4,0,4,0,4,3,4,0,4,0,5,0,5,1,4,0,4,2,4,0,5,0,4,0,4,0,7,0,4],DoEncode);
+  // 1234567800 --> 5050805051525052515053505150525151515152505050535251505250515250515150527060505050805
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[4,0,4,0,7,0,4,0,4,1,4,2,4,0,4,2,4,1,4,0,4,3,4,0,4,1,4,0,4,2,4,1,4,1,4,1,4,1,4,2,4,0,4,0,4,0,4,3,4,2,4,1,4,0,4,2,4,0,4,1,4,2,4,0,4,1,4,1,4,0,4,2,6,0,5,0,4,0,4,0,4,0,7,0,4],DoEncode);
+  // 123456789ABCD --> 5050805051525052515053505150525151515152505050535251505350506050526051516052506150515060616151505050805
+  SetText('123456789ABCD');
+  AssertEquals('Test for "123456789ABCD"',[4,0,4,0,7,0,4,0,4,1,4,2,4,0,4,2,4,1,4,0,4,3,4,0,4,1,4,0,4,2,4,1,4,1,4,1,4,1,4,2,4,0,4,0,4,0,4,3,4,2,4,1,4,0,4,3,4,0,4,0,5,0,4,0,4,2,5,0,4,1,4,1,5,0,4,2,4,0,5,1,4,0,4,1,4,0,5,0,5,1,5,1,4,1,4,0,4,0,4,0,7,0,4],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.TestCodeCodabar;
+
+begin
+  SetEncoding(beCodabar);
+  // 0 --> 50615150505051605151506
+  SetText('0');
+  AssertEquals('Test for "0"',[4,0,5,1,4,1,4,0,4,0,4,0,4,1,5,0,4,1,4,1,4,0,5],DoEncode);
+  // 1 --> 50615150505061505151506
+  SetText('1');
+  AssertEquals('Test for "1"',[4,0,5,1,4,1,4,0,4,0,4,0,5,1,4,0,4,1,4,1,4,0,5],DoEncode);
+  // 2 --> 50615150505150605151506
+  SetText('2');
+  AssertEquals('Test for "2"',[4,0,5,1,4,1,4,0,4,0,4,1,4,0,5,0,4,1,4,1,4,0,5],DoEncode);
+  // 3 --> 50615150615050505151506
+  SetText('3');
+  AssertEquals('Test for "3"',[4,0,5,1,4,1,4,0,5,1,4,0,4,0,4,0,4,1,4,1,4,0,5],DoEncode);
+  // 4 --> 50615150506051505151506
+  SetText('4');
+  AssertEquals('Test for "4"',[4,0,5,1,4,1,4,0,4,0,5,0,4,1,4,0,4,1,4,1,4,0,5],DoEncode);
+  // 5 --> 50615150605051505151506
+  SetText('5');
+  AssertEquals('Test for "5"',[4,0,5,1,4,1,4,0,5,0,4,0,4,1,4,0,4,1,4,1,4,0,5],DoEncode);
+  // 6 --> 50615150515050605151506
+  SetText('6');
+  AssertEquals('Test for "6"',[4,0,5,1,4,1,4,0,4,1,4,0,4,0,5,0,4,1,4,1,4,0,5],DoEncode);
+  // 7 --> 50615150515060505151506
+  SetText('7');
+  AssertEquals('Test for "7"',[4,0,5,1,4,1,4,0,4,1,4,0,5,0,4,0,4,1,4,1,4,0,5],DoEncode);
+  // 8 --> 50615150516050505151506
+  SetText('8');
+  AssertEquals('Test for "8"',[4,0,5,1,4,1,4,0,4,1,5,0,4,0,4,0,4,1,4,1,4,0,5],DoEncode);
+  // 9 --> 50615150605150505151506
+  SetText('9');
+  AssertEquals('Test for "9"',[4,0,5,1,4,1,4,0,5,0,4,1,4,0,4,0,4,1,4,1,4,0,5],DoEncode);
+  // 1234567800 --> 50615150505061505051506061505050506051506050515051505060515060505160505050505160505051605151506
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[4,0,5,1,4,1,4,0,4,0,4,0,5,1,4,0,4,0,4,1,4,0,5,0,5,1,4,0,4,0,4,0,4,0,5,0,4,1,4,0,5,0,4,0,4,1,4,0,4,1,4,0,4,0,5,0,4,1,4,0,5,0,4,0,4,1,5,0,4,0,4,0,4,0,4,0,4,1,5,0,4,0,4,0,4,1,5,0,4,1,4,1,4,0,5],DoEncode);
+  // 123456789ABCD --> 50615150505061505051506061505050506051506050515051505060515060505160505060515050506151505151506050515160505161505151506
+  SetText('123456789ABCD');
+  AssertEquals('Test for "123456789ABCD"',[4,0,5,1,4,1,4,0,4,0,4,0,5,1,4,0,4,0,4,1,4,0,5,0,5,1,4,0,4,0,4,0,4,0,5,0,4,1,4,0,5,0,4,0,4,1,4,0,4,1,4,0,4,0,5,0,4,1,4,0,5,0,4,0,4,1,5,0,4,0,4,0,5,0,4,1,4,0,4,0,4,0,5,1,4,1,4,0,4,1,4,1,4,0,5,0,4,0,4,1,4,1,5,0,4,0,4,1,5,1,4,0,4,1,4,1,4,0,5],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.TestCodeMSI;
+
+begin
+  SetEncoding(beMSI);
+  // 0 --> 605151515151516051515
+  SetText('0');
+  AssertEquals('Test for "0"',[5,0,4,1,4,1,4,1,4,1,4,1,4,1,5,0,4,1,4,1,4],DoEncode);
+  // 1 --> 605151516051515160515
+  SetText('1');
+  AssertEquals('Test for "1"',[5,0,4,1,4,1,4,1,5,0,4,1,4,1,4,1,5,0,4,1,4],DoEncode);
+  // 2 --> 605151605151515151515
+  SetText('2');
+  AssertEquals('Test for "2"',[5,0,4,1,4,1,5,0,4,1,4,1,4,1,4,1,4,1,4,1,4],DoEncode);
+  // 3 --> 605151606060515160515
+  SetText('3');
+  AssertEquals('Test for "3"',[5,0,4,1,4,1,5,0,5,0,5,0,4,1,4,1,5,0,4,1,4],DoEncode);
+  // 4 --> 605160515160515151515
+  SetText('4');
+  AssertEquals('Test for "4"',[5,0,4,1,5,0,4,1,4,1,5,0,4,1,4,1,4,1,4,1,4],DoEncode);
+  // 5 --> 605160516051606060515
+  SetText('5');
+  AssertEquals('Test for "5"',[5,0,4,1,5,0,4,1,5,0,4,1,5,0,5,0,5,0,4,1,4],DoEncode);
+  // 6 --> 605160605151606051515
+  SetText('6');
+  AssertEquals('Test for "6"',[5,0,4,1,5,0,5,0,4,1,4,1,5,0,5,0,4,1,4,1,4],DoEncode);
+  // 7 --> 605160606051605160515
+  SetText('7');
+  AssertEquals('Test for "7"',[5,0,4,1,5,0,5,0,5,0,4,1,5,0,4,1,5,0,4,1,4],DoEncode);
+  // 8 --> 606051515151605151515
+  SetText('8');
+  AssertEquals('Test for "8"',[5,0,5,0,4,1,4,1,4,1,4,1,5,0,4,1,4,1,4,1,4],DoEncode);
+  // 9 --> 606051516051516060515
+  SetText('9');
+  AssertEquals('Test for "9"',[5,0,5,0,4,1,4,1,5,0,4,1,4,1,5,0,5,0,4,1,4],DoEncode);
+  // 1234567800 --> 605151516051516051515160605160515151605160516060515160606060515151515151515151515160515151515
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[5,0,4,1,4,1,4,1,5,0,4,1,4,1,5,0,4,1,4,1,4,1,5,0,5,0,4,1,5,0,4,1,4,1,4,1,5,0,4,1,5,0,4,1,5,0,5,0,4,1,4,1,5,0,5,0,5,0,5,0,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,5,0,4,1,4,1,4,1,4,1,4],DoEncode);
+end;
+
+
+Procedure TTestBarcodes.TestCodePostNet;
+
+begin
+  SetEncoding(bePostNet);
+  // 0 --> 515151A1A1A15
+  SetText('0');
+  AssertEquals('Test for "0"',[4,1,4,1,4,1,8,1,8,1,8,1,4],DoEncode);
+  // 1 --> 51A1A1A151515
+  SetText('1');
+  AssertEquals('Test for "1"',[4,1,8,1,8,1,8,1,4,1,4,1,4],DoEncode);
+  // 2 --> 51A1A151A1515
+  SetText('2');
+  AssertEquals('Test for "2"',[4,1,8,1,8,1,4,1,8,1,4,1,4],DoEncode);
+  // 3 --> 51A1A15151A15
+  SetText('3');
+  AssertEquals('Test for "3"',[4,1,8,1,8,1,4,1,4,1,8,1,4],DoEncode);
+  // 4 --> 51A151A1A1515
+  SetText('4');
+  AssertEquals('Test for "4"',[4,1,8,1,4,1,8,1,8,1,4,1,4],DoEncode);
+  // 5 --> 51A151A151A15
+  SetText('5');
+  AssertEquals('Test for "5"',[4,1,8,1,4,1,8,1,4,1,8,1,4],DoEncode);
+  // 6 --> 51A15151A1A15
+  SetText('6');
+  AssertEquals('Test for "6"',[4,1,8,1,4,1,4,1,8,1,8,1,4],DoEncode);
+  // 7 --> 5151A1A1A1515
+  SetText('7');
+  AssertEquals('Test for "7"',[4,1,4,1,8,1,8,1,8,1,4,1,4],DoEncode);
+  // 8 --> 5151A1A151A15
+  SetText('8');
+  AssertEquals('Test for "8"',[4,1,4,1,8,1,8,1,4,1,8,1,4],DoEncode);
+  // 9 --> 5151A151A1A15
+  SetText('9');
+  AssertEquals('Test for "9"',[4,1,4,1,8,1,4,1,8,1,8,1,4],DoEncode);
+  // 1234567800 --> 51A1A1A15151A1A151A151A1A15151A1A151A1A151A151A151A1A15151A1A151A1A1A15151A1A151A15151A1A1A15151A1A1A15
+  SetText('1234567800');
+  AssertEquals('Test for "1234567800"',[4,1,8,1,8,1,8,1,4,1,4,1,8,1,8,1,4,1,8,1,4,1,8,1,8,1,4,1,4,1,8,1,8,1,4,1,8,1,8,1,4,1,8,1,4,1,8,1,4,1,8,1,8,1,4,1,4,1,8,1,8,1,4,1,8,1,8,1,8,1,4,1,4,1,8,1,8,1,4,1,8,1,4,1,4,1,8,1,8,1,8,1,4,1,4,1,8,1,8,1,8,1,4],DoEncode);
+end;
+{
+BarTypes : TBarTypeParams = (
+);
+
+}
+Class procedure TTestBarcodes.AssertEquals(Msg : String; AExpected,AActual : TBarColor);
+begin
+  AssertEquals(Msg,GetEnumName(TypeInfo(TBarColor),Ord(AExpected)),
+                   GetEnumName(TypeInfo(TBarColor),Ord(AActual)));
+end;
+
+Class procedure TTestBarcodes.AssertEquals(Msg : String; AExpected,AActual : TBarWidth);
+begin
+  AssertEquals(Msg,GetEnumName(TypeInfo(TBarWidth),Ord(AExpected)),
+                   GetEnumName(TypeInfo(TBarWidth),Ord(AActual)));
+end;
+Class procedure TTestBarcodes.AssertEquals(Msg : String; AExpected,AActual : TBarHeight);
+begin
+  AssertEquals(Msg,GetEnumName(TypeInfo(TBarHeight),Ord(AExpected)),
+                   GetEnumName(TypeInfo(TBarHeight),Ord(AActual)));
+end;
+
+// AWidth : TBarWidth; AHeight : TBarheight);
+// AColor : TBarColor; AWidth : TBarWidth; AHeight : TBarheight
+
+procedure TTestBarcodes.AssertParams(aType : TBarType; AColor : TBarColor; AWidth : TBarWidth; AHeight : TBarheight);
+
+Var
+  S : String;
+  P : TBarParams;
+
+begin
+  S:=Format('Bar type %d: ',[aType]);
+  P:=BarTypeToBarParams(aType);
+  AssertEquals(S+'Color',aColor,P.c);
+  AssertEquals(S+'Width',aWidth,P.w);
+  AssertEquals(S+'Height',aHeight,P.h);
+end;
+
+procedure TTestBarcodes.CheckParamsType;
+
+begin
+  AssertParams(0, bcWhite, bw100,  bhFull);
+  AssertParams(1, bcWhite, bw100w, bhFull);
+  AssertParams(2, bcWhite, bw150w, bhFull);
+  AssertParams(3, bcWhite, bw200w, bhFull);
+  AssertParams(4, bcBlack, bw100,  bhFull);
+  AssertParams(5, bcBlack, bw100w, bhFull);
+  AssertParams(6, bcBlack, bw150w, bhFull);
+  AssertParams(7, bcBlack, bw200w, bhFull);
+  AssertParams(8, bcBlack, bw100,  bhTwoFifth);
+  AssertParams(9, bcBlack, bw100w, bhTwoFifth);
+  AssertParams(10, bcBlack, bw150w, bhTwoFifth);
+  AssertParams(11, bcBlack, bw200w, bhTwoFifth);
+end;
+
+procedure TTestBarcodes.CheckNumerictypes;
+begin
+  AssertTrue('Numerical types',NumericalEncodings=[beEAN8,beEAN13,
+    be2of5industrial,be2of5interleaved, be2of5matrix,
+    bePostNet,
+    beMSI,
+    be128C]);
+end;
+
+
+
+initialization
+  RegisterTest(TTestBarcodes);
+end.
+

packages/fcl-image/test/testfpimage.lpi

@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="10"/>
+    <General>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="testfpimage"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="1">
+      <Item1>
+        <PackageName Value="FCL"/>
+      </Item1>
+    </RequiredPackages>
+    <Units Count="3">
+      <Unit0>
+        <Filename Value="testfpimage.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="tcbarcodes.pp"/>
+        <IsPartOfProject Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="../src/fpbarcode.pp"/>
+        <IsPartOfProject Value="True"/>
+      </Unit2>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <Target>
+      <Filename Value="testfpimage"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="../src"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

packages/fcl-image/test/testfpimage.lpr

@@ -0,0 +1,27 @@
+program testfpimage;
+
+{$mode objfpc}{$H+}
+
+uses
+  sysutils,Classes, consoletestrunner, tcbarcodes, fpbarcode, barcode;
+
+type
+
+  { TMyTestRunner }
+
+  TMyTestRunner = class(TTestRunner)
+  protected
+  // override the protected methods of TTestRunner to customize its behavior
+  end;
+
+var
+  Application: TMyTestRunner;
+begin
+  DefaultFormat:=fPlain;
+  DefaultRunAllTests:=true;
+  Application := TMyTestRunner.Create(nil);
+  Application.Initialize;
+  Application.Title := 'FPCUnit Console test runner';
+  Application.Run;
+  Application.Free;
+end.