Delphi 4-7
Codici a barre nei progetti Delphi

Come utilizzare i codici a barre in Delphi
Version 4.x, 7.x

È possibile utilizzare ActiveBarcode in Delphi come qualsiasi altro controllo (ad esempio, come un pulsante). In primo luogo è necessario aggiungere il controllo ActiveBarcode nell'ambiente di sviluppo Delphi. Vai al menu "Componente" e seleziona la funzione "Importa controllo ActiveX":

Sullo schermo viene visualizzata una finestra di dialogo. Selezionare "ActiveBarcode" dall'elenco di controlli. Quindi fare clic su "Installa..." abbottonare:

Seguire le istruzioni visualizzate sullo schermo.

Ora il controllo ActiveBarcode viene aggiunto all'ambiente di sviluppo Delphi. Le icone dei codici a barre di ActiveBarcode appariranno nella barra degli strumenti situata in "ActiveX":

Ora selezionare questa icona e posizionarla in qualsiasi punto in un modulo. Il controllo del codice a barre verrà inserito in tale forma. Questo sarà un codice a barre standard. È possibile modificare questa e tutte le altre proprietà di tale controllo codice a barre in "Controllo oggetti".

Ad esempio, è possibile selezionare qualsiasi codice a barre supportato da ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18, ...

Programmazione:
Impostare le proprietà è molto semplice. Alcuni esempi:

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

Using the Picture Property:
How to copy the barcode image into a image object:

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:
How to copy a barcode into the Windows clipboard. First as meta file (WMF):

  Barcode1.CopyToClipboard;

And now as bitmap image:

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.PictureAdapter := nil;  // delphi workaround
Barcode1.Picture.CleanupInstance;
Clipboard.Assign(Image1.Picture.Bitmap);