Eigenschaften von Bildern ausgeben

[mimi]

Es gibt noch eine Möglichkeit. Drücke mal bei Str.... STRG+Leertaste ob du da was findest...
Ich weiß nie genau wie das geschrieben wird.
Str...Blt

[BM_90]

Ich hab zur zeit kein Delphi drauf... Musste meinen PC neu aufspielen.

[mimi]

Such mal nach StretchBlt. Das dürfte für dich genau das richtige sein.

[BM_90]

Zitat:

Zitat von mimi

Such mal nach StretchBlt. Das dürfte für dich genau das richtige sein.

Danke!

[BM_90]

Zitat:

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

[mimi]

Zitat:

image1.proportional:=true;
image1.stretch:=true;

Das solltest du als erstes setzten. Aber warum das Bild Leer ist, weiß ich auch nicht.

Warum machst du das nicht mit "StretchBlt" ?

Einfach ein TBitMap Intern erstellen mit der gewünschten Größe bild rein Kopieren. Dabei wird es dann vergrößert Automatisch.

die Jpeg Unit hasst du aber ein gebunden oder ?