Рисование штрихкода

← →
AndreyRu (2006-09-05 15:34) [0]

Уважаемые мастера, кто-нибудь из вас рисовал штрихкод в своих программах, можете поделиться как устроен штрихкод, мне интересен сам способ получения графического отображения штрихкода исходя из цифр.. Буду весьма благодарен за исходники!

← →
MacroDenS © (2006-09-05 16:28) [1]

Давно это было, тоже заморачивался...

Только штришки-то они разные. Посмотрю дома в архивах, может еще что осталось

← →
Loginov Dmitry © (2006-09-05 17:09) [2]

Могу дать код для рисования Ean-8 и Ean-13 (эти коды наносятся практически на все товары в супермаркетах).

← →
VEZ (2006-09-05 17:49) [3]

Может через Rave Reports нарисовать, там есть компоненты штрихкодов.

← →
Бормодед © (2006-09-05 18:45) [4]

Есть специальные шрифты, под разные стандарты штрихкодов. Стоит погуглить...

← →
Handle © (2006-09-05 19:47) [5]

http://www.delphisources.ru/pages/sources/graph/2006_year/barcode.html

← →
AndreyRu (2006-09-11 12:53) [6]

> Loginov Dmitry © (05.09.06 17:09) [2]
> Могу дать код для рисования Ean-8 и Ean-13 (эти коды наносятся
> практически на все товары в супермаркетах).

Если можете прислать исходники буду очень благодарен mistikon@yandex.ru

← →
AndreyRu (2006-09-11 12:54) [7]

Нужен как раз код EAN - 8 и EAN - 13

← →
TUser © (2006-09-11 13:08) [8]

Вообще, шрифты специальные есть

Исходники компонента под Делфи 5:
http://mitglied.lycos.de/AJSchmidt/fbarcode.zip

← →
AndreyRu (2006-09-11 13:16) [10]

> TUser © (11.09.06 13:08) [8]
> Вообще, шрифты специальные есть

Мне шрифты не нужны, на сколько я знаю для каждой цифры есть несколько видов штрихов плюс к этому в разных половинках штрихкода штрихи разные. И в добавок последняя цифра как контрольная, расчитывается по формуле. В сети все облазил, программ куча, а вот исходников почти нет, одна вода. Вобщем НАРОД если кто чем сможет помоч буду очень признателен!

AndreyRu (11.09.06 13:16) [10]
FastReport может такое делать, можно поковыряться у них в исходниках и найти это, они там практически все кодировки поддерживают

> Нужен как раз код EAN - 8 и EAN - 13

http://matrix.kladovka.net.ru/BarCodesUnit.zip

Пример прорисовки:

DrawBarCode(
Image1.Picture.Bitmap,
Image1.Canvas.FillRect,
"4602876000700");

Однако для высококачественной печати на принтере данный модуль не годится (используется в одной проге (редактор этикеток) просто для вывода картинки заданного размера на холсте).

Рисование штрихкода Найти похожие ветки