Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Barcode component 2

Status
Not open for further replies.

oguraja

Programmer
Jun 14, 2003
124
US
Hi all,

Can anyone suggest me few companies where I can buy barcode activex component for (code 128 and 2d barcodes). I also need features of saving that barcode as stream and a picture file.

your information will be of great use for my current project.

Thankyou very much in advance
Raja
 
Anything free is worth trying. I'll definately give it a try.
cheers.
Yom yom.
 
Yom yom,

Well, if free works for you, you might take a peek at the open source version of TurboPower's Systools ( It contains extensive support for a variety of barcodes, as well as a host of other really useful goodies.

Searching sourceforge for "turbopower" will lead you to a variety of additional things, many of which are terribly useful.

FTR, TurboPower was once among the most respected providers of add-ins and tools for Borland's Pascal products. Early in 2003, however, they decided to exit that line of business (which as very sad). However, they chose to open-source most of their product line (which was excellent) as a way of rewarding their customers (and the rest of us).

Hope this helps...

-- Lance
 
Hi,

Really a great barcode component... thx very much for showing such a component :-D.... [thumbsup]

Raja
 
Hi simon,

Im using the Fbarcode which u have mentioned...ty very much for showing such a component.. Now i have problem in setting the width of barcode. For a specific application purpose i want to make the width of the barcode common (im using C128A). That is if its set to 200 then all the barcodes no matter watever the text used in it, it should be of the width 200. Can you suggest me a way to do that.

thx in advance
Raja
 
Hi Raja.

Here are the notes I made when I first used it. Since then I have just copied code from one app to another. I think the last sentence holds the clue to your problem. I've a feeling you may find a consistent width/length for variable length text difficult to achieve.

Nice to know the tip has been apreciated. And thanks to the Fbarcode authors - if they're listening :)


Sample code to print barcodes using:
FBarcode Component (Barcode.pas file)
Version 1.15 (23.09.1999)
Copyright 1998-99 Andreas Schmidt and friends

procedure PrintBarcode(ARect:TRect; const AText:string);
begin
with TBarcode.Create(nil)do
try
Text:=AText;

Height:=ARect.Bottom-ARect.Top;
Top:=ARect.Top;
Left:=ARect.Left;

Modul:=Round(2*FPPIX/200); {Width of smallest line}

Ratio:=3; {in range 2 to 3}
Typ:=bcCode39;
Checksum:=False;

DrawBarcode(FCanvas);
finally
Free;
end;
end;
end;

bcCode39 is a basic, easy to use bar code format, suitable for labelling, but perhaps not security.

Modul and Ratio settings are critical. They affect the length and readability of the barcode.

 
Hi Simon,

I too use a code something like this. But the real difficulty is that the width of the barcode(length of the barcode symbol) varies according to the content(text to be coneverted to barcode) of the barcode.i.e., the width of the barcode with text length 4 is different from the barcode having 7 as text length.

In your code,
Modul:=Round(2*FPPIX/200); {Width of smallest line}

will this help in making the widht constant??? If so wats the FPPIX value.

Raja
 
>In your code,
> Modul:=Round(2*FPPIX/200); {Width of smallest line}

>will this help in making the widht constant???
Not directly. But with it you can get control over the width and readability, then develop an algorithm to meet your needs (which might, actually, be impossible)

>If so wats the FPPIX value?
Pixels Per Inch in the X direction.

How about prepending your string with spaces or zeros to acheive a constant number of characters before you start?

Simon
 
Hi Simon,

The sample code you gave me was very helpful. Now I am able to create and use barcode as per the need. The test program for this project also works fine.

But now I need some companies or people recommendation for this FBarcode component. May be a suggestion from you that this component works fine in all the applications you have included will also help me a lot.(
This is just to confirm that this Delphi Barcode component works fine... Pls kindly help me in this regard so that I can include this barcode component in my Project. I hope you can understand my problem.

with regards
Raja
 
I first used it in 1998 or 1999 - can't remember now. That application, including the barcodes, is still in daily use.

Neither I nor the client have ever had a problem with it.

Hope this helps you.
Simon
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top