Einzelnen Beitrag anzeigen

canoniac

Registriert seit: 25. Aug 2014
26 Beiträge
 
#1

XE7 - ZintBarcode Exception

  Alt 20. Feb 2017, 08:20
Hallo zusammen,

ich habe folgendes Problem:
Ich Verwende in zwei Projekten die ZintBarcode - Komponente. In einem der Projekte lässt sich ein Barcode ohne Fehler erstellen, im anderen Fall kommt es zu einer Exception ("Systemressourcen erschöpft"). Bei der Fehlersuche habe ich den Code auf ein minimum reduziert und die entsprechende dll sowie die nötigen Units direkt aus dem funktionierenden Projektverzeichnis kopiert. Die "Hauptform" enthält nichts weiter als den angefügten Code. Die Exception tritt beim Aufruf von MyBarcode.GetBarcode() auf.

Delphi-Quellcode:
procedure THauptForm.FormCreate(Sender: TObject);
var
    MyBitmap :TBitMap;
    MyBarcode :TZintBarcode;

begin
  //BarCode zeichnen ***********************************************************
  MyBarcode := TZintBarcode.Create;
  MyBarcode.Clear;
  MyBarcode.Data := '00340311640213278478';
  MyBarcode.BarcodeType := tBARCODE_CODE128;
  MyBarcode.Option3 := 100;
  MyBarcode.Scale := 1;
  MyBarcode.GetBarcode(MyBitmap);
// MyCanvas.Draw(0,0,MyBitmap);
  //****************************************************************************

end;
Die Frage ist nun: Wie kann das sein?

Für Tipps wäre ich sehr Dankbar!

Danke im Voraus
canoniac
  Mit Zitat antworten Zitat