GetBarCodeImage – сгенерировать изображение штрихкода

Синтаксис:

procedure GetBarCodeImage(
 DocumentName: WideString;
 var DestinationPath: WideString;
 out Width: Double;
 out Height: Double;
 out XBarCodeHash: String);

Параметры:

В качестве входного значения параметра можно передавать пустую строку либо полный путь к файлу. Если в параметре передается пустая строка, то документ будет сохранен во временной папке пользователя, иначе – в указанном в файле.

После выполнения функции параметр содержит:

Описание:

Функция генерирует изображение одномерного или двумерного штрихкода для указанного в параметре DocumentName документа и сохраняет это изображение в файл, указанный в параметре DestinationPath. Независимо от указанного в параметре расширения файла создается изображение в формате WMF. Если параметр DestinationPath не указан, то имя файла будет сгенерировано автоматически. Формат штрихкода зависит от настроек, заданных в справочнике Форматы штрихкодов документов для соответствующего вида документа. Подробнее см. в руководстве администратора DIRECTUM, в разделе «Настройка модулей», подраздел «Форматы штрихкодов документов». Если настройки формата штрихкода для данного вида документа не заданы или запись справочника закрыта, то тип штрихкода берется одномерный, а штрихкод формируется в формате <Префикс>-<ИД инсталляции>-<ИД документа>.

В параметрах Width и Height возвращается реальная ширина и высота полученного изображения в миллиметрах. Эти данные необходимы для вставки изображения в документ с последующей печатью, чтобы сканер в дальнейшем смог корректно распознать штрихкод.

В параметре XBarCodeHash возвращается строка, содержащая захешированную метаинформацию штрихкода. Параметр используется для определения необходимости замены штрихкода в тексте документа.

Если при генерации штрихкода произошла ошибка, то параметр DestinationPath содержит пустую строку.

Рекомендуется использовать данную функцию для вставки в документ штрихкода непосредственно из приложения-редактора.

Пример:

' Сгенерировать изображение штрихкода и вставить его в текущую позицию.
Dim Width, Height As Double
Dim BarCodeHash As String = ""
Path = ""
Call IntLib.GetBarCodeImage(ActiveDocument.Name, Path, Width, Height, BarCodeHash)
Set BarCodePicture = Selection.InlineShapes.AddPicture(Path)
BarCodePicture.Width = MillimetersToPoints(Width)
BarCodePicture.Height = MillimetersToPoints(Height)
' Вставить в документ свойство XBarCodeHash (Хеш-сумма типа и строки штрих-кода на момент его вставки в документ)
Call ActiveDocument.CustomDocumentProperties.Add("XBarCodeHash", False, MsoDocProperties.msoPropertyTypeString, BarCodeHash)