Bild verkleinern und verkleinert speichern

[mcmittag]

Tag auch !

Ich hab da ein Problem :
Ich möchte in mein Programm einbauen, dass er ein beliebiges Bild lädt, es verkleinert und dann auch verkleinert abspeichert. Folgendes habe ich eingebaut :

procedure TForm1.SaveClick(Sender: TObject);
begin
  image1.Height := 500;   // nur als Beispiel
  image1.Picture.SaveToFile(filename);
end;

Wenn ich es jetzt aber speichere, hat das Bild die selbe Größe wie vorher ...
Weiß jemand, was ich falsch mache

Vielen Dank schonmal und schönen Sonntag noch !

 

[vop]

Damit änderst Du lediglich die Darstellungsgröße.

Kleiner Tipp:
Es gibt ein nettes Programm für diesen Zweck:
Irfanview.
Dort kann man per Kommandozeilen-Aufruf auch verkleinerte Bilder speichern
Besorg Dir IrfanView und sieh in der Hilfe unter Befehlszeilen-Parameter (oder so)
mach.
IrfanView kannst Du dann via ShellExecute aufrufen....

vop