Печать из базы штрих-кода

← →
Weare (2003-06-12 12:06) [0]

День добрый, уважаемые мастаки. Есть база товаров с занесенными в нее (в числовом формате) штрих-кодами. Подскажите, плз, какую-нибудь компоненту или ссылку на модуль, с помощью чего можно реализовать печать штрих кода, того самого который распознается сканером.

← →
alex nosik (2003-06-12 12:09) [1]

В FastReport 2.5 есть компонент для печати штрихкодов для сканера.

← →
Weare (2003-06-12 12:17) [2]

> alex nosik (12.06.03 12:09)
> В FastReport 2.5 есть компонент для печати штрихкодов для
> сканера.

А где его взять можно?

← →
alex nosik (2003-06-12 12:25) [3]

Удалено модератором
Примечание: Личная переписка

← →
Weare (2003-06-12 12:30) [4]

Удалено модератором
Примечание: Личная переписка

← →
MsGuns (2003-06-12 17:17) [5]

>alex nosik (12.06.03 12:09)

А что, фастрепорт уже стал фриварным ?

← →
alex nosik (2003-06-13 08:52) [6]

Не знаю

← →
Anatoly Podgoretsky (2003-06-13 09:02) [7]

То есть ты купил его и теперь в нарушение лицензии распространяешь варезным методом?

← →
SkyN (2003-06-13 09:45) [8]

Посмотри http://mitglied.lycos.de/AJSchmidt/index.html , эта компонента кучу кодировок поддерживает. Ещё есть шрифты (что мне кажется более удобным способом), но я бесплатного не нашел.

Т.к. я тоже занимаюсь поиском лучшего варианта, что найдешь, линк кинь на nebotov@mail.ru

← →
Соловьев (2003-06-13 09:52) [9]

на www.torry.net есть компонет - Barcode library.
Если нужно могу выслать.

← →
Trooper (2003-06-13 11:57) [10]

Возьми алгоритм формирования штрих кода, который тебя интерисует и напиши свой модуль или компонент ... :-)

← →
Ales (2003-06-16 09:34) [11]

Я в свое время перепробовал кучу компонент и программ но они меня все не устроили по разным причинам. Поэтому я взял доку на свой принтер штрихкодов и понал что гораздо прощще самому все наваять. Идея там проста как три рубля:
Создается обычный текстовый файл с кодами и его отправляем на принтер.
Вот пример кода:

procedure TMyLabelPrint.ButtonPrintLabelClick(Sender: TObject); var F: TextFile; S: String; // нач. номер Sn: Int64; // Нач. номер в Int64 n: Int64; // Скока троек печатать I: Integer; v: extended; Sn1,Sn1o,Sn2,Sn2o,Sn3,Sn3o: String; begin if Not NumErr then Exit; // Определяем переменные v := NumLabPrint.Value; S:=EditLabNum.Text; // Тут нач. номер. Sn1o:="BARCODE 36,0,"25",31,1,0,2,4,""; Sn2o:="BARCODE 260,0,"25",31,1,0,2,4,""; Sn3o:="BARCODE 484,0,"25",31,1,0,2,4,""; // Печатаем этикетки. AssignFile(F,"lpt1"); // Определяем выход. Rewrite(F); // Подготовка WriteLN(F,"<!<R>SPEED 2.0"); WriteLN(F,"DENSITY 9"); WriteLN(F,"SET PEEL OFF"); WriteLN(F,"DIRECTION 0"); WriteLN(F,"GAP 3.00 mm,0.00 mm"); WriteLN(F,"REFERENCE 0,0"); // Конец подготовки. n:=(trunc(v)) div 3; Sn:=StrToInt(S); for I:=0 to n-1 do begin // Печатаем тройками. WriteLN(F,"SET CUTTER OFF"); WriteLN(F,"SIZE 80.95 mm,10.01 mm"); WriteLN(F,"CLS"); // Пошли вычислять. Sn1:=Sn1o+IntToStr(Sn)+"""; Sn2:=Sn2o+IntToStr(Sn+1)+"""; Sn3:=Sn3o+IntToStr(Sn+2)+"""; Sn:=Sn+3; // А теперича и печатать. WriteLN(F,Sn1); WriteLN(F,Sn2); WriteLN(F,Sn3); WriteLN(F,"PRINT 1,1"); // Вот тут сама печать чего завели. end; CloseFile(F); EditLabNum.Text:=IntToStr(Sn); end;

У меня лента широкая используется, с тремя лайбочками на строку
У юзера запрашивается скока номеров (кратно трем!) печатать, и с какого намера и в путь ...
Код абсолютно рабочий, - используется уже с год наверно ...
Как из базы брать надеюсь сами ... :-)

← →
Chinik (2003-06-16 12:24) [12]

Специальные принтеры штрих-кода имеют собственный язык программирования (PL, TSLP и т.д., зависит от фирмы и модели).
По документации можно всё выяснить и сделать как Ales.

>Ales
Ваш вариант может подходить только к вашему принтеру.

Кстати, чисто как информация, с принтером должна поставляться специальная утилитка создания этикеток (рекомендую Nise Label), которая поддерживает печать почти из любого типа БД. И если нет специального принтера, то рекомендую купить, ведь они специально предназначены для печати штрих-кода (можно и графику и обычный тескт).

← →
doomin (2003-06-25 11:26) [13]

http://www.squaregear.net/fonts/free3of9.zip
Здесь лежит FreeWare шрифт для CODE39. Чтобы работало код должен печататься со знаками * впереди и сзади

Печать из базы штрих-кода Найти похожие ветки