Hallo,
der Code erzeugt ein Jpg-Bild. Man kann aber das Bild danach nicht öffnen (unlesbar)!
Warum ist das Bild nicht lesbar, obwohl die Kompression nur 10%?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var jpg :TJPEGImage; //benötigt "uses jpeg"
begin
jpg:=TJPEGImage.Create;
try
jpg.Assign(image1.Picture.Bitmap);
jpg.CompressionQuality := 90; //Qualität 90%
jpg.Compress;
with SaveDialog1 do Begin
Options:=[ofCreatePrompt,ofEnableSizing,ofHideReadOnly,ofShareAware,ofEnableSizing]; //Ohne Kästchen
Filter :='JPG-Dateien (*.jpg)';
filename := ChangeFileExt(filename, '.jpg');
DefaultExt:='jpg';
if execute then Begin
jpg.SaveToFile(Filename);
End else showmessage('Nicht gespeichert');
End;
finally jpg.Free end;
end;