I need a Code 128 barcode in CodeC and CodeB mode.
I get it but it cant be decoded.
Letter 1-2 are in CodeB ( RR)
Number 3-10 in CodeC ( 12345678 )
Letter 11-16 are in CodeB ( 5DE200 )
(Mail-Tracking specification)
Cane anybody help me?
// Start mit B
vChecksum := 104;
result := Convert(StartB); // Startcode
debug.add(FloatToStr(vChecksum) + ' - Start');
idx := Find_Code128AB(FText[1]); // 1 Buchstabe
result := result + Convert(tabelle_128[idx].data);
Inc(vChecksum, idx*1);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum));
idx := Find_Code128AB(FText[2]); // 2 Buchstabe
result := result + Convert(tabelle_128[idx].data);
Inc(vChecksum, idx*2);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum));
idx := 105; // Code C
result := result + Convert(StartC);
Inc(vChecksum, idx*3);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum) + ' C ');
idx := StrToInt(FText[3]+FText[4]); // 3+4 Zahlen
result := result + Convert(tabelle_128[idx].data);
Inc(vChecksum, idx*4);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum));
idx := StrToInt(FText[5]+FText[6]); // 5+6 Zahlen
result := result + Convert(tabelle_128[idx].data);
Inc(vChecksum, idx*5);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum));
idx := StrToInt(FText[7]+FText[8]); // 7+8 Zahlen
result := result + Convert(tabelle_128[idx].data);
Inc(vChecksum, idx*6);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum));
idx := StrToInt(FText[9]+FText[10]); // 9+10 Zahlen
result := result + Convert(tabelle_128[idx].data);
Inc(vChecksum, idx*7);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum));
idx := 104; // Code B
result := result + Convert(StartB);
Inc(vChecksum, idx*8);
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum) + ' B ');
for i := 11 to 16 do // RR
begin
idx := Find_Code128AB(FText[i]);
if idx < 0 then
idx := Find_Code128AB(' ');
result := result + Convert(tabelle_128[idx].data);
Inc(vChecksum, idx*(i-2));
debug.add(FloatToStr(idx) + ' - ' + FloatToStr(vChecksum));
end;
vChecksum := vChecksum mod 103;
result := result + Convert(tabelle_128[vChecksum].data);
debug.add(FloatToStr(vChecksum) + ' - Prüf');
result := result + Convert(Stop); // Stopcode
debug.add('Stop');