VBScript, JavaScript, Lotus Domino, LotusScript
Kody kreskowe w językach skryptowych

Jak używać kodów kreskowych w VBScript (Host skryptów Windows)

ActiveBarcode można używać z VisualBasic-Script (VBS, Windows Script Host) do automatycznego tworzenia kodów kreskowych w skryptach. Ten przykład pokazuje, jak proste jest korzystanie z ActiveBarcode w VBS.

Najpierw należy udostępnić kontrolkę ActiveBarcode w skrypcie:

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

Teraz można użyć zmiennej barcode, aby uzyskać dostęp do kontrolki.
Użyj właściwości kontrolki, aby utworzyć żądany kod kreskowy:

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

Następnie użyj metody SaveAsBySize, aby zapisać kod kreskowy w określonym rozmiarze w pliku graficznym:

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

Kliknij tutaj, aby pobrać powyższy przykład jako plik wsf.

Bardzo szczegółowym przykładem aplikacji VisualBasicScript jest aplikacja konsolowa BarcodeImage:

Projekt Open Source: BarcodeImage @ GitHub.
Source code BarcodeImage.wsf.
Pobierz BarcodeImage.wsf.

Możesz użyć tego kodu źródłowego, aby dowiedzieć się, jak używać kontrolki ActiveBarcode w skrypcie VBS lub możesz użyć go jako podstawy własnego skryptu.

Jak używać obiektu kodu kreskowego w JavaScript

Ta funkcja jest przestarzała.
Zamiast tego prosimy o migrację do ActiveBarcode REST API.

Użyj kontrolki ActiveBarcode z JavaScript, aby utworzyć kod kreskowy:

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

Używanie kontrolki kodu kreskowego w agencie LotusScript

Jest to przykład skryptu uruchamianego w Lotus Domino IBM jako agent LotusScript:

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