support
delphi barcode Access database downlaod

Generate Barcode in Delphi


Toute personne qui a besoin de savoir comment générer des codes à barres dans les besoins des applications Delphi cherchez pas plus loin. Barcodesoft Encoder est une solution intelligente et simple pour générer des codes à barres linéaires et bidimensionnels dans votre propre application Delphi.

1. Créer une nouvelle application Fiches VCL. Ajouter un TButton et un TMemo.
TMemo est capable d'afficher de code à barres 2D parce codes à barres 2D contient plusieurs lignes de textes.

2. Tapez la commande DOS suivante pour enregistrer crUFLbcs.dll

regsvr32 crUFLbcs.dll


code à barres delphi

Si l'enregistrement échoue, s'il vous plaît utiliser la commande DOS suivante pour l'enregistrer.
Regtlibv12 est un utilitaire de Windows. NET Framework 2.0.

Regtlibv12 _cruflbcs.tlb



3. Cliquez sur le menu Composant == Component> Importer, puis choisissez Bibliothèque Type et cliquez sur le bouton Suivant, comme indiqué ci-dessous.
Ajouter cruflBCS_TLB en utilisant section avant de fragment de code ajouter à votre gestionnaire d'événement onclick bouton.

Cliquez sur le bouton Ajouter et choisissez cruflbcs.dll à partir de C:\Program Files\Common Files\Barcodesoft\FontUtil dossier.
Ou C:\Program Files(x86)\Common Files\Barcodesoft\FontUtil dossier sur les systèmes 64 bits.

code à barres delphi

Pour codes à barres linéaires:


tels que code39, code128, GS1-128 (UCC/EAN-128), UPC-A, EAN13, etc S'il vous plaît copier et de modifier le code suivant.

For Code39 Barcode:



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;


For GS1-128 Barcode:



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;


For UPCA Barcode:



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;


For Intelligent Mail Barcode:



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;


For GS1-Databar Barcode:



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;


For 2D Barcode:


such as PDF417, Data Matrix, QR Code, Aztec code, MaxiCode and Code16K. Please copy and modify the following code snippet.


For PDF417 barocde:



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;


For Data Matrix barcode:



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;



For QR Code barcode:



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;


For Aztec Barcode:



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;


For MaxiCode Barcode:



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;


For Code16K Barcode:



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;


Vous pouvez modifier ces codes et commencer à jouer autour d'ici.