Штрих кода

← →
МАРАТ (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);
для твоего случая чуть сложнее, но не очень

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