![]() |
![]() |
tetradon 30.07.2004 - 22:07 |
Люди. Может кто чисто случайно, знает как рисовать штрих коды. Я не имею ввиду использование какой нибуть ActiveX. Есть желание написать сою компаненту. Но нет не ккой документации. С какими промежутками какой ширины и т.д. |
кто-то 1 - 02.08.2004 - 00:30 | еслт я конечно не ошибаюсь то ширина штриха берётся всё время разная и случайнаядабы различать продукты. а растояние посмотри на любомпакете с молоком |
Kuzmich 2 - 02.08.2004 - 14:45 | А зачем? Какова цель? |
BELL 3 - 02.08.2004 - 16:23 | Поизучай ФАСТ репорт, там есть компоненты для рисовки этого. |
Big Duck 4 - 02.08.2004 - 17:06 | А че сразу не купить штрих-принтер? стоит они недорого и штрих-коды печатают прекрасно :) да и программируются легко - я как-то писал что-то с использованием такого принтера.... Godex BZB кажется...... - нормальный девайс и проблем с ним не было..... |
tetradon 5 - 02.08.2004 - 21:27 | (4) Минуику. Если я тебя правильно понял то для печати штрих кода на принтерах типа "Зебра" нужно отправить ему команду с кодировкой (например EAN 13) и собственно цифирей. А не передовать на печать роисунок штрих кода ? |
Big Duck 6 - 02.08.2004 - 22:11 |
Конечно! - просто передаешь ему тип кода - EAN 8, EAN 13 или еще какой-нить (тот который я юзал понимает штук шесть форматов кодов), передаешь собсна цифры, ну и всяческие настройки - типа рисовать только штрих-код или его же, но вместе с цифрами, расположение относительно стикера, размеры, яркости, рисунки, логотипы..... в общем довольно много вариантов настроек.... - а на выхоже имеем все что нам надо, особо не задумываясь, каким образом из цифр получается штрих! И управляет весьма просто! Вот кусок моего кода. Писалось на фоксе: -------------- if InitPrinter() = 1 pResult = '22' + iif(this.optiongroup1.value = 2, Formats.BarCode, Formats.BarCode2) + padl(alltrim(str(thisform.DTText2.value * 1000)), 5, '0') pSum = 'Сумма:' + alltrim(str(thisform.DTText3.value - (thisform.DTText6.value * config.devPrice), 20, 2)) =forward('20') &&Отступим 20 пикселей сверху =printbar('15', 'E', '2', '5', '25', pResult, '1') &&Напечатаем баркод =forward('10') &&Еще чуток протянем =printfont('14','1','1',pSum) &&Напечатаем сумму =formfeed() &&Выплюнем наружу =formcut() &&Отрежем clear dlls else messagebox('Принтер не готов', 16, _screen.caption) clear dlls return endif ---------- Как видите - все элеметарно! |