Delphi - Barcodes in Projekten

So verwenden Sie einen Barcode in Delphi

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.

ActiveBarcode in die Entwicklungsumgebung einbinden
(für eine Beschreibung für ältere Delphi Versionen (4-7) klicken Sie hier)

Wählen Sie hierzu ein Package aus, in welches Sie den Control aufnehmen möchten oder erstellen Sie über "Datei" - "Neu" - "Package Delphi für Win32" ein neues Package:

Speichern Sie dieses Package unter einem eigenen Namen mit der "Speicher unter" Funktion. Zum Beispiel als "ActiveBarcodePackage".

Nun fügen importieren Sie den ActiveBarcode Control in das Package. Rufen Sie hier die Funktion "Komponente importieren" aus dem Menü "Komponente" auf.

Der "Komponenten Importieren" Dialog erscheint:

Wählen Sie hier "ActiveX Steuerelement" und klicken Sie auf "Weiter". Ihnen wird nun die Liste der verfügbaren Steuerelemente angezeigt:

Wählen Sie hier aus der Liste der Steuerelemente "ActiveBarcode" aus und klicken Sie auf den "Weiter" Knopf. Es erscheint die Seite für die Komponenteneinstellungen:

Hier können Sie u.a. die Palettenseite usw. festlegen. Klicken Sie dann auf "Weiter". Die Seite "Installieren" wird angezeigt.

Wählen Sie hier "Unit dem Projekt ... hinzufügen" und klicken Sie auf "Fertig stellen". ActiveBarcode ist nun als Komponente dem Package hinzugefügt. Nun müssen Sie das Package noch compilieren. Wählen Sie hier die Funktion "ActiveBarcodePackage erzeugen" aus dem Menü "Projekt":

ActiveBarcode verwenden (Beispiel)

Erstellen Sie ein neues Projekt: "Datei" - "Neu" - "VCL Formularanwendung". Um nun ActiveBarcode auf einer Form zu platzieren wählen Sie aus der Tool-Palette den ActiveBarcode Control. Sie finden diesen unter "ActiveX" als "TBarcode" Komponente:

Wählen Sie TBarcode aus und platzieren Sie die Komponenten dann auf der Form. Im Objektinspektor können Sie nun die Eigenschaften der Komponente anpassen. Stellen Sie z.B. die Hintergrundfarbe auf Weiß.

Fügen Sie nun (für dieses Beispiel) noch ein TEdit zur Form hinzu. Ihre Form dürfte nun in etwa so aussehen:

Das Eingabefeld "verknüpfen" wir nun direkt mit dem Control. Mit einem Doppelklick auf das Eingabefeld öffnen Sie den Sourcecode für die Form direkt in dem Event für "Textchange". Dieser Event wird immer aufgerufen, wenn der Inhalt des Eingabefeldes geändert wird. Ideal für unser Vorhaben. Diese Änderung geben wir sofort weiter an den Control.

Fertig. Starten Sie nun die eben erstellte Beispielanwendung:

Wenn Sie den Inhalt der Textbox nun ändern, wird der Text sofort als Barcode codiert.

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