Bilder verkleinern

[Der_Unwissende]

Ein JPEGImage hat ebenfalls die Eigenschaften Width und Height. Die Methode DIBNeeded dekomprimiert es auch in ein Bitmap.
Für einen nicht schönen aber sehr einfachen Weg würde ich dir auch einfach eine nicht sichtbare TImage Komponente empfehlen. Dort kannst du Stretched und Proportional auf True setzen und jede Graphic, die du dem zuweist würde automatisch gestreckt / gestaucht werden (stretched), wobei die Seitenverhältnisse beibehalten werden (proportional). Kannst du natürlich auch ausrechnen und entsprechend mit ner Hintergrundbitmap machen.
Nachdem du dein JPEG als Graphic dem TImage zugewiesen hast, musst du das Image des TImage per assign deinem JPEG zuweisen. Nun kannst du das JPEG wieder abspeichern et voila...
Aber achte auf die richtige Kompressionsrate beim abspeichern (findest du alles in der Hilfe von TJPEGImage), auch wenn du es schon weißt, möchte ich nochmal sagen, das JPEG immer verlustbehaftet abgespeichert werden, auch bei 100% Qualität. D.h. 30000x öffnen und speichern führt wahrscheinlich zu einem BIld, das wenig mit dem Original zu tun hat (also wie oft man komprimieren muss hängt natürlich vom Bild und der benutzten Qualität ab).

Gruß Der Unwissende