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;

[DeddyH]

BTW: wäre es so nicht einfacher?

Delphi-Quellcode:

xBitmap := Graphics.TBitmap.Create;
  try
    xBitmap.Assign(aImage.Picture.Graphic);
    xBitmap.SaveToFile( aFileName );
  finally
     xBitmap.Free;
  end;

[Sir Rufo]

Ja, aber was soll ich denn noch alles machen?

(Was schreibe ich denn für heute in mein Berichtsheft? )

[cramer]

Vielen Dank ihr Beiden.

Zitat von DeddyH:

Wo ist denn die Zeile
xBitmap := TBitmap.Create;

Gute Frage
Jetzt funktionieren beide Versionen, die "Glücklich Machende" und die "BTW" auch.

Zur Frage "Und was soll dir dieses Exception-Handling bringen?"

"FileDirOK()" prüft den Pfad und legt ihn ggf an.
Wenn das schon nicht geht, liefert QRCodeSave "false" zurück und die übergeordneten Abläufe werten das aus.

FehlerOK() speichert einen Eintrag ins Fehlerlog und prüft, ob das Programm im "AutoMode" läuft.
Falls nicht, gibts auch noch einen Fehler-Dialog für den Anwender.

[himitsu]

Und was mir grade noch aufgefallen war:

Du willst also unsichtbar im Hintergrund ein Bild malen, wolltest dafür aber eine "sichtbare" Komponente auf der Form benutzen.

Also in dem Fall nimmt man natürlich eine unsichtbare "Komponente", welche man nicht auf das Form liegen hat.
-> TBitmap erstellen, drauf malen, speichern und Bitmap wieder freigeben

Aber da man den QR-Code eventuell auch mal anzeigen möchte, trennt man den Zeichen-Code komplett von irgendeiner Componente.
-> Zeichenfunktion bekommt ein TCanvas, dann noch eine X- und Y-Position und vielleicht noch die Größe Width/Height.
Dann ist es auch egal, ob man auf ein Bitmap, Jpeg, PNG oder ein TImage.Bitmap zeichnet.

-> TBitmap erstellen, die Funktion drauf malen lassen, speichern und Bitmap wieder freigeben
oder
-> TImage auf die Form und dann nur noch die Zeichenfunktion auf Image1.Picture.Bitmap.Canvas zeichnen lassen
(vorher natürlich noch die Größe der Bitmaps setzen, falls die Größe nicht bereits gesetzt ist)

[cramer]

Danke für die Zusatzinfos.

[Sir Rufo]

Ja, während du schreibst

Delphi-Quellcode:

if not QRsave( ... ) then
begin
  ShowMessage( 'Irgendwas ging da nicht' );
  Exit;
end;
if not FooMe( ... ) then
begin
  ShowMessage( ... );
  exit;
end;

schreibe ich einfach

Delphi-Quellcode:

QRsave( ... );
FooMe( ... );

habe das gleiche Verhalten und kann bei einem Fehler sehr exakt sagen, was genau in die Hose gegangen ist:

• Der Dateiname ist ungültig
• Die Instanz aImage ist nil
• Das Speichern des Bitmaps ist aus dem Grund "..." fehlgeschlagen

[pelzig]

Antwort eines Pfuschers:

Bei vielen VCL-Elementen kann man Visible auf false setzen ODER Left auf minus Soundsoviel minus Komponentenbreite

Tand ist das Gebuild aus Menschenhand

Man möge mich in der DP bitte nicht deswegen lynchen!

Mogeln gehört zum Handwerk...

MfG