Страница 8 из 10
					
				Класс для API Zint «Штрих-коды»
				Добавлено: 04 Февраль 2020, 18:26
				 Игорь Столяров
				Библиотека для создания практически любых штрих-кодов.
В примере показан вывод штрих-кодов в окно и отчёт.
(Перекрестная ссылка на альтернативу viewtopic.php?p=40124#p40124) добавил  Admin
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 10:32
				 Игорь Столяров
				kreator писал(а): 13 Февраль 2020, 10:19
В любом случае её нужно превращать в 32-битную.
 
Нет. 

 Возвращаемся к примеру. Есть рисунок 30x40 пикселей 24-битной глубиной цвета. Размер его bitmap = 30*40*3 Byte.
Если бы мы преобразовали его к 32-битной палитре, то размер его bitmap = 30*40*4 Byte. Но это не так.
Constantine писал(а): 13 Февраль 2020, 10:11
1. BITMAP = BITMAPINFOHEADER  + пиксели. Если Вы его разместили в обычной памяти с помощью функции CreateCompatibleBitmap, то он и есть просто bitmap,
2. DIB = тот же самый BITMAP в DIB-секции, ее можно разместить как в обычной памяти, так и в контексте устройства (DC),
3. Файл *.BMP = BITMAPFILEHEADER + тот же самый BITMAP. Он может быть как в оперативной памяти (если Вы его там сформируете), так и на диске.
 
Всё верно, только BITMAP = пиксели (кодирование цвета каждого пикселя), и тогда без путаницы в терминологии:
DIB  = INFOHEADER + BITMAP
BMP = FILEHEADER + DIB = FILEHEADER + INFOHEADER + BITMAP
(там ещё есть опциональные палитры - но мы их не юзаем)
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 10:41
				 Constantine
				ОК, пусть будет так.
Все равно непонятно, зачем нужно перекодировать?
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 10:55
				 Игорь Столяров
				Constantine писал(а): 13 Февраль 2020, 10:41
Все равно непонятно, зачем нужно перекодировать?
 
Ха ! А как мне это непонятно … но иначе не работает. 

Тоже в начале думал, что сейчас быстренько запишу bitmap напрямую в ?Image и всё заработает, но нет.
Здесь есть связанный и возможно ключевой вопрос.
Есть два рисунка (?Image1 и ?Image2). В ?Image1 как-то загрузили картинку. Как нам скопировать эту картинку в ?Image2 ?
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 10:58
				 Constantine
				Так, становится более-менее понятно... 

А если файл, сформированный ZINT, напрямую, через интерфейс Клариона, вставить в Image, - показывает?
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:02
				 Игорь Столяров
				Constantine писал(а): 13 Февраль 2020, 10:58
А если файл, сформированный ZINT, напрямую, через интерфейс Клариона, вставить в Image, - показывает?
 
Конечно. Причём оба варианта прекрасно работают:
Код: Выделить всё
?Image{Prop:Text} = ZINT_FILE.BMP
?Image{Prop:ImageBits} = LoadFileToString(ZINT_FILE.BMP)
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:08
				 Constantine
				А что такое LoadFileToString?
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:14
				 kreator
				Прикольно, однако.
Игорь Столяров писал(а): 13 Февраль 2020, 10:55
Здесь есть связанный и возможно ключевой вопрос.
Есть два рисунка (?Image1 и ?Image2). В ?Image1 как-то загрузили картинку. Как нам скопировать эту картинку в ?Image2 ?
 
Я делаю так:
Код: Выделить всё
  GLO:Legend1GradientColour = ?IMAGE1{prop:ImageBits}  
 
Код: Выделить всё
  create(i#, CREATE:image)
  i#{prop:ImageBits} = GLO:Legend1GradientColour
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:22
				 Игорь Столяров
				Constantine писал(а): 13 Февраль 2020, 11:08
А что такое LoadFileToString?
 
  Ну я же не "программист" 1С, что бы называть методы ВозвращаетСтрокуССодержаниемФайла() … 
kreator писал(а): 13 Февраль 2020, 11:14GLO:Legend1GradientColour
 
Пардон, а как эта переменная описана ? По идее - String, но какой длины ?
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:27
				 Constantine
				Правильно ли я понимаю, что если Кларионовскому Image подсунуть файл ZINT целиком, - проблем нет?
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:37
				 Игорь Столяров
				Constantine писал(а): 13 Февраль 2020, 11:27
если Кларионовскому Image подсунуть файл ZINT целиком, - проблем нет?
 
Да верно, проблем нет. Впрочем, как и с любым другим файлом BMP ...
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:51
				 Constantine
				Ну, если так, то, похоже, Кларион под {PROP:ImageBits} понимает тупо копию ФАЙЛА в памяти. Причем, любого: BMP, GIF и т.п.
Соответственно, и подсовывать ему в этом случае надо файл: BIMAPFILEHEADER + BITMAPINFOHEADER + пиксели.
Можно, для эксперимента, считать файл ZINT ЦЕЛИКОМ в область памяти с помощью ReadFile, а ее адрес подсунуть {PROP:ImageBits}.
Если сработает, то к картинке ZINT нужно прицепить BITMAPFILEHEADER и получившуюся конструкцию перенести в обычную область памяти.
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 11:58
				 Игорь Столяров
				Constantine писал(а): 13 Февраль 2020, 11:51
перенести в обычную область памяти
 
Спасибо. Вы сейчас дословно описали работу метода ZintClass.BitmapToImage(), который всё это делает. 

Но путь к этому был не очевиден … 
В ZINT есть ещё возможность генерить векторные форматы (SVG), но я с этим ещё не разбирался.
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 12:14
				 kreator
				Игорь Столяров писал(а): 13 Февраль 2020, 11:22
kreator писал(а): ↑
    13 Февраль 2020, 11:14
    GLO:Legend1GradientColour
Пардон, а как эта переменная описана ? По идее - String, но какой длины ?
 
Ну у меня специфический кусок. String обычный, 2000 символов. Грубо говоря, с запасом. Я чётко уверен, что границу не перейду. По-хорошему, надо динамически делать.
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 13 Февраль 2020, 12:31
				 Constantine
				Игорь Столяров писал(а): 13 Февраль 2020, 11:58
Вы сейчас дословно описали работу метода ZintClass.BitmapToImage(), который всё это делает.
 
Я старался... 

С учетом того, что я понятия не имею, что такое ZINT...
 
			 
			
					
				ZINT BarCode для Clarion
				Добавлено: 18 Февраль 2020, 18:48
				 Игорь Столяров
				RaFaeL писал(а): 18 Февраль 2020, 18:34
но вот 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