Класс для API ZINT «Barcode Generator»

[Игорь Столяров]

Библиотека для создания практически любых штрих-кодов.
В примере показан вывод штрих-кодов в окно и отчёт.

(Перекрестная ссылка на альтернативу viewtopic.php?p=40124#p40124) добавил Admin

[Игорь Столяров]

В любом случае её нужно превращать в 32-битную.

Нет. Возвращаемся к примеру. Есть рисунок 30x40 пикселей 24-битной глубиной цвета. Размер его bitmap = 30*40*3 Byte.
Если бы мы преобразовали его к 32-битной палитре, то размер его bitmap = 30*40*4 Byte. Но это не так.

1. BITMAP = BITMAPINFOHEADER + пиксели. Если Вы его разместили в обычной памяти с помощью функции CreateCompatibleBitmap, то он и есть просто bitmap,
2. DIB = тот же самый BITMAP в DIB-секции, ее можно разместить как в обычной памяти, так и в контексте устройства (DC),
3. Файл *.BMP = BITMAPFILEHEADER + тот же самый BITMAP. Он может быть как в оперативной памяти (если Вы его там сформируете), так и на диске.

Всё верно, только BITMAP = пиксели (кодирование цвета каждого пикселя), и тогда без путаницы в терминологии:
DIB = INFOHEADER + BITMAP
BMP = FILEHEADER + DIB = FILEHEADER + INFOHEADER + BITMAP
(там ещё есть опциональные палитры - но мы их не юзаем)

[Constantine]

ОК, пусть будет так.
Все равно непонятно, зачем нужно перекодировать?

[Игорь Столяров]

Все равно непонятно, зачем нужно перекодировать?

Ха ! А как мне это непонятно … но иначе не работает.
Тоже в начале думал, что сейчас быстренько запишу bitmap напрямую в ?Image и всё заработает, но нет.

Здесь есть связанный и возможно ключевой вопрос.
Есть два рисунка (?Image1 и ?Image2). В ?Image1 как-то загрузили картинку. Как нам скопировать эту картинку в ?Image2 ?

[Constantine]

Так, становится более-менее понятно...
А если файл, сформированный ZINT, напрямую, через интерфейс Клариона, вставить в Image, - показывает?

[Игорь Столяров]

А если файл, сформированный ZINT, напрямую, через интерфейс Клариона, вставить в Image, - показывает?

Конечно. Причём оба варианта прекрасно работают:

Код: Выделить всё

?Image{Prop:Text} = ZINT_FILE.BMP
?Image{Prop:ImageBits} = LoadFileToString(ZINT_FILE.BMP)

[Constantine]

А что такое LoadFileToString?

[kreator]

Прикольно, однако.

Здесь есть связанный и возможно ключевой вопрос.
Есть два рисунка (?Image1 и ?Image2). В ?Image1 как-то загрузили картинку. Как нам скопировать эту картинку в ?Image2 ?

Я делаю так:

Код: Выделить всё

  GLO:Legend1GradientColour = ?IMAGE1{prop:ImageBits}  

Код: Выделить всё

  create(i#, CREATE:image)
  i#{prop:ImageBits} = GLO:Legend1GradientColour

[Игорь Столяров]

А что такое LoadFileToString?

Ну я же не "программист" 1С, что бы называть методы ВозвращаетСтрокуССодержаниемФайла() …

GLO:Legend1GradientColour

Пардон, а как эта переменная описана ? По идее - String, но какой длины ?

[Constantine]

Правильно ли я понимаю, что если Кларионовскому Image подсунуть файл ZINT целиком, - проблем нет?

[Игорь Столяров]

если Кларионовскому Image подсунуть файл ZINT целиком, - проблем нет?

Да верно, проблем нет. Впрочем, как и с любым другим файлом BMP ...

[Constantine]

Ну, если так, то, похоже, Кларион под {PROP:ImageBits} понимает тупо копию ФАЙЛА в памяти. Причем, любого: BMP, GIF и т.п.
Соответственно, и подсовывать ему в этом случае надо файл: BIMAPFILEHEADER + BITMAPINFOHEADER + пиксели.
Можно, для эксперимента, считать файл ZINT ЦЕЛИКОМ в область памяти с помощью ReadFile, а ее адрес подсунуть {PROP:ImageBits}.
Если сработает, то к картинке ZINT нужно прицепить BITMAPFILEHEADER и получившуюся конструкцию перенести в обычную область памяти.

[Игорь Столяров]

перенести в обычную область памяти

Спасибо. Вы сейчас дословно описали работу метода ZintClass.BitmapToImage(), который всё это делает.
Но путь к этому был не очевиден …

В ZINT есть ещё возможность генерить векторные форматы (SVG), но я с этим ещё не разбирался.

[kreator]

kreator писал(а): ↑
13 Февраль 2020, 11:14
GLO:Legend1GradientColour

Пардон, а как эта переменная описана ? По идее - String, но какой длины ?

Ну у меня специфический кусок. String обычный, 2000 символов. Грубо говоря, с запасом. Я чётко уверен, что границу не перейду. По-хорошему, надо динамически делать.

[Constantine]

Вы сейчас дословно описали работу метода ZintClass.BitmapToImage(), который всё это делает.

Я старался...
С учетом того, что я понятия не имею, что такое ZINT...

[Игорь Столяров]

но вот bmp нельзя, просят dib или bitmap

Понимаете, в одной деревне всех звали Буратино … так и с этими BMP, DIB, bitmap.
Кто как хочет - так и называет всю эту графическую мешанину.

DIB это BMP файл без BITMAPFILEHEADER.
Значит с начала BMP файла пропускаем Size(BITMAPFILEHEADER),
а собственно bitmap находится со смещением bfOffbits от начала BMP файла.

Код: Выделить всё

BITMAPFILEHEADER  Group,Type
bfType                   UShort
bfSize                   ULong
bfReserved1              UShort
bfReserved2              UShort
bfOffbits                ULong    ! Смещение Bitmap
                       end