VBScript, JavaScript, Lotus Domino, LotusScript
Barcodes in Skriptsprachen

Sie können ActiveBarcode mit VisualBasic-Script (VBS, Windows Script Host) verwenden, um Barcodes in Skripten automatisch zu erstellen. Dieses Beispiel zeigt, wie einfach es ist, ActiveBarcode in VBS zu verwenden.

Machen Sie zunächst das ActiveBarcode-Steuerelement in Ihrem Skript verfügbar:

  Dim barcode
  Set barcode = WScript.CreateObject("ACTIVEBARCODE.BarcodeCtrl.1")

Jetzt können Sie die Variable Barcode verwenden, um auf das Steuerelement zuzugreifen.
Verwenden Sie die Eigenschaften des Steuerelements, um den gewünschten Strichcode zu erstellen:

  barcode.Typename = "Code128"
  barcode.Text = "123456789012"

Verwenden Sie dann die Methode SaveAsBySize, um den Barcode in einer bestimmten Größe in einer Bilddatei zu speichern:

  barcode.SaveAsBySize "beispielbarcode.png",400,200

Klicken Sie hier, um das obige Beispiel als wsf-Datei herunterzuladen.

Ein sehr ausführliches Beispiel für eine VisualBasicScript-Anwendung ist die Konsolenanwendung BarcodeImage:

• Open-Source-Projekt: BarcodeImage @ GitHub.
• Source code BarcodeImage.wsf.
• Download BarcodeImage.wsf.

Sie können diesen Quellcode verwenden, um zu lernen, wie man das ActiveBarcode Control in einem VBS-Skript verwendet, oder Sie können ihn als Grundlage für Ihr eigenes Skript verwenden.

Verwenden Sie das ActiveBarcode-Steuerelement mit JavaScript, um einen Barcode zu erstellen:

  // Create the control:
  ab = new ActiveXObject("ACTIVEBARCODE.BarcodeCtrl.1");
  
  // Set the barcode type and content:
  ab.text = "Example";
  ab.typename = "Code 128";
  
  // Save the barcode as image file:
  ab.SaveAsBySize("example.bmp", 400, 100);
  

Hinweis: Ein universellerer Ansatz mit JavaScript ist die Verwendung der ActiveBarcode REST API.

Dies ist ein Beispiel für ein Skript, das unter Lotus Domino von IBM als LotusScript-Agent ausgeführt werden kann:

Option Public
Option Declare
  
Sub Initialize()
  Dim MyObject As variant
  Set MyObject = CreateObject("ACTIVEBARCODE.BarcodeCtrl.1")
  MyObject.text = "Example"
  MyObject.typename = "Code 128"
  MyObject.SaveAsBySize "c:\example.bmp", 400, 100
End Sub