Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Штрих кода   Найти похожие ветки 

 
МАРАТ   (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);

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.01 c
4-100116
Miwa
2001-11-30 16:25
2002.01.31
Вывод сообщения


4-100120
Crafox
2001-12-04 19:51
2002.01.31
Блокировка сочетаний типа Win+M и т.п.


14-100066
VEG
2001-12-06 23:04
2002.01.31
До чего же наглые!!!


14-100068
NNA
2001-12-08 19:49
2002.01.31
test


1-99982
roman001
2002-01-11 19:35
2002.01.31
Эмуляция нажатия клавы