We are all still waiting for a official fix but my solution is below. There is also a 3rd party barcode library available that I originally looked at as well that is supposed to do it ( sorry cant remember what it was called )
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. Once you have done the mods just select code128 as the barcode type and the barcode will come out as EAN128.
If you use packages you will need to recompile and distribute the updated rbRCL76.dpk
Comments
is also a 3rd party barcode library available that I originally looked at as
well that is supposed to do it ( sorry cant remember what it was called )
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. Once you have done the mods just
select code128 as the barcode type and the barcode will come out as EAN128.
If you use packages you will need to recompile and distribute the updated
rbRCL76.dpk
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}
Phillip Herries