Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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);

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



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

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

Наверх





Память: 0.47 MB
Время: 0.004 c
1-99927
3d[Power]
2002-01-11 01:22
2002.01.31
Packed record. absolute. file r/w.


1-99974
tovSuhov
2002-01-14 08:37
2002.01.31
PopupMenu


1-99954
Yuraz
2002-01-13 19:03
2002.01.31
Помогите! Не могу разобраться, почему в этой проц. печатается менее 6 букв


14-100055
VEG
2001-12-10 22:01
2002.01.31
Нужен компонент типа LABEL, только с большей скоростью перерисовки!!!


1-100001
bill
2002-01-15 09:36
2002.01.31
считывание дос файла построчно в ListBox





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский