К списку форумов К списку вопросов
Штрих код
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
----------
Как видите - все элеметарно!

К списку вопросов на форуме Программирование

>>