Wenn ichm it folgender Procedure das BMP wieder in ein JPG umwandeln möchte, merke ich hinterher, dass zwar die Datei die Endung jpg hat, wie ich es im Dialog angebe, die Datei aber so groß wie eine BMP ist.
Delphi-Quellcode:
If (FileExists(ParamStr(1))) and (LowerCase(ExtractFileExt(ParamStr(1))) = '.bmp') then
begin
Try
JPG.Create;
JPG.Assign(imgPreview.Picture);
JPG.SaveToFile(edtSave.Text);
Finally
FreeAndNil(JPG);
end;
end;
Diesen Code fand ich in der
DP.
Vielleicht habe ich auch etwas versehentlich entnommen, weil ich dachte, es wäre unwichtig ...