Jpegs : Qualität verringern

[APP]

Zitat:

Zitat von ssach

es funzt leider noch immer nicht bei mir, hab alles versucht, will ich dann die qualitätsveranderung starten stürzt das programm ab mit einem Hinweis auf die Zeile

Hast Du meinen oben geposteten Code einmal unverändert ausprobiert?

Funkt er?

Wenn ja, poste mal Deine Version die den Fehler bringt, vielleicht ist dort der Wurm drin.

[Matze]

@Armin: Bei mir geht dein Code einwandfrei!! :thumb:

[ssach]

Delphi-Quellcode:

procedure JpegConvert (INPUT,OUTPUT : string; QUALITY : integer);
var
   jpg                             : TJpegImage;
begin
   jpg := TJpegImage.Create;
   try
      jpg.Loadfromfile('INPUT');
      jpg.CompressionQuality := QUALITY;
      jpg.DIBNeeded;
      jpg.Compress;
      jpg.SaveToFile('OUTPUT');
   finally
      jpg.free;
   end;
end;

Hier ist mein Code und er funzt leider nicht..! :(

[Matze]

Wenn du INPUT und OUTPUT ohne die zwei ' schreibst, dann geht das so.

[APP]

Hallo, ssach,

so auf die Schnelle würde ich meinen, dass Dein Code eine Zeile vorher
crasht. Soweit ich weiß, benötigt Load/SaveToFile eine komplette Pfadangabe.

Zitat:

Zitat von ssach

Delphi-Quellcode:

      jpg.Loadfromfile(INPUT);  // 'C:\input.jpg'
      jpg.SaveToFile(OUTPUT);   // 'C:\output.jpg'

[EDIT] Oder wie Matzte meint, falls Du Deine Pfadangaben in Variablen
(INPUT, OUTPUT) gespeichert hast, dann gilt natürlich seine Lösung! [/EDIT]

[Matze]

der Aufruf muss dann so aussehen:

Delphi-Quellcode:

procedure Button1Click(Sender:TObject);
begin
  JpegConvert('C:\Bild1.jpg','C:\Bild2.jpg',50);
end;