Hi Stephen
Re Systools 2Dbarcode problem.
I have managed to get this working now, and it ssems to be generating
correct barcodes.
To repeat the problem, simply drop a TStPDF417Barcode component on a
form and set the code
to a numeric string of more than 34 chars. The component would respond
with a 'Range check error'.
It appears the offending procedure is
procedure TStPDF417Barcode.EncodeNumeric (var Position : Integer;
CodeLen : Integer);
at the end of this procedure is:
for i := 0 to (LenA) do
AddCodeword (A[i]);
end;
until NumericString = '';
I have modified the LenA counter to be for i = 0 to (LenA - 1)
I also had to disable range chcking {$R-} on this unit.
It appears to work correctly now albeit I have just started testing it
'in anger'
look forward to your comments
regards
Neil
>>I have been struggling with a problem with the numeric encoding function
>>which will generate a Range Error
>>with strings longer than say 35.
>>
>>Does anyone here know if a fix is available or has found this 'bug'.
>>
>>I believe the problem is in the following procedure
>>procedure TStPDF417Barcode.EncodeNumeric
>>
>>Any help would be most appreciated
>>
>>
>
>Can't provide you an immediate fix, but I can sure have a look at
>it.
>
>I worked on the BarCode units when I was at TurboPower so I
>should be able to give a hand.
>
>Can you provide me with a stripped down test case shows the problem?
>
>Regards,
>
>Stephen Posey
>[EMAIL PROTECTED]
>
>_______________________________________________
>Delphi mailing list -> [email protected]
>http://www.elists.org/mailman/listinfo/delphi
>
>
>
>
>
>
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
