Jpeg Kompression

[A-KI]

Servus

wie aus der überschirft schon hervorgeht geht es um die jpeg kompression.

ich möchte vorhandene jpg dateien öffnen und dann kompriemiert wieder abspeichern.

kann mir wer mal bitte einen tipp geben???

thx

[theo]

Code: Alles auswählen

uses FPWriteJPEG, FPReadJPEG, FPimage;
 
procedure TForm1.Button1Click(Sender: TObject);
var ci : TFPCustomImage;
  reader : TFPCustomImageReader;
  writer: TFPWriterJPEG;
begin
  ci := TFPMemoryImage.Create (0,0);
  reader := TFPReaderjpeg.Create;
  writer := TFPWriterJPEG.Create;
  writer.CompressionQuality:=10;
  try
    ci.LoadFromFile ('/home/theo/25.jpg', reader);
    ci.SaveToFile('/home/theo/25n.jpg', writer);
  finally
    ci.free;
    reader.Free;
    writer.Free;
  end;
end;

[A-KI]

danke

aber irgendwie tut sich da bei mir nichts?? ausser das die cpu auslastung voll ausgelastet ist.

[Christian]

Du musst noch deine jpegś angeben

[A-KI]

Du musst noch deine jpegś angeben

haha

sicher habe ich da meine eigenen jpg dateien angegeben.

[theo]

aber irgendwie tut sich da bei mir nichts??

Und was erwartest du jetzt auf diesen hochinformativen Beitrag für eine Antwort?
Soll ich sagen: "Tut mir leid für dich"?

[creed steiger]

Lad mal ein (kleines) von deine Bildern hoch,dann kann man gegentesten.