Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
4.093 Beiträge
 
Delphi 12 Athens
 
#2

AW: XE7 - ZintBarcode Exception

  Alt 20. Feb 2017, 11:23
Kann es sein das es daran liegt dass das TBitmap nicht erzeugt ist ?

Delphi-Quellcode:
procedure ZeichneBarcode;
var
  myBmp :TBitMap;
  myZintBarcode :TZintBarcode;
begin

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


  myZintBarcode.Clear;
  myZintBarcode.Data := '00340311640213278478';
  myZintBarcode.BarcodeType := tBARCODE_CODE128;
  myZintBarcode.Option3 := 100;
  myZintBarcode.Scale := 1;
  myZintBarcode.GetBarcode(myBmp);
  Form1.Canvas.Draw(0,0,myBmp);



  myBmp.Free;
  myZintBarcode.Free;
end;
Rollo
  Mit Zitat antworten Zitat