AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit Zint Barcode-Generator

Ein Thema von Oliver Voß · begonnen am 23. Aug 2010 · letzter Beitrag vom 13. Apr 2011
Antwort Antwort
Oliver Voß

Registriert seit: 10. Jul 2003
Ort: Bielefeld
7 Beiträge
 
Delphi 5 Professional
 
#1

Problem mit Zint Barcode-Generator

  Alt 23. Aug 2010, 14:23
Moin Forum,

ich probiere mal grade wieder mit Datamatrix-Codes in Verbindung mit Zint
Wenn ich diesen Barcode eingebe: 123456789012345
dann wird der Datamatrix-Code nicht mehr quadratisch sondern rechteckig (Seitenverhältnis 2:1) dargestellt. Ein paar Zeichen mehr oder weniger dann sieht es gut aus.
In dem Programm "Zint Barcode Studio" wird es immer richtig dargestellt.
Delphi-Quellcode:
  
var myBmp :TBitMap;
    ZintBarcode1 :TZintBarcode;

begin
  myBmp :=TBitmap.Create;

  ZintBarcode1.Clear;
  ZintBarcode1.Data := Edit1.Text;

  ZintBarcode1.BarcodeType := tBARCODE_DATAMATRIX;
  ZintBarcode1.GetBarcode(myBmp);
  Image1.Picture.Bitmap := myBmp;

  myBmp.Free;
end;
Mache ich irgendetwas falsch? Oder fehlt etwas?
  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: Problem mit Zint Barcode-Generator

  Alt 24. Aug 2010, 07:38
Naja ... ich gebe zu, das ist wenig tricky, aber vom Entwickler so geplant.
Zitat von http://www.zint.org.uk/zintSite/Manual.aspx?page=11:
An extra feature is available for Data Matrix symbols which allows Zint to automatically resize the symbol as required but also prevents Zint from using rectangular symbols. To set this mode at the command line use the option --square and when using the API set the value option_3 = DM_SQUARE
Lange Rede kurzer Sinn:
Delphi-Quellcode:
var myBmp :TBitMap;
    ZintBarcode1 :TZintBarcode;
begin
  ZintBarcode1 := TZintBarcode.Create;
  myBmp :=TBitmap.Create;

  ZintBarcode1.BarcodeType := tBARCODE_DATAMATRIX;
  ZintBarcode1.Option3 := 100;
  ZintBarcode1.Data := '123456789012345';
  ZintBarcode1.GetBarcode(myBmp);
  Image1.Picture.Bitmap := myBmp;

  ZintBarcode1.Free;
  myBmp.Free;
end;
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat
khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Problem mit Zint Barcode-Generator

  Alt 24. Aug 2010, 10:19
hallo zusammen,
die Einbindung von Zint zum Barcoddruck intressiert mich auch.
Leider konnte ich nur C++ Bibliotheken im Downloadbereich finden.
Dem obigen Beispiel nach muss es die aber auch für Pascal geben.
Bin ich blind, oder steh ich auf der Leitung?

Danke gruss KHH
Karl-Heinz
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Problem mit Zint Barcode-Generator

  Alt 24. Aug 2010, 10:22
http://www.delphipraxis.net/143986-%...lphi-zint.html
Markus Kinzler
  Mit Zitat antworten Zitat
khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Problem mit Zint Barcode-Generator

  Alt 24. Aug 2010, 10:41
ich danke dir

Gruss KHH
Karl-Heinz
  Mit Zitat antworten Zitat
Oliver Voß

Registriert seit: 10. Jul 2003
Ort: Bielefeld
7 Beiträge
 
Delphi 5 Professional
 
#6

AW: Problem mit Zint Barcode-Generator

  Alt 13. Apr 2011, 09:39
Moin Forum,

ich habe noch mal ein Problem mit Zint.

Ich wollte gestern noch mal etwas rumprobieren und bin jetzt auf ein Problem gestoßen.
Delphi-Quellcode:
procedure ZeichneDatamatrix;
var
  myBmp :TBitMap;
  myZintBarcode :TZintBarcode;
begin

  myZintBarcode := TZintBarcode.Create;
  myBmp := TBitmap.Create;


  myZintBarcode.Clear;
  myZintBarcode.BarcodeType := tBARCODE_DATAMATRIX;
  myZintBarcode.Option3 := 100;
  myZintBarcode.Scale := 1;
  myZintBarcode.Data := EditBarcode.Text;
  myZintBarcode.GetBarcode(myBmp);
  Form1.Canvas.Draw(0,0,myBmp);



  myBmp.Free;
  myZintBarcode.Free;
  end;
Wenn ich diesen Code ausführen lasse, dann bekommen ich eine Fehlermeldung: "Im Projekt XY ist eine Exception der Klasse EOutOfResources mit der Meldung 'Systemresourcen erschöpft.' aufgetreten."

In der Zint-Unit uZintInterface.pas in der Prozedur ZBarcodeToBitmap
Delphi-Quellcode:
procedure ZBarcodeToBitmap(ASymbol : PZSymbol; const ABitmap : TBitmap);
var
  //bmpinfo : TBitmapInfo;
  myp : PRGBTriple;
  row : Integer;
  rowwidth : Integer;
begin
  ABitmap.PixelFormat := pf24bit;

  ABitmap.SetSize(ASymbol.bitmap_width, ASymbol.bitmap_height);
hat ASymbol.bitmap_width einen Wert von 1311800 und ASymbol.bitmap_height 1310720.
Wie kommt es, dass dort solche großen Werte stehen? Der zu codierende Text war in diesem Beispiel "4455".

Gruß Oliver
  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:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz