Delphi
Streckkoder i Delphi-projekt

Hur man använder streckkoder i 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

Du kan använda ActiveBarcode i Delphi precis som vilken annan kontroll som helst (t.ex. en knapp). Först måste du lägga till ActiveBarcode-kontrollen i Delphi-utvecklingsmiljön.

Skapa ett nytt projekt: Arkiv - Ny - VCL Forms-applikation:




För att placera ActiveBarcode på ett formulär väljer du ActiveBarcode Control från verktygspaletten. Du hittar detta under ActiveX som en TBarcode- komponent:




Välj TBarcode och placera komponenten på formuläret. Tyvärr lägger Delphi till streckkodsobjektet med en svart bakgrundsfärg.




Men det är inget problem, vi fixar det enkelt. I objektinspektören kan du anpassa komponentens egenskaper. Ställ in bakgrundsfärgen till vit.




Voilà, streckkodeobjektet ser bra ut nu:




I det här exemplet lägger vi till ytterligare en kontroll, en TEdit, till formuläret. Nu kan ditt formulär se ut så här:




Därefter kopplar vi redigeringsfältet direkt till kontrollen. Öppna källkoden för händelsen TextChange genom att dubbelklicka på redigeringsfältet. Denna händelse utlöses alltid när innehållet i redigeringsfältet ändras. Det är idealiskt för vårt exempel. Vi vidarebefordrar denna uppdatering omedelbart till kontrollen.




Klart! Starta nu applikationen och ändra innehållet i redigeringsfältet för att ändra streckkoden.




Kodningsexempel

Det är mycket enkelt att ställa in egenskaper.

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

Använda bildegenskapen
Kopiera streckkoden till ett bildobjekt:

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);

Använda urklipp
Kopiera den aktuella streckkoden till urklipp som vektorgrafik (WMF):

  Barcode1.CopyToClipboard;

Kopiera den aktuella streckkoden till urklipp som en bitmapp (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);