Функции ABarCode-ActiveX

object.AboutBox()

Не возвращает значение.

object.ShowProperties()

Не возвращает значение.

object.SaveToImageFile(cx, cy, sFileName, [lRes,] [dm])

cx	Вещественное значение определяет ширину картинки штрихкода.
cy	Вещественное значение определяет высоту картинки штрихкода.
sFileName	Строка определяет имя файла.
lRes	Необязательное (по умолчанию 0). Определяет разрешение картинки.
dm	Необязательное (по умолчанию dmPixels). Определяет единицы измерения, которые используются для задания cx и cy. См. Примечание.

Не возвращает значение.

Формат, в котором будет сохранен файл зависит от расширения имени файла. Например, если задать sFileName как "img1.jpg", то штрихкод будет сохранен в JPEG.
Допускаются такие расширения - "wmf", "emf", "bmp", "jpg", "jpeg", "gif", "tiff", "png".

Параметр dm parameter может иметь следующие значения:
dmMils = 0, mils(0.001 inches)
dmInches = 1, inches
dmMM = 2, millimeters
dmPixels = 3, pixels

Если размер изображения (cx, cy) задается не в пикселах, его реальный размер будет вычисляться использую разрешение картинки - lRes.

Внимание! Для нормальной работы этой функции необходимо наличие библиотеки GDI+ (gdiplus.dll) на вашем PC, эта библиотека поставляется в составе Windows XP и выше. Если у вас нет такой библиотеки, то вы можете загрузить ее здесь, а затем скопировать ее в папку ../Windows/System32/.

'1.
'Сохранить изображение в файл формата JPEG. Размер изображения будет 200x100 пикселов с разрешением 96 dpi.
Call ActiveBC1.SaveToImageFile(200, 100, "c:\barcode.jpg")

'2.
'Сохранить изображение в файл формата JPEG. Размер изображения будет 50x25 миллиметров с разрешением 300 dpi.
Call ActiveBC1.SaveToImageFile(50, 25, "c:\barcode.jpg", 300, dmMM)

'3.
Вычислить необходимую ширину штрихкода. См. GetBarcodeWidth.
Dim barWidth As Double
barWidth = ActiveBC1.GetBarcodeWidth(0.5, 300, 300, dmMM)
'Сохранить изображение в файл формата JPEG. Штрихкод будет иметь x-dimension 0.5 мм и высоту 25 мм.
Call ActiveBC1.SaveToImageFile(barWidth, 25, "c:\barcode.jpg", 300, dmMM)

object.PartialWritePicture(sFileName, x, y, width, height)

sFileName	Строка определяющая имя файла.
x	Целое определяющее X координату штрихкода.
y	Целое определяющее Y координату штрихкода.
width	Целое определяющее ширину штрихкода.
height	Целое определяющее высоту штрихкода.

Не возвращает значение.

Image файл определяемый параметром sFileName может быть следующих форматов "bmp", "jpg", "jpeg", "gif", "tiff" и "png".

Call ActiveBC1.PartialWritePicture("c:\1.jpg", 10, 10, 115, 50)

Используя этот метод, можно добавить к любому вашему image файлу штрихкод, который может использоваться для идентификации файла или для иных целей.

object.DrawBarcodeToSize(X, Y, CX, CY, dm, [hDC])

Параметры

X	Вещественное значение определяющее X координату штрихкода.
Y	Вещественное значение определяющее Y координату штрихкода.
CX	Вещественное значение определяющее ширину штрихкода.
CY	Вещественное значение определяющее высоту штрихкода.
dm	Необязательное (по умолчанию dmPixels). Определяет единицы измерения, которые используются для задания cx и cy. См. здесь.
hDC	Необязательное (по умолчанию 0). Хэндл устройства, в которое будет происходить печать. Если этот параметр не установлен или равен нулю, то будет использоваться принтер.

Возвращаемое значение

Не возвращает значение.

'Нарисовать штрихкод на экран.
Dim minWidth As Long
minWidth = oABarCode.MinBarcodeWidth
Call oABarCode.DrawBarcodeToSize(5, 5, minWidth, 45, dmPixels, Form1.hdc)


'Print a barcode
'Отрыть текущий принтер
Call oABarCode.BeginPrint("")

'print a barcode to X=10 mm, Y=10 mm, WIDTH=100 mm, HEIGHT=25 mm
Call oABarCode.DrawBarcodeToSize(10, 10, 100, 25, dmMM)

