Форум программистов, компьютерный форум, киберфорум
bedvit
Войти
Регистрация
Восстановить пароль
Рейтинг: 5.00. Голосов: 1.

Генератор QR-кода в COM/ActiveX и в Excel

Запись от bedvit размещена 22.04.2020 в 23:56
Обновил(-а) bedvit 08.09.2021 в 08:30

Печать QR-кода в Excel, Word, 1С и проч. приложениях с поддержкой COM/ActiveX.
Часть библиотеки BedvitCOM
Использованы: libqrencode + GDI+
Функционал:
1. Сохранение изображения в форматы: bmp, jpeg, gif, tiff, png.
2. QR-кода сохраняется в монохромное изображение, где формат позволяет, т.е. до 1 бита на пиксель. В любом цвете RGB. К примеру размер .PNG 1140*1140 пикселей (1 бит на пиксель) - 2КБ.
3. Возможность задавать размер модуля (пикселя QR).
4. Возможность задавать цвет в RGB.
5. Возможность задавать версию QR кода.
6. Возможность задавать уровень коррекции ошибок.
7. Возможность изменить толщину рамки - quiet zone (начиная с v1.0.4.8)
8. Емкость QR-кода составляет до 7000 цифр или 4000 символов
9. (Отдельно) Конвертации вышеперечисленных форматов из одного в другой

Параметры/Аргументы функции QRcodePrint :
1. QRcodeText - что печатаем, строка(обязательное).
2. FileOut - куда печатаем, полное имя файла (обязательное). Начиная с версии библ. v1.0.4.0 - не обязательное, по умолчанию используется пользовательский "TEMP" + уникальное имя файла (GUID). Расширение теперь добавляется автоматически, если оно не указано. Если указан файл без папок - файл помещается в ту же папку, где располагается зарегистрированная библиотека.
3. FormatImageOut - формат изображения (код в функции/формат):0 (bmp), 1 (jpeg), 2 (gif), 3 (tiff), 4 (png)-по умолчанию. (этот и остальные аргументы не обязательны)
4. SizePixel - размер пикселя (модуля), по умолчанию 4 (минимально рекомендуемый)
5. PixelColorR =0 цвет RGB если хотим цветную картинку (по умолчанию черный)
6. PixelColorG = 0
7. PixelColorB =0
8. VersionSymbol - версия QR кода (1-40) (по умолчанию = 0-выбор автоматом)
9. LevelErrCorrect - уровень коррекции ошибок (0-3, по умолчанию = 1 ~15%)
10. QuietZone - Размер в модулях зоны тишины (>=0, по умолчанию = 4). Quiet zone — это область, отделяющая границу штрих-кода от фона и других изображений. Начиная с v1.0.4.8
11. Возвращает код ошибки, 0 - все штатно. Начиная с версии библ. v1.0.4.0 - при удаче, возвращается полное имя файла созданного изображения, при неудаче выводится ошибка и возвращается "Empty"

Добавил отдельный метод (ConvertFormatImage) конвертации вышеперечисленных форматов из одного в другой.
В случаях конвертации сторонних изображений.
Параметры/Аргументы метода ConvertFormatImage :
1. FileIn - полное имя файла (обязательное).
2. FileOut - полное имя файла (обязательное).
3. FormatImageOut - нужный формат (обязательное). Код в функции/формат:0 (bmp), 1 (jpeg), 2 (gif), 3 (tiff), 4 (png)

Пример использования:
1. Excel
- открываем или устанавливаем xll как надстройку нужной разрядности (Excel), пишем код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub QR_Generate()
Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
Dim File As String: File = "D:\QR.png"
Dim ConvertToFile As String: ConvertToFile = "D:\QR.tif"
Dim QRcodeText As String: QRcodeText = "https://www.cyberforum.ru/blogs/829006/blog6514.html"
 
'печать QR и вывести на лист Excel
If bVBA.QRcodePrint(QRcodeText, File) = 0 Then [a1].Select: ActiveSheet.Pictures.Insert (File) 'с аргументами по умолчанию
'If bVBA.QRcodePrint(QRcodeText, File, 4, 4, 255, 0, 0, 0, 1) = 0 Then [a1].Select: ActiveSheet.Pictures.Insert (File) 'с нужными аргументами
 
'Конвертировать формат изображения
bVBA.ConvertFormatImage File, ConvertToFile, 3 'формат (tiff), см. в описании
End Sub
В одну строку:
Visual Basic
1
2
3
Sub QR_Generate()
If CreateObject("BedvitCOM.VBA").QRcodePrint("Здесь инфо для печати", "D:\QR.png") = 0 Then [a1].Select: ActiveSheet.Pictures.Insert ("D:\QR.png")
End Sub
2. 1C - регистрируем COM нужной разрядности (можно под пользователем), далее код (по аналогии с Excel)

Последние версии библиотек.


UPD: 20/04/2021
Теперь и как функция Excel - QRcodePrint

Параметры/Аргументы функции QRcodePrint :
1. QRcodeText - что печатаем, строка(обязательное).
2. SizePixel - размер пикселя (не картинки, а квадратика в QR), по умолчанию 4 (минимально рекомендуемый)
3. PixelColorR =0 цвет RGB (0-255) если хотим цветную картинку (по умолчанию черный)
4. PixelColorG = 0
5. PixelColorB =0
6. VersionSymbol - версия QR кода (1-40) (по умолчанию = 0-выбор автоматом), см. ниже
7. LevelErrCorrect - уровень коррекции ошибок (0-3, по умолчанию = 1 ~15%), см. ниже
8.WidthImage - постоянная ширина (т.к. при кодировании разного размера данных размер QR меняется). Если хотим постоянный размер - проставляем. По умолчанию "-1" (размер фактический)
9.HeightImage - постоянная высота, тоже, что и п.8
10. QuietZone - Размер в модулях зоны тишины (>=0, по умолчанию = 4). Quiet zone — это область, отделяющая границу штрих-кода от фона и других изображений. Начиная с версии xll - v2.0.1.6
11.Left - отступ от левого верхнего угла ячейки с функцией (рекомендуется оставлять значение по умолчанию = 0)
12.Top - тоже, что и п.11 (рекомендуется оставлять значение по умолчанию = 0)
п.11,12 рекомендовано использовать, только тогда, когда есть понимание, как это все работает (см.ниже). В обратном случае может быть ситуация, когда изменили размер ячейки или изменили 11 и/или 12 параметр, и теперь QR - печатается в другой ячейке, а в предыдущей он уже не удалится, останется до ручного удаления.
Результат: При удаче, возвращается закодированная в QR-коде строка, при ошибке - "#ЧИСЛО!"
Важно: Ячейка в которую помещается QR-код предварительно очищается от старых версий QR.
Если QR-код больше не нужен можно удалить вручную или задать пустую строку для первого параметра функции (старый QR-код удалится, новый не создастся)
Изображения
 
Размещено в Без категории
Показов 6690 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.