Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
4.069 Beiträge
 
Delphi 12 Athens
 
#6

AW: XE7 - ZintBarcode Exception

  Alt 20. Feb 2017, 16:29
So ungefähr funktioniert es bei mir.

Vielleicht liegts am .Refresh ?


Delphi-Quellcode:
procedure TForm1.ActionQrGenerateSingleExecute;
var
  bmpQr: TBitmap;
  picQr: TJpegImage;

begin

 ZintBarcodeComponent1.Barcode.Scale := SpinEditScale.Value / 100.0;

 ZintBarcodeComponent1.Barcode.Data := strX;
 ZintBarcodeComponent1.Refresh;

 //
 // Get Barcode
 //
 bmpQr := TBitmap.Create;
 picQr := TJpegImage.Create;

 try

   ZintBarcodeComponent1.Barcode.GetBarcode(bmpQr);

   picQr.Assign(bmpQr);
   picQr.CompressionQuality := 80;
   picQr.SaveToFile( strFile + '.jpg'); // Save as JPEG

 finally

   FreeAndNil(picQr);
   FreeAndNil(bmpQr);

 end;

end;
  Mit Zitat antworten Zitat