|
Cualquier persona que necesite saber cómo generar códigos de barras en las necesidades de aplicaciones de Delphi no busques más. Barcodesoft Encoder es una solución inteligente y sencilla de generar códigos de barras lineales y bidimensionales en su propia aplicación Delphi.
1. Crear una nueva aplicación de formularios VCL. Añadir un TButton y TMemo a.
TMemo es capaz de mostrar códigos de barras 2D código de barras 2D, porque contiene varias líneas de texto.
2. Escriba el siguiente comando de DOS para registrar crUFLbcs.dll
regsvr32 crUFLbcs.dll
Si el registro falla, por favor, 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 Componente menú ==> Componente Import, a continuación, seleccione Biblioteca de tipos y haga click en Siguiente, como se muestra a continuación.
Añadir cruflBCS_TLB utiliza en sección antes de añadir fragmentos de código al controlador de botón evento onclick.
Haga clic en el botón Agregar y seleccione cruflbcs.dll de C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil carpeta.
O C:\Program Files (x86)\Common Files(x86)\Barcodesoft\FontUtil carpeta en 64-bits.
Porque código de barras lineal:
como Code39, Code128, GS1-128 (UCC/EAN-128), UPC-A, EAN 13, etc Por favor, copie y modifique el siguiente fragmento de código.
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:
tales como PDF417, Data Matrix, QR Code, código azteca, MaxiCode y Code16K. Por favor, copie y modifique el siguiente fragmento de código.
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;
Puede modificar estos códigos y empezar a jugar desde aquí.
|