Eigenschaften von Bildern ausgeben

[BM_90]

Zitat von Muetze1:

Na dann ändere doch einfach die Auflösung des Bildes und nicht der Komponente, also TImage.Picture.Width und entsprechend TImage.Picture.Height ...

Ich hab das nochmal ausprobiert... Hatte einen Fehler drin.
Habe jetzt nur das Problem, dass man die Größe von JPGs nicht ändern kann. Also lasse ich per ButtonClick das Bild als BMP soeichern un wieder einlesen. Das funktioniert soweit. Nur habe ich jetz das problem, dass nachdem ich die Größe verändert habe, ich nur noch ein leeres Bild habe...

Mein Code sieht so aus:

Delphi-Quellcode:

procedure ... ;
begin
image1.picture.graphic.savetofile('C:\...\tmp.bmp');
image1.picture.graphic.loadfromfile('C:\..\tmp.bmp');
image1.picture.bitmap.height:=strtoint(edit3.text);
image1.picture.bitmap.width:=strtoint(edit4.text);
image1.proportional:=true;
image1.stretch:=true;
image1.picture.graphic.savetofile('C:\...\tmp.bmp');
end;

Weiß jemand warum das nicht funktioniert??