Forum: Multimedia
by DeddyH,
13. Feb 2012
Du warst auch nicht gemeint :zwinker:
Forum: Multimedia
by DeddyH,
13. Feb 2012
Dann ersetz einmal die Zeilen
temp.Width := round(src.Width * faktor);
temp.Height := round(src.Height * faktor);
durch
temp.Width := DestWidth;
temp.Height := DestHeight;
Die ganze Faktorenberechnung kann damit dann auch entfallen.
Forum: Multimedia
by DeddyH,
13. Feb 2012
Ich dachte, Du willst das Bild in der Größe des TImage haben. Wieso gibst Du dann diese riesigen Dimensionen an? Schau Dir mein letztes Edit noch einmal an, das dürfte eher passen, denke ich.
Forum: Multimedia
by DeddyH,
13. Feb 2012
Was ist denn an meiner Prozedur auszusetzen?
jpeg := TJPEGImage.Create;
try
StretchGraphic(image.Picture.Bitmap, jpeg, image.Width, image.Height);
jpeg.SaveToFile(filepath);
finally
jpeg.Free;
end;
Forum: Multimedia
by DeddyH,
10. Feb 2012
Wenn das Ergebnis proportional verkleinert werden soll, kannst Du es einmal mit StretchGraphic versuchen.