[Bibliothek] Barcode für Delphi (Zint)

[0815achim]

@matashen

Du darfst nich Colorbox1.Color nehmen sondern Colorbox1.Selected.
Dann geht's

Gruß... 0815achim

Hoppla!
Sehe gerade das es in der Demo von Marco bereits richtig drin steht.

[matashen]

Ach ja, danke.

Ab und zu steht man einfach sowas von daneben

[Carsten2]

Fehler, die ich gefunden habe:
zint.pas
in function hibc:

Code:

  //for i := 1 to _length do
  for i := 0 to _length-1 do //geändert
    Inc(counter, posn(TECHNETIUM, source[i])) ;

in function ZBarcode_Encode:

Code:

  if (symbol.input_mode = GS1_MODE) then
  begin
    //for i := 1 to _length do
    for i := 0 to _length-1 do //geändert
    begin

zint_aztec.pas
in function aztec_runes:

Code:

  //strcpy(binary_string, '');
  for i := 0 to 28-1 do binary_string[i]:=#0;//geändert

Code:

if (ecc_codewords[4 - i] and v) <> 0 then binary_string[j] := '1' else
  //binary_string[j + 1] := '0';
  binary_string[j] := '0';//geändert

wer veröffentlicht weitere? Danke!

[HighBaer]

Zunächst an Chaosben an den anderen des Teams: Klasse Arbeit! :thumb:

Mir ist da auch ein kleiner Fehler in Micro-QR aufgefallen:

Bei Auswahl der "Version 4" kommt es zu einer Zugriffsverletzung.

Ich denke der Fehler liegt daran, dass bei der Umwandlung von "TmqVersion" zu Option_2 Version 1 den Wert 1 hat usw.
intern wird aber mit den Werten 0 bis 3 gearbeitet. Wert 4 führt daher zu dem Fehler, ich vermute daher auch, dass bei Auswahl von "Version 2" in Wirklichkeit Version 3 angezeigt wird.

Der Fehler ist meine Meinung nach in "zint_qr.pas" in Funktion "microqr" (Zeile 2451):

Delphi-Quellcode:

   
// Get version from user
if((symbol.option_2 >= 1) and (symbol.option_2 <= 4)) then
begin
  if(symbol.option_2 >= autoversion) then
    //version := symbol.option_2; Originalzeile
    version := symbol.option_2 - 1; // geändert
end;

In der gleichen Funktion vorher in Zeile 2405 ist vermutlich auch was falsch, was aber nicht so gravierend ist:

Delphi-Quellcode:

   // Eliminate possible versions depending on error correction level specified
   ecc_level := LEVEL_L;
   if((symbol.option_1 >= 1) and (symbol.option_2 <= 4)) then
     ecc_level := symbol.option_1;

Sollte der 2. Vergleich nicht "symbol.option_1 <= 4" lauten, macht in meinen Augen mehr Sinn.

Ich hoffe, ich habe Euch damit weitergeholfen ...

[Carsten2]

für MICRO QR gibt es meiner Meinung nach keine Feherkorr. HIGH.
mqv4 ist so also obsolet.

Code:

// Get version from user
if((symbol.option_2 >= 1) and (symbol.option_2 <= 3)) then // geänderet

Code:

// Eliminate possible versions depending on error correction level specified
ecc_level := LEVEL_L;
if((symbol.option_1>=1)and(symbol.option_1<=3))then  ecc_level:=symbol.option_1;// geänderet

Ja Chaosben, vielen Dank für die Arbeit!:thumb:

[stalkingwolf]

Wird der Code wirklich gezeichnet?
Falls ja, dann bin ich gespannt wie das auf kleinen Etiketten ausschaut und gelesen werden kann.
Unsere Erfahrung auf z.b Zebra GK420&Co das es nicht funktioniert.
Bei einer Etikettengröße von z.b 30x25mm nicht oder nur sehr schlecht lesbar. Meisten Handscanner schmeißen das Handtuch ( wenn nicht vorher der Kassierer den Scanner geworfen hat :lol: ).

Wir sind daher auf Schriftarten umgestiegen und haben die jeweiligen Algorithmen einprogrammiert.

Ich lasse mich aber gern eines bessere belehren. Die Schriftartenlogik beherbergt auch so ihre Probleme.

LG
Sven

[Carsten2]

weiterer Fehler

ZINT_QR.PAS
in function evaluate

Code:

// Test 4: Proportion of dark modules in entire symbol
  dark_mods := 0;
  for x := 0 to size - 1 do begin
    //for y := 0 to size do begin // geändert
    for y := 0 to size - 1 do begin // geändert

[MarcoWarm]

Hallo zusammen,
Und vielen Dank für die Fehlersuche. Ich werde mir das am Montag mal anschauen. Es wäre in der Zwischenzeit schön, wenn ihr die Fehlermeldung Bugtracker bei Google Code Posten könntet. Unserer Ansicht nach ist das der richtige Ort dafür. Ausserdem können wir dort gezielt auf jeden Fehler eingehen.
Schönes Wochenende
Von
Marco

[chaosben]

Danke für die Lobe und die Fehler! :)

Ausnahmsweise machen wir das heute mal kurz und unbürokratisch. Die Bugs sind in der aktuellen Revision gefixt.
Alles was ihr noch so findet, könnt ihr dann bitte hier posten.

Und nächste Woche sitzt dann Marco an der Hotline und ich mache Urlaub. :-D

[Carsten2]

Liebe Leut'

ich bin nicht bei Google und will es auch nicht sein.:thumb:
Ich verstehe leider nicht, warum hier nicht der richtige Ort sein soll, um auf Fehler im Quellcode hinzuweisen.
Gibt es eine andere (Google-)freie Möglichkeit?:coder: