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%?

zusammenfalten · markieren

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;

Geht wunderbar. Die Windows Bild und Faxanzeige von XP kann das JPEG ohne Probleme öffnen und anzeigen, genauso Paint und PhotoFiltre.

Hast du auch ein Bitmap in Image1.Picture?

Zitat von DGL-luke:

Hast du auch ein Bitmap in Image1.Picture?

Das stimmt. In Image1.Picture war ein Bitmap-Bild

Danke!


Kann man statt die Qualität, die Größe eingeben?

d.h.das Bild soll so komprimiert, bis seine Größe <= 200 kb


Gruß