AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte [Bibliothek] Barcode für Delphi (Zint)
Thema durchsuchen
Ansicht
Themen-Optionen

[Bibliothek] Barcode für Delphi (Zint)

Ein Thema von chaosben · begonnen am 27. Nov 2009 · letzter Beitrag vom 24. Okt 2020
Antwort Antwort
Carsten2

Registriert seit: 14. Jun 2010
22 Beiträge
 
Delphi 4 Standard
 
#1

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 31. Okt 2013, 21:12
Deswegen wurde in maxicode latin1_process nochmals aufgerufen:

function latin1_process
Code:
      if (source[i] = $C2) then
      begin
        preprocessed[j] := source[i + 1];
        if (preprocessed[j] < 128) then begin //Neu
          Inc(j);
          next := i + 2;
        end; //Neu
      end;
      if(source[i] = $C3) then
      begin
        preprocessed[j] := source[i + 1] + 64;
        if (preprocessed[j] < 128) then begin //Neu
          Inc(j);
          next := i + 2;
        end; //Neu
      end;
  Mit Zitat antworten Zitat
Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#2

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 1. Nov 2013, 08:34
Danke!

Das mit dem Array_Copy und dem #0 an 9. Stelle habe ich gefixt.
Deinen zweiten Vorschlag in der latin1_process verstehe ich nicht. Kannst du mir das ein bisschen erklären? (bin grad schwer von Begriff)
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat
Carsten2

Registriert seit: 14. Jun 2010
22 Beiträge
 
Delphi 4 Standard
 
#3

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 1. Nov 2013, 11:07
Das Ergebnis von latin1_process soll sein, dass jedes preprocessed[j] kleiner 128 ist!
Ist es aber erst bei zweimaligem Aufruf der Funktion oder eben mit meiner Änderung.
Teste es mit einem "ü"! Der veränderte latin1_process meldet den Fehler beim ersten Aufruf.

Oh je, ich lese gerade "ü" gehört zu latin-1.
Also vergesst meine Änderung!
Deswegen exitiert jetzt der Fehler nur in der zint.dll bei Maxicode.

Geändert von Carsten2 ( 1. Nov 2013 um 12:13 Uhr)
  Mit Zitat antworten Zitat
Carsten2

Registriert seit: 14. Jun 2010
22 Beiträge
 
Delphi 4 Standard
 
#4

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 4. Nov 2013, 12:55
Fehler in unit zint_upcean

in function eanx
local_source kann länger als 20 sein:
So tritt der Zeigerfehler jedenfalls nicht mehr auf!?
tritt auf mit BARCODE_EANX_CC Primary "012345678905+123", also falscher Add-on Länge...

Code:
  //SetLength(local_source, 20);//Alt
  SetLength(local_source, 41);//Neu

  //for reader := 0 to ustrlen(local_source) do //Alt
  //  if (source[reader] = Ord('+')) then with_addon := TRUE;//Alt
  for reader := 0 to ustrlen(local_source) - 1 do //Neu
    if (local_source[reader] = Ord('+')) then with_addon := TRUE;//Neu
in upcean.c ebenfalls bis <=!?

in procedure upce
noch einen:
Code:
  //for i := 0 to ustrlen(source) do //Alt
  for i := 0 to ustrlen(source)-1 do //Neu
    case Chr(parity[i]) of
      'A': lookup(NEON, EANsetA, source[i], dest);
      'B': lookup(NEON, EANsetB, source[i], dest);
    end;
in upcean.c ebenfalls bis <=!?

Geändert von Carsten2 ( 4. Nov 2013 um 13:32 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#5

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 6. Nov 2013, 10:39
Sehr gut! Danke!
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat
Carsten2

Registriert seit: 14. Jun 2010
22 Beiträge
 
Delphi 4 Standard
 
#6

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 12. Nov 2013, 16:39
Fehler in allen Composite Symbols
in Mode CC B bzw CC C:
Der PDF417-Part ist nicht identisch mit dem der Zint.dll
im Mode CC A ist alles OK!

2.
mehrere Zeigerfehler bei zsRSS_EXPSTACK
Data: "[28]1" oder "[28]123456"

meine Korrekturen, die Absturz verhindern, aber ein bisschen willkürlich sind:
unit zint_rss;
function rss_binary_string:
Code:
  SetLength(general_field, strlen(source) + 10);//geändert + 10
  SetLength(general_field_type, strlen(source) + 10);//geändert + 10
  SetLength(padstring, 40 + 10);//geändert + 10
function rssexpanded:
Code:
  SetLength(reduced, src_len + 20);//geändert + 20
  SetLength(binary_string, 7 * src_len + 7 * 20);//geändert + 7 * 20
3. Fehler korrigiert:
function rss_binary_string:
Code:
    4: begin concat(binary_string, '0101'); read_posn := strlen(source); end;
    //5: begin concat(binary_string, '0110XX'); read_posn := 20; end;//Alt
    5: begin concat(binary_string, '01100XX'); read_posn := 20; end;//Neu
    6: begin concat(binary_string, '01101XX'); read_posn := 23; end;

Geändert von Carsten2 (12. Nov 2013 um 17:11 Uhr)
  Mit Zitat antworten Zitat
Carsten2

Registriert seit: 14. Jun 2010
22 Beiträge
 
Delphi 4 Standard
 
#7

AW: [Bibliothek] Barcode für Delphi (Zint)

  Alt 29. Nov 2013, 12:55
Björk: It's so quiet...

Habe bisher den Fehler in den Composites nicht gefunden!

Oder ist da gar keiner mehr?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz