Delphi
Barcodes in Delphi projecten

Barcodes gebruiken in Delphi

Delphi 2005, 2006, 2007, 2009, 2010, XE, XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio

Je kunt ActiveBarcode in Delphi gebruiken als elk ander besturingselement (bijvoorbeeld als een knop). Eerst moet je het ActiveBarcode-besturingselement toevoegen aan de Delphi-ontwikkelomgeving.

Maak een nieuw project: Bestand - Nieuw - VCL Forms Toepassing.:

Om ActiveBarcode op een formulier te plaatsen selecteer je de ActiveBarcode Control uit het gereedschapspalet. Deze vind je onder ActiveX als TBarcode component:

Selecteer TBarcode en plaats het component op het formulier. Helaas voegt Delphi het barcode-object toe met een zwarte achtergrondkleur.

Maar geen probleem, we lossen dit gewoon op. In de object inspector kun je de eigenschappen van het component aanpassen. Dus stel de achtergrondkleur in op wit.

Voila, het barcode-object ziet er nu goed uit:

In dit voorbeeld voegen we nog een besturingselement, een TEdit, toe aan het formulier. Nu zou je formulier er als volgt uit kunnen zien:

Vervolgens koppelen we het bewerkingsveld rechtstreeks aan het besturingselement. Open de broncode voor de gebeurtenis TextChange door te dubbelklikken op het bewerkingsveld. Deze gebeurtenis wordt altijd aangeroepen als de inhoud van het bewerkingsveld is gewijzigd. Ideaal voor ons voorbeeld. We geven deze update onmiddellijk door aan de besturing.

Gereed! Start nu de toepassing en wijzig de inhoud van het bewerkingsveld om de streepjescode te wijzigen.

Codeervoorbeelden

Het instellen van eigenschappen is heel eenvoudig.

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

De afbeeldingseigenschap gebruiken
Kopieer de barcode naar een afbeeldingsobject:

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);

Het klembord gebruiken
Kopieer de huidige barcode naar het klembord als een vectorafbeelding (WMF):

  Barcode1.CopyToClipboard;

Kopieer de huidige barcode naar het klembord als een bitmap (BMP):

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);
Clipboard.Assign(Image1.Picture.Bitmap);