Größe eines Jpeg reduzieren, nur Größe ändern reicht nicht

Hansi@OMG · Beiträge: 304 Vista Delphi 2006 Prof., Lazarus

Hallo,
ich verwende aus den Jedikomponenten das tjvthumbimage. Diese Kompo hat die Funktion Scaledown. Wenn ich jetzt aber ein Bild hernehm mit 800x600 und resize es auf 640x480, dann ist die fertige Datei größer als die mit der höheren Auflösung. Woran kann das liegen, oder reicht resizen nicht aus? Es gibt von dieser Kompo auch noch die Funktionen ChangeRGB und ChangeRGBCurves. Allerdings weis ich nicht, was das ist. Hier mein Code:

markieren

Delphi-Quelltext

1:
2:
3:

 jvthumbimage1.Picture.LoadFromFile('C:\test.jpg');
 jvthumbimage1.ScaleDown(640,480);
 jvthumbimage1.picture.SaveToFile(extractfilepath(paramstr(0))+'upload.jpg');

Info: Bild ist am Anfang 96 KB groß und wird dann ca. 800 KB groß!!!

_________________
Who doesn't know the Micrsoft developer "Mahatma Fatal Error"?

WeBsPaCe · Verfasst: Sa 04.06.05 09:18

Vielleicht musst du die Compression nochmal neu setzen. Schau doch mal nach der Eigenschaft jvthumbimage1.Compression. Könnte mir gut vorstellen, dass die so heißt. Kenn' mich mit den Jedi-Komponenten leider nicht so aus.

3rdnuss · Beiträge: 139

Vielleicht wird es unkomprimiert oder evtl. wird es als bmp mit jpg endung gespeichert.
Verssuch nochmal das Bild zu komprimieren.

Gruß Felix

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme