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;