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;
Die Picture Property verwenden:
So kopieren Sie sich den Barcode als Bitmap in ein Image Objekt:
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);
Zwischenablage:
So kopieren Sie den aktuellen Barcode in die Zwischenablage. Zunächst als Metadatei (WMF):
Barcode1.CopyToClipboard;
Und nun als Bitmap:
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);
|