Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Штрих кода [D6, Win95/98]

МАРАТ © (2002-01-03 14:32:00)
Господа Мастера!
Поделитесь кто может опытом по напечатыванию штрих-кодов
в частности EAN-13(8), контрольную цифру получить могу а вот напечатать эти чертовы полостки не получается,
использовал EAN-13.ttf полоски есть но не читается

Andy Ice (2002-01-15 09:38:00) [1]
Если все еще нужно, мыльни 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);
для твоего случая чуть сложнее, но не очень

МАРАТ (2002-01-15 08:57:00) [2]
MaX V RodionoV
Так и не получит от тебя "сырца"
жду с нетерпением
Могу прислать "демо" компонеты для разных
дельфов (от3-6) для других штрих-кодов

MaX V RodionoV (2002-01-10 13:06:00) [3]
Реализовывал все руками .. сам ... но уже давно. Если не боишься почувствовать себя мазохистом после рагребания чужих сырцов то пиши на e-mail. Есть Ean13, Ean8, Code128. До остальных пока руки не доходили

МАРАТ (2002-01-09 08:30:00) [4]
Kirill
Кидай, буду рад
в крайнем случае грохну 6 поставлю 5

Пиноккио (2002-01-08 20:48:00) [5]
2Kirill:
Скинь, пожалуйста, мне тоже.

Kirill (2002-01-08 15:30:00) [6]
2МАРАТ:
не нашел в инете. Если надо для Delphi 5 скину на мыло.

МАРАТ (2002-01-05 09:45:00) [7]
AlexFF
Программ то много, а вот Дельфовая и с исходниками есть?

AlexFF (2002-01-04 12:01:00) [8]
Есть спецательная программа которая правильно расстовляет код
и он читается в инете можно найти я находил.
у меня где то валяется пиши alex@incomsoft.ru

Kirill (2002-01-04 11:37:00) [9]
2МАРАТ
К сожалению, я взял ее на диске с Delphi 5, поэтому где ее можно в найти не намекну. Если только не отправить на какой-нибудь поисковик или на www.torry.net.

Ruff-Fish (2002-01-04 09:47:00) [10]
Кстати, очень неплохо печатать штрих-коды умеет CorelDraw 10...

cpp (2002-01-04 09:21:00) [11]
FastReport тебе поможет или ReportBuilder

МАРАТ (2002-01-04 08:32:00) [12]
Kirill,
А где искать библиотеку SystemWork не намекнешь, а :о)

Kirill (2002-01-03 16:59:00) [13]
В библиотеке SystemWork есть то, что тебе нужно.
Твоя задача состоит в том, чтобы найти эту библиотеку.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »