Image speichern mit Darstellungsgröße

[dal]

Hallo,

ich möchte mich jetzt schon für den unpassenden Titel entschuldigen. Ich habe ein Bitmap, dieses lade ich in ein Image. Die Originalgröße des Bitmaps ist 2600*2000. In meinem Programm stelle ich das Image immer etwas manipuliert da. Das Bild verändere ich über image.Height bzw. image.width. Jetzt versuche ich das Bild als jpeg abzuspeichern mit

Delphi-Quellcode:

jpeg.Assign(image.Picture.Bitmap);
jpeg.SaveToFile(filepath);

Das Bild wird aber in der Originalgröße abgespeichert. Mir ist schon klar warum und was dort passiert.
Mein Frage ist, wie kann ich das Image als Datei abspeichern, so wie ich es auch im TImage sehe?
Anders formuliert, ich will das Image genauso in eine Datei ablegen, als ob ich ein Screenshot von dem Image mache.

[DeddyH]

Wenn das Ergebnis proportional verkleinert werden soll, kannst Du es einmal mit StretchGraphic versuchen.

[dal]

Hat jemand vielleicht noch eine andere Idee?

[ConnorMcLeod]

Ein temporäres Bitmap erfinden und mit BitBlt dort in den gewünschten Dimensionen reinmalen und dieses speichern.

[DeddyH]

Was ist denn an meiner Prozedur auszusetzen?

[edit]

Delphi-Quellcode:

jpeg := TJPEGImage.Create;
try
  StretchGraphic(image.Picture.Bitmap, jpeg, image.Width, image.Height);
  jpeg.SaveToFile(filepath);
finally
  jpeg.Free;
end;

Das sollte doch funktionieren, oder nicht?[/edit]

[dal]

Leider funktioniert es nicht, oder ich versteh die Funktion falsch. Folgendes gebe ich ein:

Delphi-Quellcode:

try
  StretchGraphic(img1.Picture.Bitmap, jpeg, 2600, 10000);
  jpeg.SaveToFile(filepath);
finally
  jpeg.Free;
end;

[DeddyH]

Ich dachte, Du willst das Bild in der Größe des TImage haben. Wieso gibst Du dann diese riesigen Dimensionen an? Schau Dir mein letztes Edit noch einmal an, das dürfte eher passen, denke ich.

[dal]

Ja da hast du schon Recht, das Problem ist nur, das Originalbild stimmt nicht ganz in der Länge. In meiner Darstellung multipliziere ich mit 5, damit das Bild gestreckt wird. In der Darstellung sieht das auch gut aus, nur als Datei nicht. Mit deiner Funktion ändert sich das Bild proportional, egal ob ich height mal 5 setze.

[DeddyH]

Dann ersetz einmal die Zeilen

Delphi-Quellcode:

temp.Width := round(src.Width * faktor);
temp.Height := round(src.Height * faktor);

durch

Delphi-Quellcode:

temp.Width := DestWidth;
temp.Height := DestHeight;

Die ganze Faktorenberechnung kann damit dann auch entfallen.

[dal]

Jetzt funktioniert es
Vielen Dank für die Hilfe.