EAN 128 again

rbuser

Hi

Exactly one year ago, Mr Phillip Herries posted the message below.
Jim Bennets reply was this:

I just wonder if these changes are made. I'm not sure, cause some of the lines in the new source are
identical, but there are a lot of differences too.

TIA



I made the following change to the Code128 Autoencode procedure in
ppDrwCmd.pas to get it to do EAN 128 ( It's just got a FUNC1 char as the
second character ) and it works fine. After reading another post that it was
not recommended to recompile the packages, I followed that posts
instructions and just copied the file ppDrwCmd to my application directory.
However this means I had to turn packages off. Can you instruct me what
package to rebuild and any issues I might encounter doing so. I also look
forward to seeing a official EAN 128 support next maintenance release.

Regards, Phillip Herries

procedure TppDrawBarCode.AutoEncode128(var sData : string);
const
CharSetA : set of char = [' '..'_', #201, #202, #206, #207, #211..#242];
.
.
StartC = #210;

TempShift = #203;

Func1 = #207; // for FUNC1 code

ControlChars : set of char = [SwitchA, SwitchB, SwitchC, StartA, StartB,
StartC,TempShift,Func1]; // included Func1 code
.
.
.
sData := S;
Insert(Chr(207),sData,2); // insert FUNC1 as second char.
end; {procedure, AutoEncode128}




Best wishes
Kai Bohli
kaiboe@online.no
Norway

nicocizik

Hi Kai,

Many changes have been made to the bar code component over the past year and
at first glance, it looks as though the changes below were in fact made in
our latest release. If you run into any problems with the barcode
component, please let us know and we will work to fix it as quickly as
possible.

--

rbuser

Hi Nico !

Thanks for your reply. I don't have a barcode scanner myself, but I'll get someone with the proper
equipment to test it for me.




Best wishes
Kai Bohli
kaiboe@online.no
Norway

rbuser

No 7.03 doesn't have EAN128, but the code changes I made still apply.

After 7.03 came out I sent of the following to support..( similar to what I
sent after 7.02 )
"Quite a while ago (4th Jan 03) I published some code changes that changed
the code 128 barcode component to produce EAN 128 barcodes ( adds an extra
control character )
This works fine but it would be nice to see a official built in EAN128
solution in the next version as I was dissappointed that 7.03 didn't have
it.
While I realise from your earlier explanations that the barcode code was not
done by you, I was hoping your shift to Colorado might mean more resources
and therefore that some of these long requested items might get tidied up.
Any hope of this for the next release?"

I dont remember getting a reply to that one.
I did get an answer to the question in my email though - Nard Moseley
replied that ppDrwCmd is part of rbRCL76.dpk so if make the changes and
recompile that package it means you can still use packages with your
application - and get EAN128.

Phillip Herries

nicocizik

Phillip,

Thank you for bringing this to my attention. I have logged your request for
this feature in a future release. We are currently working to keep up with
the latest Borland release of Delphi 8 but as time and resources become
available we will take your request into consideration. I will keep you up
to date.

--

rbuser

Hi Phillip !

Thanks for your follow up. Guees I'll take another code dive then




Best wishes
Kai Bohli
kaiboe@online.no
Norway