Delphi - Barcodes in Projekten

So verwenden Sie einen Barcode in Delphi (bis Version 7)

Sie können ActiveBarcode in Delphi wie jedes andere Steuerelement (z.B, ein Button) verwenden. Dafür fügen Sie zunächst das ActiveBarcode Steuelement in die Delphi Entwicklungsumgebung ein. Wählen Sie über das Menü "Komponente" die Funktion "ActiveX importieren...":

Folgender Dialog erscheint. Wählen Sie hier aus der Liste der Steuerelemente "ActiveBarcode" aus und klicken Sie auf den "Installieren" Knopf.

Folgen Sie dann den Anweisungen von Delphi.

Nun ist ActiveBarcode in die Entwicklungsumgebung von Delphi integriert. Sie finden das Barcode Steuerlement in der Steueleelementeleiste unter "ActiveX":

Wählen Sie nun das Barcode Steuerelement aus und platzieren Sie diesen einfach in einer Form. Nun wird das Barcode Steuerelement in Ihrer Form erstellt. Dabei handelt es sich um einen Standardbarcode. Den Barcodetyp, wie auch alle anderen Eigenschaften des Barcodes können Sie einfach über den Objektinspektor einstellen, genauso wie Sie es von anderen Steuerelementen gewohnt sind.

Beispielsweise können Sie jeden von ActiveBarcode unterstützten Barcodetyp auswählen: Codabar, Code 25 Industrial, Code 25 Interleaved, Code 39, Code 39 Extended, Code 93, Code 93 Extended, Code 128, Data Matrix, DUN-14, EAN-2, EAN-5, EAN-8, EAN-13, EAN-14, EAN-18, EAN-99, EAN-128, EAN-Velocity, GS1-128, GTIN, Identcode, ISBN-10, ISBN-13, ISBN-13 Dual, Bookland, ISSN, ISMN, ITF-14, JAN, Leitcode, MSI, NVE, PDF417, PostNet, PZN, Royal Mail SCC-14, SSCC-18, UCC-128, UPC-A und UPC-E

Programmierung:
Das setzen der Properties ist sehr einfach. Hier einige Beispiele

Barcode1.Text := '123456789012';
Barcode1.BackColor := clWhite;
Barcode1.ForeColor := clBlack;

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.PictureAdapter := nil;  // delphi workaround
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);

  Barcode1.CopyToClipboard;

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.PictureAdapter := nil;  // delphi workaround
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);
Clipboard.Assign(Image1.Picture.Bitmap);