Bild als jpeg erstellen und gleichzeitig kompremieren

[taktaky]

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;

[Luckie]

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

[DGL-luke]

Hast du auch ein Bitmap in Image1.Picture?

[taktaky]

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ß