bmpZUjpeg ?

[taktaky]

Zitat von Luckie:

Welchen Rückgabetyp hat die Methode SaveToFile von TImage und was für ein Typ erwartet deine Funktion BmpToJpeg?

Image-Type ist BMP
Also die Funktionen bekommt einen Typ von bmp und soll sie in jpeg convertieren

Es liegt nicht an die Funktion sondern an die Verknüpfung der Funktion in SaveDialog1 oder :

Vorher habe ich immer die gute Funktion verwendet

Delphi-Quellcode:

procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(JpgFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;