Generación profesional de códigos de barras en Delphi

Una guía completa para integrar códigos de barras lineales y 2D en sus aplicaciones VCL.

¿Listo para comenzar?

Descargue los componentes de Delphi para Barcodesoft Encoder.

descarga de base de datos Access de código de barras delphi

Los desarrolladores que buscan una forma sólida de generar códigos de barras en Delphi han llegado al lugar indicado. Barcodesoft Encoder es una solución inteligente y sencilla para generar códigos de barras lineales (1D) y bidimensionales (2D) dentro de su propia aplicación nativa Delphi.

1 Prepare su entorno

Cree una nueva aplicación VCL Forms. Añada un TButton y un TMemo. El TMemo es capaz de mostrar códigos de barras 2D porque estos contienen múltiples líneas de texto.

2 Registre la DLL del codificador

Ejecute el siguiente comando de DOS para registrar el componente:

regsvr32 crUFLbcs.dll
código de barras delphi

Consejo profesional: Si el registro falla, utilice la utilidad de Windows .NET Framework: Regtlibv12 _cruflbcs.tlb

3 Importe el componente

  1. Vaya al menú Component → Import Component.
  2. Elija Type Library y haga clic en el botón Next.
  3. Añada cruflBCS_TLB en la sección uses.
  4. Seleccione la DLL desde la carpeta C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil.
código de barras delphi

Ejemplos de implementación

Códigos de barras lineales (1D)

Soporte para Code39, Code128, GS1-128, UPC-A, y EAN13.

// Implementación Code 39

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;

// GS1-128 (UCC/EAN-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;

Códigos de barras 2D avanzados

Integre PDF417, Data Matrix, QR Code, Aztec y MaxiCode.

// Implementación de 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;

// Implementación de 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;