barcode mit barcode.pas

[DeddyH]

Naja, so lang ist die DrawBarcode-Methode ja nicht, als dass das in stundenlange Arbeit ausarten würde

[p80286]

Hallo zusammen,

der Fehler steckt wohl hier:

Delphi-Quellcode:

 case tabelle_ParityEAN13[LK,i] of
                        'A' : for j:= 1 to 4 do
                                                result := result + tabelle_EAN_A[tmp[i], j] ;
                        'B' : for j:= 1 to 4 do
                                                result := result + tabelle_EAN_B[tmp[i], j] ; // <<<<<<<<<
                        'C' : for j:= 1 to 4 do
                                                result := result + tabelle_EAN_C[tmp[i], j] ;
        end;

da wird eine #0 zurück geliefert. Auch wenn j von 4 nach 1 gezählt wird, sollten zumindestens keine #0 zurückgegeben werden.

Edith: Ich nehme beinahe alles zurück. Da fehlen eine Menge formale Prüfungen. So sollte es z.B. nicht möglich sein mit einem 5stelligem Code zu versuchen eine EAN13 zu erzeugen. Das geht schief!

Gruß
K-H

[khh]

mh und nu?
es kann doch nicht soo schwierig sein ein paar Striche auf dem Drucker auszugeben

habt ihr ne andere idee?

[blackfin]

Welche Barcode-Typen brauchst du denn genau?

[TurboMartin]

Wie wäre es, wenn Du dir dieses nicht gefundene Zeichen einfach mal ausgeben lässt?
Ggf. hilft dir auch ein Trim auf die data-Variable.

[khh]

Zitat von TurboMartin:

Wie wäre es, wenn Du dir dieses nicht gefundene Zeichen einfach mal ausgeben lässt?
Ggf. hilft dir auch ein Trim auf die data-Variable.

gute idee, danke dir
@blackfin , auf jeden Fall EAN,der rest ist noch nicht sicher.

Gruss KHH

[RaSoWa1]

@khh
Als Anlage eine aktuellere Version (1.25) der Barcode.pas
Vieleicht ist hier dein Fehler behoben.
Ich nutze sie mit D2010 um 7-stellige Codes zu drucken und zu lesen.

Gruß Klaus