Nicht sichtbaren TPaintBox Inhalt speichern

[Sir Rufo]

Und was soll dir dieses Exception-Handling bringen?

Das sollte dich glücklich(er) machen:

Delphi-Quellcode:

procedure QRCodeSave( aFileName : string; aImage : Timage );
var xBitmap : Graphics.TBitmap;
Begin
  if not fileDirOk( aFileName ) then
    raise Exception.CreateFmt( '"%s" ist ungültig', [aFileName] );
  if not Assigned( aImage ) then
    raise EArgumentNilException.Create( 'aImage' );

  xBitmap := Graphics.TBitmap.Create; 
  try
    xBitmap.Height := aImage.Height;
    xBitmap.Width := aImage.Width;
    xBitmap.Canvas.Draw( 0, 0, aImage.Picture.Graphic);
    xBitmap.SaveToFile( aFileName );
  finally
     xBitmap.Free;
  end;
end;