[Bibliothek] Barcode für Delphi (Zint)

[Carsten2]

Liebe Leut'

ich bin nicht bei Google und will es auch nicht sein.
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?

[chaosben]

Nagut ... alle, die eine akute Google-Allergie haben, können auch in diesem Thread posten.

[Codehunter]

Google Code hat wahrscheinlich genauso viele Lorbeeren verspielt wie Sourceforge. Viele sind deshalb zu Github abgewandert. Mir ist das aber weitgehend Jacke wie Hose, ich bleibe wohl bei SF, nach kleineren Ausflügen zu GC mit mäßigen Ergebnissen.

Insofern ist es nicht schlecht, wenn man auch hier Feedback geben kann. Aus Sicht der Maintainer wäre es bei GC aber sicher einfacher.

[Carsten2]

Danke

in unit zint_render_canvas;

ClearBackground mit Rectangle und Pen verursacht
verschobenen Hintergrund... (besonders bei kleiner Module-Grösse wie 1 auf TMetafilecanvas sichtbar)

Besser wie in DrawRect FillRect benutzen:

Code:

procedure TZintRenderTargetCanvas.ClearBackground(
  const AParams: TZintClearBackgroundParams);
begin
  FCanvas.Brush.Color:=FBGColor;
  FCanvas.Brush.Style:=bsSolid;
  //Canvas.Pen.Style:=psSolid; //geändert
  //FCanvas.Pen.Color:=FBGColor; //geändert

  //FCanvas.Rectangle(Round(AParams.X), //geändert
  FCanvas.FillRect(Rect(Round(AParams.X), //geändert
                        Round(AParams.Y),
                        Round(AParams.X + AParams.Width),
                        Round(AParams.Y + AParams.Height)
                        )//geändert
                        );

[Carsten2]

Fehler
in unit zint_gs1
in function ugs1_verify:

"reduced" in ustrcpy benötigt Länge von "temp"...

Code:

  if (strlen(temp) < src_len + 5) then
  begin
    SetLength(reduced, src_len + 5); //hinzugefügt
    ustrcpy(reduced, ArrayOfCharToArrayOfByte(temp));
    Result := 0; exit;
  end;

[chaosben]

Danke!
Ist nun gefixt. Der Fehler lag sogar noch höher.

[Carsten2]

Danke zurück!

Aztec mit GS-1 funktioniert nicht richtig.
Fehler nicht gefunden!

in Function aztec_text_process:
Es fiel mir auf:
2 While-Schleifen in Repeat-Until geändert.
z.B.:
"while (i < (maplength - 1) do begin"
ist aber etwas anderes als
"until not (i < (map_length - 1));"

Warum "if (gs1 <> 0) and (i = 1) then"
statt "if(gs1 && (i == 0)) { " wie in aztec.c

Das alles verursacht aber nicht den Fehler:
in bctester_de.exe ergibt "[28] 1234567"
mit zint.pas "2#8 1234567"
mit zint.dll "]z128 1234567"
"]z1" ist wohl richtig, da es FNC1 ist.

Wer hat da eine Idee?