BarCode2D4FastReport/untEasyDataMatrix.pas at master · yuchueh/BarCode2D4FastReport · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
{------------------------------------------------------------------------------
//                       HhfComponents For Delphi 7
//                         一轩软研第三方开发包
//                         @Copyright 2009 hehf
//                   ------------------------------------
//
//            本开发包是公司内部使用部分源码来自WWW,作为开发工具使用任何
//       人不得外泄,否则后果自负.
//
//            使用权限以及相关解释请联系何海锋
//
//            让知识转化成财富财富,让鄙视见鬼去
//
//            网站地址：http://www.YiXuan-SoftWare.com
//            电子邮件：hehaifeng1984@126.com
//                      YiXuan-SoftWare@hotmail.com
//            QQ      ：383530895
//            MSN     ：YiXuan-SoftWare@hotmail.com
//
------------------------------------------------------------------------------}
unit untEasyDataMatrix;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Graphics, StdCtrls, Math,
  untEasyECC200, untEasyReedSolomon;

type
  TEasyDataMatrixBarCode = class(TGraphicControl)
  private
    FBitMap: TBitmap;
    FText  : string;
    FGridSize: Integer;
    procedure SetGridSize(const Value: Integer);
    procedure SetText(const Value: string);
  public
    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;
    procedure DrawDataMatrixCode(ACanvas: TCanvas; ARect: TRect);
  protected
    procedure Paint; override;
    procedure GenerateDataMatrixCode(AStr: string; ASize: Integer; ABmp: TBitmap);
  published
    property Text: string read FText write SetText;
    property GridSize: Integer read FGridSize write SetGridSize default 2;
  end;

implementation

{ TEasyDataMatrixBarCode }

constructor TEasyDataMatrixBarCode.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FBitMap := TBitmap.Create;
  FText := '1234567890abcABC';
  GridSize := 2;
end;

destructor TEasyDataMatrixBarCode.Destroy;
begin
  FBitMap.Free;
  inherited Destroy;
end;

procedure TEasyDataMatrixBarCode.DrawDataMatrixCode(ACanvas: TCanvas; ARect: TRect);
begin
  GenerateDataMatrixCode(FText, FGridSize, FBitMap);
  ACanvas.CopyRect(ARect, FBitMap.Canvas, Rect(0, 0, FBitMap.Width, FBitMap.Height));
end;

procedure TEasyDataMatrixBarCode.GenerateDataMatrixCode(AStr: string; ASize: Integer;
  ABmp: TBitmap);
var
  s : TByteArray;
  m : TByteArray;
  i, j: Integer;
  w, h : integer;
  cc: Integer;
begin
  if not Assigned(ABmp) then Exit;
  SetLength(s, Length(AStr));
  for i := 1 to Length(AStr) do
  begin
    s[i-1] := Ord(AStr[i]);
  end;
   CalcECC200(s, ecc200_Autosize, ecc200_Square, m, w, h);
  ABmp.Width := w * ASize;
  ABmp.Height := h * ASize;
  for i := 0 to h - 1 do
  begin
    for j := 0 to w - 1 do
    begin
      cc := m[i * w + j];
      if cc = 1 then
      begin
        ABmp.Canvas.Brush.Color := clBlack;
        ABmp.Canvas.Rectangle(Rect(
                                  j*ASize,
                                  i*ASize,
                                  j*ASize+ASize,
                                  i*ASize+ASize));
      end;
    end;
  end;
end;

procedure TEasyDataMatrixBarCode.Paint;
begin
  inherited;
  GenerateDataMatrixCode(FText, FGridSize, FBitMap);
end;

procedure TEasyDataMatrixBarCode.SetGridSize(const Value: Integer);
begin
  if FGridSize <> Value then
  begin
    FGridSize := Value;
    Invalidate;
  end;
end;

procedure TEasyDataMatrixBarCode.SetText(const Value: string);
begin
  if FText <> Value then
  begin
    FText := Value;
    Invalidate;
  end;
end;

end.