|
希望在Delphi 应用程式中产生 barcode in Delphi 的朋友不需要再寻找其他解决方案了. Barcodesoft 的方案聪明而简单的， 可以产生现行和二维条形码。
1. 新建一个 VCL Forms 程式. 加入一个 TButton 和一个 TMemo.
TMemo 可以显示二维条形码， 因为二维条形码包含有多行字符串.
2. 打開 DOS 提示。 如果你使用 Windows 10 或者 Windows 7, 请以管理员的身份打开 DOS 提示。
請用管理者權限打開DOS 提示。
進入以下目錄
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
輸入以下dos命令用於登記 crUFLbcs.dll
regsvr32 crUFLbcs.dll
如果登記失敗，請使用以下命令重新登記。
Regtlibv12 是Windows .NET Framework 2.0中的一個工具。
Regtlibv12 _cruflbcs.tlb
3. 点击菜单 Component ==> Import Component, 然后选择类库再点击 Next 按钮， 如下所示.
Add cruflBCS_TLB in uses section before add code snippet to your button onclick event handler.
点击 Add 按钮并且从以下文件夹中选择 cruflbcs.dll
C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil .
或者是64位的系统上 C:\Program Files (X86)\Common Files\Barcodesoft\FontUtil.
线形条码:
比如code39, code128, GS1-128 (UCC/EAN-128), UPC-A, EAN13 等。请拷贝并且修改以下代码段。
Code39 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.Code39('BARCODE DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'Code39mHr';
end;
For Code128 Barcode:
procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.Code128A('BARCODE DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'Code128AmHr';
end;
GS1-128 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.UCCEAN128('011234567890123456');
Memo1.Text := str;
Memo1.Font.Name := 'Code128m';
end;
UPCA 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.UPCA('12345678901');
Memo1.Text := str;
Memo1.Font.Name := 'UpcEanM';
end;
Intelligent Mail 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.IM('Intelligent Mail BARCODE DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'BcsIM';
end;
GS1-Databar 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I :IDatabar;
str : WideString;
begin
I := CoCDatabar.Create;
str := I.Databar14('GS1-Databar DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'BcsDatabarM';
end;
二维条形码:
比如 PDF417, Data Matrix, QR Code, Aztec code, MaxiCode 或者 Code16K. 请拷贝并且修改以下代码段。
PDF417 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I : IPDF417;
str : WideString;
begin
I := CoCPDF417.Create;
str := I.Encode('PDF417 Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsPdf417';
end;
Data Matrix 条形码:
procedure TForm1.Button1Click(Sender: TObject);
var
I : IDataMatrix;
str : WideString;
begin
I := CoCDataMatrix.Create;
str := I.Encode('Delphi Data Matrix Barcode');
Memo1.Text := str;
Memo1.Font.Name := 'BcsDatamatrix';
end;
QR Code 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I : IQRCode;
str : WideString;
begin
I := CoCQrcode.Create;
str := I.Encode('QRCode Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsQrcode';
end;
Aztec 条形码:
procedure TForm1.Button1Click(Sender: TObject);
var
I : IAztec;
str : WideString;
begin
I := CoCAztec.Create;
str := I.Encode('Aztecd Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsAztec';
end;
MaxiCode 条码:
procedure TForm1.Button1Click(Sender: TObject);
var
I : IBCSMaxiCode;
str : WideString;
begin
I := CoCMaxiCode.Create;
str := I.Encode('Maxicode Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsMaxicode';
end;
Code16K 条形码:
procedure TForm1.Button1Click(Sender: TObject);
var
I : ICode16K;
str : WideString;
begin
I := CoCCode16K.Create;
str := I.Encode('Code16K Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'Code16Km';
end;
用户可以自行修改以上代码，从而嵌入自己的应用程式.
|