Professionelle Barcode-Generierung in Delphi

Ein umfassender Leitfaden zur Integration von linearen und 2D-Barcodes in Ihre VCL-Anwendungen.

Bereit zum Starten?

Laden Sie die Barcodesoft Encoder Delphi-Komponenten herunter.

Delphi Barcode Access Datenbank Download

Entwickler, die nach einer robusten Methode suchen, um Barcodes in Delphi zu generieren, sind hier genau richtig. Der Barcodesoft Encoder bietet eine intelligente und leistungsstarke Lösung zur Erstellung von linearen (1D) und zweidimensionalen (2D) Barcodes direkt in Ihren nativen Delphi-Anwendungen.

1 Umgebung vorbereiten

Erstellen Sie eine neue VCL-Formularanwendung. Fügen Sie einen TButton und ein TMemo hinzu. Ein TMemo ist für 2D-Barcodes wie QR-Codes unerlässlich, da diese oft mehrere Zeilen kodierten Text enthalten.

2 Encoder-DLL registrieren

Führen Sie den folgenden DOS-Befehl aus, um die Komponente zu registrieren:

regsvr32 crUFLbcs.dll
Barcode Delphi

Profi-Tipp: Falls die Registrierung fehlschlägt, nutzen Sie das .NET Framework Dienstprogramm: Regtlibv12 _cruflbcs.tlb

3 Komponente importieren

  1. Gehen Sie zu Component → Import Component.
  2. Wählen Sie Type Library und klicken Sie auf Weiter.
  3. Fügen Sie cruflBCS_TLB zu Ihrem uses-Abschnitt hinzu.
  4. Wählen Sie die DLL aus dem Ordner C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil.
Delphi Barcode

Implementierungsbeispiele

Lineare Barcodes (1D)

Unterstützt Code39, Code128, GS1-128, UPC-A und EAN13.

// Code 39 Implementierung

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;

Fortgeschrittene 2D-Barcodes

Integrieren Sie PDF417, Data Matrix, QR Code, Aztec und MaxiCode.

// QR Code Implementierung

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;

// Data Matrix Implementierung

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;