Call oABarCode.EndPrint

Программирование штрихкодов

object.CopyToClipboard(cx, cy)

cx	Целое значение определяющее ширину штрихкода
cy	Целое значение определяющее высоту штрихкода

Не возвращает значение.

object.BeginPrint(sPrinterName)

sPrinterName

Строка определяющая имя принтера. Имя принтера можно увидеть в папке Принтеры Панели Управления. Если имя пустое, будет открыт принтер по умолчанию.

Не возвращает значение.

Эта функция должна быть вызвана первой, до начала использования других функций печати.

'Открыть текущий принтер
Call oABarCode.BeginPrint("")

'напечатать штрихкод в X=10 mm, Y=10 mm, ШИРИНА=100 mm, ВЫСОТА=25 mm
Call oABarCode.DrawBarcodeToSize(10, 10, 100, 25, dmMM)

'Начать новую страницу
Call oABarCode.NewPage

'напечатать штрихкод в X=10 mm, Y=10 mm, ШИРИНА=100 mm, ВЫСОТА=25 mm
Call oABarCode.DrawBarcodeToSize(10, 10, 100, 25, dmMM)

Call oABarCode.EndPrint

object.EndPrint()

Не возвращает значение.

object.NewPage()

Не возвращает значение.

object.EndPage()

Не возвращает значение.

object.GetPrinterHDC()

HDC

object.SetPrinterHDC(hDC)

hDC	Значение определяющее хэндл принтера.

Не возвращает значение.

Printer.CurrentX = 2048
Printer.Print "SBarCode.com, VB Example"

'ABarCode-ActiveX будет использовать Visual Basic принтер
Call ActiveBC1.SetPrinterHDC(Printer.hdc)

'напечатать штрихкод
Call ActiveBC1.DrawBarcodeToSize(10, 10, 100, 25, dmMM)

Printer.EndDoc

object.BinaryWritePicture(sFmt, CX, CY)

Параметры

sFmt	String that specifies the file name extension. The following extensions can be used - "wmf", "emf", "bmp", "jpg", "jpeg", "gif", "tiff" and "png".
CX	An integer that defines the barcode width
CY	An integer that defines the barcode height

Возвращаемое значение

Variant определяющее safe array байт.

Этот метод может быть очень удобным для пересылки изображения штрихкода через Интернет. Например, он может использоваться на IIS сервере.

Внимание! Для нормальной работы этой функции необходимо наличие библиотеки GDI+ (gdiplus.dll) на вашем PC, эта библиотека поставляется в составе Windows XP и выше. Если у вас нет такой библиотеки, то вы можете загрузить ее здесь, а затем скопировать ее в папку ../Windows/System32/.

Здесь приведен пример ASP страницы поставляемой вместе с ABarCode-ActiveX.

<%
' abarcode.asp
' (c) 1999-2005 www.SBarCode.com

dim oBarcode
Set oBarcode = Server.CreateObject("ABarCode.ActiveBC.1")
oBarcode.BarText = "01234567"
oBarcode.BarType = 0

' we are sending a GIF image to the client
Response.ContentType = "image/gif"
Response.BinaryWrite oBarcode.BinaryWritePicture("gif", 200, 100)

SET Barcode=nothing
%>
			

Этот метод требует Server лицензии.

object.GetBarcodeWidth(lModule, xRes, yRes, dm)

Параметры

lModule	This double value that defines the necessary x-dimension.
xRes	A long value that defines the resolution in dpi) along x axis.
yRes	A long value that defines the resolution in dpi) along y axis.
dm	Не обязательный (по умолчанию dmPixels). Этот параметр задает единицы измерения, которые используются для определения lModule. Результат, также возвращается в этих же единицах измерения. См. здесь.

Возвращаемое значение

Метод возвращает требуемую ширину штрихкода в той единице измерения, которая задана парметром dm.

'получить разрешение принтера (dpi - dots per inch)
Dim dpiX As Long, dpiY As Long
dpiX = GetDeviceCaps(Printer.hdc, LOGPIXELSX)
dpiY = GetDeviceCaps(Printer.hdc, LOGPIXELSY)

Dim barWidth As Double
barWidth = oABarCode.GetBarcodeWidth(0.508, dpiX, dpiY, dmMM)

Программирование штрихкодов