VBScript, JavaScript, Lotus Domino, LotusScript
Codes-barres dans les langages de script

Vous pouvez utiliser ActiveBarcode avec VisualBasic-Script (VBS, Windows Script Host) pour créer automatiquement des codes-barres dans des scripts. Cet exemple montre à quel point il est simple d'utiliser ActiveBarcode dans VBS.

Mettez d'abord le contrôle ActiveBarcode à disposition dans votre script :

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

Vous pouvez maintenant utiliser la variable barcode pour accéder au contrôle.
Utilisez les Propriétés du contrôle pour créer le code-barres que vous souhaitez :

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

Utilisez ensuite la méthode SaveAsBySize pour enregistrer le code-barres dans un fichier image d'une taille spécifique :

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

Cliquez ici pour télécharger l'exemple ci-dessus en tant que fichier wsf.

Un exemple très détaillé d'application VisualBasicScript est l'application console BarcodeImage :

• Projet Open Source: BarcodeImage @ GitHub.
• Source code BarcodeImage.wsf.
• Télécharger BarcodeImage.wsf.

Vous pouvez utiliser ce code source pour apprendre à utiliser le contrôle ActiveBarcode dans un script VBS ou vous pouvez l'utiliser comme base pour votre propre script.

Utilisez le contrôle ActiveBarcode avec JavaScript pour créer un code-barres :

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

Indice : Une approche plus universelle avec JavaScript consiste à utiliser l'API REST d'ActiveBarcode.

Il s'agit d'un exemple de script à exécuter sous Lotus Domino d'IBM en tant qu'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