Штрихкод

[raxp]

...вас чем-то не удолетворили предложенные варианты?

[KOMPNET]

Исходный код, чтобы его можно было вставить как процедуру на кнопку

[raxp]

...см. выше.

[KOMPNET]

Так там модули, а мне нужно в форме процедуры, которую можно привязать на кнопку

[KOMPNET]

можно ли сделать программу для генерация штрих-кодов code-39 http://tradepilot.ru/pub/gost30742-2001-code-39.pdf

[KOMPNET]

не получается- выдает ошибку при компиляции

[KOMPNET]

Сообщение от raxp

RABarCode EAN13
Модуль кодировщика EAN-13 имеет возможности:
- проверка вводимого кода на валидность
- возможность поворота полученного изображения
- возможность инверсии
- возможность передачи битовой матрицы сразу в буфер обмена


Прилагаю к разработанному модулю кодировщика и тестовый проект:



Использование достаточно прозрачно. Подключите модуль в секцию uses и вызовите с параметрами функцию barcode:

function barcode(digits: shortstring; fontcolor: tcolor; fontsize,angle: smallint;
  anglecolor: tcolor; clipbrd, valid, invert: boolean): tbitmap;
...

image1.Picture.Bitmap.Assign(barcode('ваш код', rgb(0,0,255), 10, 0, 0, true, true, false))

скачать

Не получается - компилятор выдает ошибку

[raxp]

...скрин-код ошибки в студию.

[KOMPNET]

Получилось! Но мне бы хотелось чтобы штрих код был стандарта CODE-39. Нет ли готового модуля генерации этого стандарта?

[raxp]

см. выше, тоже приводили ссылки.