Generate Barcode in Delphi

Cualquiera que necesite saber cómo generar un código de barras en una aplicación Delphi no necesita buscar más. Barcodesoft Encoder es una solución inteligente y sencilla para generar códigos de barras lineales y bidimensionales en su propia aplicación Delphi.

1. Cree una nueva aplicación VCL Forms. Agregue un TButton y un TMemo.
TMemo puede mostrar códigos de barras 2D porque un código de barras 2D contiene múltiples líneas de texto.

2. Escriba el siguiente comando de DOS para registrar crUFLbcs.dll
regsvr32 crUFLbcs.dll


Si el registro falla, utilice el siguiente comando de DOS para registrarlo.
Regtlibv12 es una utilidad de Windows .NET Framework 2.0.
Regtlibv12 _cruflbcs.tlb

3. Haga clic en el menú Component ==> Import Component, luego elija Type Library y haga clic en el botón Next como se muestra a continuación.
Agregue cruflBCS_TLB en la sección uses antes de agregar el fragmento de código al controlador de eventos onclick de su botón.

Haga clic en el botón Add y elija cruflbcs.dll de la carpeta C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil.
O de la carpeta C:\Program Files (X86)\Common Files\Barcodesoft\FontUtil en sistemas de 64 bits.



Para código de barras lineal:
como code39, code128, GS1-128 (UCC/EAN-128), UPC-A, EAN13, etc. Copie y modifique el siguiente fragmento de código.

Para código de barras 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;


Para código de barras Code128:

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;


Para código de barras 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;


Para código de barras 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;


Para código de barras 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;


Para código de barras 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;


Para código de barras 2D:
como PDF417, Data Matrix, QR Code, Aztec code, MaxiCode y Code16K. Copie y modifique el siguiente fragmento de código.


Para código de barras 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;


Para código de barras 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;



Para código de barras 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;


Para código de barras 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;


Para código de barras 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;


Para código de barras 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;


Puede modificar estos códigos y comenzar a experimentar desde aquí.