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;