|
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
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 (x86)\Common Files\Barcodesoft\FontUtil dossier.
Ou C:\Program Files(x86)\Common Files\Barcodesoft\FontUtil dossier sur les systèmes 64 bits.
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.
|