Canvas in Image zeichnen

[ArmyMan]

Hallo allerseits

Hab mal ne frage.
Wie kann ich einen Canvas in ein Image rein zeichnen um dann als .bmp oder .jpeg abzuspeichern??
Versuche es schon ewig aber finde irgends wie keine Lösung.

Danke im voraus
ArmyMan

[Dax]

Zeichne doch ein eine TBitmap.Canvas. Wenn du dann das ganze speichern willst, rufst du einfach TBitmap.Picture.SaveTo*** auf.

[ArmyMan]

Ja. Hab ich versucht, aber wie genau geht das? Kanns du mir einen Beispiel Quelltext zeigen bitte.

[Dax]

Delphi-Quellcode:

var bmp: TBitmap;

bmp := TBitmap.Create; //Erzeugen
bmp.Canvas.Draw.... //Was reinmalen
bmp.Picture.SaveToFile('C:\foo.bmp'); //speichern

[maximus Caesar]

Du kannst natürlich auch folgendes machen:
TImage.Canvas.Draw

[ArmyMan]

Ok. Das weiss ich. Jetzt wie kann ich ein Canvas in ein Bitmap zeichnen???
Ich habe ein fertig gezeichnetes canvas das ich in ein neues zeichnen möchte um es dann als .bmp zu speichern.
Wie funtzt das??

ArmyMan

[Dax]

Delphi-Quellcode:

TBitmap.Canvas := MyCanvas;

[ArmyMan]

Hab ich versucht aber es funktioniert nicht.
Folgender Fehler:

cannot assign to a Read-Only property

Was bedeutet das und wie kann ich das zum laufen bringen?

ArmyMan

[roderich]

schau dir mal Draw, StretchDraw oder CopyRect an.

Roderich

[static_cast]

Hi,

Zitat:

Zitat von Dax

Delphi-Quellcode:

TBitmap.Canvas := MyCanvas;

so würd ich das nicht unbedingt machen dann überschreibst du ja dein zeiger vom canvas beim bitmap mit dem vom MyCanvas. Besser ist es es so zu lösen: Destination.Assign(Source);

sprich:

Delphi-Quellcode:

TBitmap.Canvas.Assign(MyCanvas);

Grüsse
Daniel

[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?

Delphi-Quellcode:

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 :-D

[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. :-D