Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

Штрих кода 


МАРАТ   (2002-01-03 14:32) [0]

Господа Мастера!
Поделитесь кто может опытом по напечатыванию штрих-кодов
в частности EAN-13(8), контрольную цифру получить могу а вот напечатать эти чертовы полостки не получается,
использовал EAN-13.ttf полоски есть но не читается



Kirill   (2002-01-03 16:59) [1]

В библиотеке SystemWork есть то, что тебе нужно.
Твоя задача состоит в том, чтобы найти эту библиотеку.



МАРАТ   (2002-01-04 08:32) [2]

Kirill,
А где искать библиотеку SystemWork не намекнешь, а :о)



cpp   (2002-01-04 09:21) [3]

FastReport тебе поможет или ReportBuilder



Ruff-Fish   (2002-01-04 09:47) [4]

Кстати, очень неплохо печатать штрих-коды умеет CorelDraw 10...



Kirill   (2002-01-04 11:37) [5]

2МАРАТ
К сожалению, я взял ее на диске с Delphi 5, поэтому где ее можно в найти не намекну. Если только не отправить на какой-нибудь поисковик или на www.torry.net.



AlexFF   (2002-01-04 12:01) [6]

Есть спецательная программа которая правильно расстовляет код
и он читается в инете можно найти я находил.
у меня где то валяется пиши alex@incomsoft.ru



МАРАТ   (2002-01-05 09:45) [7]

AlexFF
Программ то много, а вот Дельфовая и с исходниками есть?



Kirill   (2002-01-08 15:30) [8]

2МАРАТ:
не нашел в инете. Если надо для Delphi 5 скину на мыло.



Пиноккио   (2002-01-08 20:48) [9]

2Kirill:
Скинь, пожалуйста, мне тоже.



МАРАТ   (2002-01-09 08:30) [10]

Kirill
Кидай, буду рад
в крайнем случае грохну 6 поставлю 5



MaX V RodionoV   (2002-01-10 13:06) [11]

Реализовывал все руками .. сам ... но уже давно. Если не боишься почувствовать себя мазохистом после рагребания чужих сырцов то пиши на e-mail. Есть Ean13, Ean8, Code128. До остальных пока руки не доходили



МАРАТ   (2002-01-15 08:57) [12]

MaX V RodionoV
Так и не получит от тебя "сырца"
жду с нетерпением
Могу прислать "демо" компонеты для разных
дельфов (от3-6) для других штрих-кодов



Andy Ice   (2002-01-15 09:38) [13]

Если все еще нужно, мыльни AndyIce(a)mail.ru (только вместо (а) собачку подставь), пришлю компонент, в нем алгоритм реализации для многих кодов есть. Сам оттуда для 2-5 выдергивал. Достаточно просто. Могу и свой компонент для примера послать (только там для 2-5, впрочем уже говорил:)). Попростому: создаешь массив, в котором расписаны кода для каждого символа,

const
code25: array["0".."9", 1..5] of char =
(
("0", "0", "1", "1", "0"), {"0"}
.....
("0", "1", "0", "1", "0") {"9"}
);

а потом просто формируешь штрихкод (в fTitle код):

// start code
Rectangle(x, fTop, x + fL, y + (h div 2));
x := x + 2 * fL;
Rectangle(x, fTop, x + fL, y + (h div 2));
x := x + 2 * fL;
// bar code
For i := 1 To Length(fTitle) div 2 do
For J := 1 To 5 Do
Begin
If code25[fTitle[i*2-1], j] = "1" Then
x2 := x + Round(fL * fK)
Else
x2 := x + fL;
Rectangle(x, fTop, x2, y);
x := x2;
If code25[fTitle[i*2], j] = "1" Then
x := x + Round(fL * fK)
Else
x := x + fL;
End;
// stop code
Rectangle(x, fTop, x + Round(fL * fK), y + h div 2);
x := x + fL + Round(fL * fK);
Rectangle(x, fTop, x + fL, y + h div 2);

для твоего случая чуть сложнее, но не очень




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.03 c
1-99991           Анатолий              2002-01-14 21:18  2002.01.31  
Выделить маленькие отрезки чисел в большом отрезке чисел?


1-100002          Илья                  2002-01-15 09:48  2002.01.31  
RichEditControl


4-100095          Miwa                  2001-11-30 20:07  2002.01.31  
SendMessage


4-100098          Evgeniy_S             2001-11-28 16:13  2002.01.31  
THREADS !!!


6-100030          FD                    2001-11-08 13:16  2002.01.31  
Объясните новичку