Canvas in Image zeichnen

[ArmyMan]

Funktioniert nicht...
Oh mann!!! Ich weiss nicht was ich tun soll.

Delphi-Quellcode:

var
  b : TBitmap;
begin
  if SaveDialog.Execute then
  begin
    b := TBitmap.Create;
    blatt.CopyRect(b.Canvas.ClipRect,blatt,blatt.ClipRect);
    b.SaveToFile(savedialog.FileName);
  end;
end;

Blatt entspricht MyCanvas

Was ist falsch hier?

[static_cast]

Was genau hast du denn vor?

Du willst Canvas A nach Canvas B kopieren?

BitBlt(B.Canvas.Handle,0,0,B.Width,B.Height,blatt.Canvas.Handle,0,0,SRCCOPY);

[ArmyMan]

Ja das hab ich vor. Aber dass was du geschrieben hast funktioniert nicht!

[static_cast]

was genau geht denn nicht?

[ArmyMan]

Nach dem speichern habe ich ein bild das 0 kb gross ist und nicht enthält. Aber das canvas hat 100%ig etwas drin!

[mytar]

BMPs sind ja immer so groß.

Eignet sich dafür nicht TJPEGImage aus der Unit jpeg besser.
Da kann man ja auch noch komprimieren (Compress) und sogar die Qualität (CompressionQuality) setzen.

greetz

[ArmyMan]

Das kommt doch gar nicht drauf an ob man BMP oder JPEG nimmt. Das Problem das ich habe ist das Zeichnen von einem Canvas ins Andere!

[mytar]

Sieh dir dazu in der OH TJPEGImage.
Da ist ein Beispiel drinnen.