Speichern der Canvas

[Blubbel]

Aber was pasiert mit jpg.Canvas.Handle ? Muss das ganz weg?

Habe es jetzt so

Delphi-Quellcode:

jpg.Assign(Image1.Picture.Bitmap)(jpg.Canvas.Handle,0,0,jpg.Width,jpg.Height,  //jpg.Canvas.Handle geht nicht
               Image1.Canvas.Handle,0,0,SRCCOPY);

[Union]

Sorry, ich meinte natürlich den ganzen BitBlt. Auch die beiden Zeilen mit der Größenzuweisung können weg.

[Blubbel]

Alles klärchen

[Blubbel]

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidGraphicOperation mit der Meldung 'Die Größe einer JPEG-Grafik kann nicht verändert werden' aufgetreten.

... habs auch schon verändert, dass er die Größe vom Image nimmt aber das will er genauso wenig

[Neutral General]

Mal dein Canvas auf ein Bitmap, erstelle ein JPEG, Assigne das Bitmap und speicher das JPEG.

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure TForm1.btnSaveClick(Sender: TObject);
var
  jpg: TJpegImage;
begin
  if SaveDialog1.Execute then
    begin
      jpg := TJpegImage.Create;
      Try
        jpg.Assign(Image1.Picture.Bitmap);
        jpg.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.jpg'));
        ShowMessage('Gespeichert!');
      Finally
        jpg.Free;
      end;
    end;
end;

[Blubbel]

Ganz genau das wollte ich... Naja wäre nur ein kleiner trotzdem schwerer Schritt gewesen!
Wüsste echt nicht was ich ohne euch machen sollte!!

DANKE EUCH!