VBScript, JavaScript, Lotus Domino, LotusScript
Codici a barre in linguaggi di scripting

È possibile utilizzare ActiveBarcode con VisualBasic-Script (VBS, Windows Script Host) per creare automaticamente codici a barre negli script. Questo esempio mostra quanto sia semplice utilizzare ActiveBarcode in VBS.

Per prima cosa, rendete disponibile il controllo ActiveBarcode nel vostro script:

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

Ora è possibile utilizzare la variabile codice a barre per accedere al controllo.
Utilizzate le Proprietà del controllo per creare il codice a barre desiderato:

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

Quindi utilizzare il metodo SaveAsBySize per salvare il codice a barre in una dimensione specifica in un file immagine:

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

Cliccare qui per scaricare l'esempio precedente come file wsf.

Un esempio molto dettagliato di applicazione VisualBasicScript è l'applicazione console BarcodeImage:

• Progetto open source: BarcodeImage @ GitHub.
• Source code BarcodeImage.wsf.
• Scaricare BarcodeImage.wsf.

Questo codice sorgente può essere utilizzato per imparare a utilizzare il controllo ActiveBarcode in uno script VBS o come base per un proprio script.

Utilizzate il controllo ActiveBarcode con JavaScript per creare un codice a barre:

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

Suggerimento: Un approccio più universale con JavaScript consiste nell'utilizzare l'API REST di ActiveBarcode.

Questo è un esempio di script da eseguire sotto Lotus Domino di IBM come agente 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