Методы PDF417 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.
'Сохранить изображение PDF417 в файл JPEG формата. Размер изображения будет 260x70 точек, разрешение 96 dpi.
Call PDF417Ctrl1.SaveToImageFile(260, 70, "c:\pdf417.jpg")

'2.
'Сохранить изображение PDF417 в файл JPEG формата. Размер изображения будет 30x15 миллиметров, разрешение 300 dpi.
Call PDF417Ctrl1.SaveToImageFile(30, 15, "c:\pdf417.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 PDF417.PartialWritePicture("c:\1.jpg", 10, 10, 130, 40)

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

object.CopyToClipboard(cx, cy)

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

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

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

Параметры

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

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

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

'Нарисовать PDF417 на экран.
Call PDF417Ctrl1.DrawPDF417ToSize(0, 0, 270, 90, dmPixels, Form1.hDC)


'Напечатать PDF417 штрихкод
'Открыть текущий принтер
Call PDF417Ctrl1.BeginPrint("")

'напечатать PDF417 в X=10 mm, Y=10 mm, ШИРИНА=25 mm, ВЫСОТА=12 mm
Call PDF417Ctrl1.DrawPDF417ToSize(10, 10, 25, 12, dmMM)

Call PDF417Ctrl1.EndPrint

object.BeginPrint(sPrinterName)

sPrinterName

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

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

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

object.EndPrint()

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

object.NewPage()

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

object.EndPage()

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

object.GetPrinterHDC()

HDC

object.SetPrinterHDC(hDC)

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

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

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

'PDF417-ActiveX будет использовать объект принтера Visual Basic
Call PDF417Ctrl1.SetPrinterHDC(Printer.hDC)

'напечатать PDF417 штрихкод
Call PDF417Ctrl1.DrawPDF417ToSize(10, 10, 30, 15, dmMM)
Call PDF417Ctrl1.DrawPDF417ToSize(70, 10, 30, 15, 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 страницы поставляемой вместе с нашим PDF417-ActiveX.

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

'отправить картинку в GIF формате
Response.ContentType = "image/gif"
Response.BinaryWrite Barcode.BinaryWritePicture("gif", 270, 100)

SET Barcode=nothing
%>
			

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

object.GetPDF417Size(module, xRes, yRes, dmIn, dmOut, width, height)

module	Вещественное значение определяющее модуль PDF417.
xRes	Целое определяющее разрешение (в dpi) вдоль оси X.
yRes	Целое определяющее разрешение (в dpi) вдоль оси Y.
dmIn	Это значение определяет единицы, в которых задан module.
dmOut	Это значение определяет единицы, в которых будут выданы width, height.
width	Переменная, которая получает ширину PDF417.
height	Переменная, которая получает высоту PDF417.

Напечатать PDF417 с размером модуля равным 40 Mils. PDF417 будет начинаться с X=10 mm, Y=10 mm

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

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

'получить необходимые размеры PDF417 штрихкода  в единицах определяемых параметром dmOut
Dim Width, Height
Call PDF417Ctrl1.GetPDF417Size(40, dpiX, dpiY, dmMils, dmMM, Width, Height)

'напечатать PDF417
Call PDF417Ctrl1.DrawPDF417ToSize(10, 10, Width, Height, dmMM)

'закрыть принтер
Call PDF417Ctrl1.EndPrint

Сохранить PDF417 в файл с модулем равным 4 пиксела.

'если dmIn и dmOut определяются в пикселах, вам не нужно задавать разрешение (xRes, yRes), но оно не может быть равно 0.
Dim Width, Height
Call PDF417Ctrl1.GetPDF417Size(4, 1, 1, dmPixels, dmPixels, Width, Height)

Call PDF417Ctrl1.SaveToImageFile(Width, Height, "c:\pdf417.bmp")

object.FreezeEncode(bFreeze)

bFreeze

Boolean that specifies whether to pause encoding the PDF417 or not.

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

PDF417Ctrl1.FreezeEncode (True)
PDF417Ctrl1.DataToEncode = "1234567"
PDF417Ctrl1.CompactionMode = cmByte
PDF417Ctrl1.ErrorCorrectionLevel = ecl_2
PDF417Ctrl1.FreezeEncode (False)