VBScript, JavaScript, Lotus Domino, LotusScript
Códigos de barras em linguagens de script

Pode utilizar o ActiveBarcode com o VisualBasic-Script (VBS, Windows Script Host) para criar automaticamente códigos de barras em scripts. Este exemplo mostra como é simples utilizar o ActiveBarcode em VBS.

Primeiro, disponibilize o controlo ActiveBarcode no seu script:

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

Agora pode utilizar a variável barcode para aceder ao controlo.
Utilize as Properties do controlo para criar o código de barras pretendido:

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

Em seguida, utilize o método SaveAsBySize para guardar o código de barras num tamanho específico para um ficheiro de imagem:

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

Clique aqui para descarregar o exemplo acima como um ficheiro wsf.

Um exemplo muito detalhado de uma aplicação VisualBasicScript é a aplicação de consola BarcodeImage:

• Projeto de código aberto: BarcodeImage @ GitHub.
• Source code BarcodeImage.wsf.
• Baixar BarcodeImage.wsf.

Pode utilizar este código fonte para aprender a utilizar o Controlo ActiveBarcode num script VBS ou pode utilizá-lo como base para o seu próprio script.

Utilize o controlo ActiveBarcode com JavaScript para criar um código de barras:

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

Dica: Uma abordagem mais universal com JavaScript é utilizar a API REST do ActiveBarcode.

Este é um exemplo de script para ser executado no Lotus Domino da IBM como um 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