Delphi Qualität eines JPEG-Bildes verringern

Thema durchsuchen

Ansicht

Themen-Optionen

Qualität eines JPEG-Bildes verringern

Ein Thema von MrKnogge · begonnen am 18. Nov 2007 · letzter Beitrag vom 18. Nov 2007

Vorheriger Beitrag

Nächster Beitrag

MrKnogge

Registriert seit: 9. Jun 2003
Ort: Pforzheim
2.458 Beiträge

Delphi 2007 Professional

Qualität eines JPEG-Bildes verringern

18. Nov 2007, 15:14

Hallo,

ich möchte die Qualität eines JPEG-Bildes verinngern:

zusammenfalten · markieren

Delphi-Quellcode:

			var

JpegImage1: TJpegImage;

begin

  JpegImage1 := TJpegImage.Create;

  try

    JpegImage1.LoadFromFile('c:\meinbild.jpg');

    JpegImage1.CompressionQuality := 50;

    JpegImage1.Compress;

    JpegImage1.SaveToFile('c:\meinbild.jpg');

  finally

    JpegImage1.Free;

  end;

end;