штрих код

[varelik]

Здравствуйте. Такой вопрос: хочу сделать штрих код на форме. Т.е., смысл такой- в какомто окне вводится цифровая информация (13 цифр), жмется ОК- в итоге графически формируются черточки штрих кода. готовый Компонент не подойдет, надо разобраться самому.

[Kotofff]

Используй BarCode Components
http://stilius.net/tbarcode/

[Alex Cones]

Вот ссылка, как их формировать:

http://www.barcoding.ru/articles_1_16.htm

[varelik]

Alex Cones, почитал теорию. Вобщем, штрих- 1, пробел- 0, понятно.
А вот как бы это в делфи (например, на канве timage) реализовать? построение штрихов и пробелов по 1 и 0?

[Alex Cones]

For N:=0 to 12 do
If M[N]=1 Then 
 Begin
  Image1.Canvas.LineTo(N,200);
  Image1.Canvas.LineTo(N,0);
  Image1.Canvas.MoveTo(N+1,0);
 End
Else
 Image1.Canvas.MoveTo(N+1,0);

Совершенствуйте.

[varelik]

благодарю, буду пробовать

[raxp]

...прилагаю модуль (unit) генератора штрих-кода, усе в функции:

- задание цвета
- проверка валидности (crc)
- поворот картинки
- инверсия картинки для трафаретной печати
- копирование в буфер обмена при формировании

[varelik]

raxp, спасибо, посмотрю

[varelik]

raxp, очень интересный модуль.
все что мне нужно из него- function barcode(): tbitmap;
А можно ее вкратце прокомментировать?
особенно, вот эту часть:

 parity[1][2]:= 0;
................и тд
 parity[9][7]:= 0;

 table[0][0]:= '0001101';
 .........................и тд
 table[2][9]:= '1110100';
 //
 temp:= '101';
 for i:=2 to 7 do
  temp:= temp + table[parity[strtoint(digits[1])][i]][strtoint(digits[i])];
 temp:= temp + '01010';

 for i:= 8 to 13 do
  temp:= temp + table[2][strtoint(digits[i])];
 temp:= temp + '101';

[raxp]

...посмотрите таблицы и алгоритмы кодирования по указанной Alex Cones ссылке с поста #3.