Warum wird JPEG-Dateigröße größer?

[Chewie]

Ich habe mir eine kleine Klasse geschrieben, die bei einem JPEG oben und unten Streifen einer bestimmten Farbe hinzufügt, damit das Bild eine vorgegebene Größe erreicht. Funktioniert soweit auch ohne Probleme, nur bei der Speicherung ergibt sich das Problem, dass das neue Bild wesentlich größer (3 - 5x) als das alte ist.

Hier ist der Code (meinetwegen die ganze Unit, sie ist nicht groß):

Delphi-Quellcode:

unit filmbars;

interface

uses
  Graphics, JPeg, Sysutils;

type
  TFilmBarCreater = class(TObject)
  private
    FImage: TJPegImage;
    FBitmap: TBitmap;
    FColor: TColor;
    procedure AdjustImageSize(AWidth, AHeight: Integer);
  public
    constructor Create(const ASrcFilename, ADestFilename: String; AWidth,
      AHeight: Integer; ABarColor: TColor);
  end;

implementation

{ TFilmBarCreater }

procedure TFilmBarCreater.AdjustImageSize(AWidth, AHeight: Integer);
var
  temp: TBitmap;
  widthDiff, heightDiff: Integer;
begin
  //Kopie anlegen
  temp := TBitmap.Create;
  temp.Assign(FBitmap);

  //Größendifferenz des neuen Bildes zum alten bestimmen
  widthDiff := AWidth - FBitmap.Width;
  heightDiff := AHeight - FBitmap.Height;

  //Original in der Größe ändern
  FBitmap.Width := AWidth;
  FBitmap.Height := AHeight;

  //Original mit Streifenfarbe füllen und Kopie einzeichnen
  FBitmap.Canvas.Brush.Color := FColor;
  FBitmap.Canvas.FillRect(FBitmap.Canvas.ClipRect);
  FBitmap.Canvas.Draw(widthDiff div 2, heightDiff div 2, temp);

  temp.Free;
end;

constructor TFilmBarCreater.Create(const ASrcFilename, ADestFilename: String;
  AWidth, AHeight: Integer; ABarColor: TColor);
var
  CompressionQuality: TJPEGQualityRange;
begin
  FImage := TJPegImage.Create;
  FBitmap := TBitmap.Create;
  FColor := ABarColor;

  FImage.LoadFromFile(ASrcFilename);

  //JPEG-Qualitätsdaten zwischenspeichern
  CompressionQuality := FImage.CompressionQuality;

  //JPEG in Bitmap kopieren
  FBitmap.Assign(FImage);

  //Bitmap in richtige Größe bringen
  AdjustImageSize(AWidth, AHeight);

  //Bitmap wieder in JPEG umwandeln
  FImage.Assign(FBitmap);

  //JPEG-Qualitätsdaten wiederherstellen
  FImage.CompressionQuality := CompressionQuality;  
  FImage.Compress;

  //JPEG speichern  
  FImage.SaveToFile(ADestFilename);

  FImage.Free;
  FBitmap.Free;
end;

end.

Was muss ich tun, damit mein Bild den gleichen Komprimierungsgrad hat wie das alte?

[sakura]

Der Komprimierungsalgorithmus der Borland-JPEG Unit ist nicht besonders gut, ich denke mal, dass es zum groen Teil daran liegt ;-) Aber ein wenig kann man da tun.

Delphi-Quellcode:

JPEGImage.CompressionQuality := 75;

Der Wert 75 erzeugt recht gute Qualität und gute Dateigröße. Je höher der Wert (max. 100) destso besser die JPEQ-Qualität und Dateigröße, je geringer der Wert (min. 0) destso schlechter die Qualität aber auch eine kleinere Datei ;-)

...:cat:...

[scp]

Wenn du eine JPEG lädst wird der Wert in CompressionQuality nicht geändert, er bleibt immer auf 90 bis du ihn manuell änderst.

[Chewie]

Zitat:

Zitat von scp

Wenn du eine JPEG lädst wird der Wert in CompressionQuality nicht geändert, er bleibt immer auf 90 bis du ihn manuell änderst.

Dann versteh ich es erst recht nicht. Wenn ich die Datei unverändert nach dem Laden wieder abspeichere, ist die Datei identisch groß wie das Original. Erst nach dem Kopieren in das Bitmap und dem anschließenden Rückkopieren wird sie größer.

[scp]

Unverändert, heisst ja auch in dem Fall, das die komprimierten Daten nicht verändert werden.

[S - tefano]

Das wird Sakura schon sagte einiges mit dem Algorithmus zu tun haben.
Ähnliches habe ich mal erlebt als ich ein Programm zum Stretchen von Grafiken gemacht hab. Die Methode die mir Delphi dafür bereitstellte erzeugte sehr große Dateien, dann hab ichs mal mit dem Pendant aus den JEDIs probiert. Da konnte man dann auch selbst einstellen welcher Algo benutzt werden soll, und einer davon (Namen weiß ich leider nicht mehr) hat extrem kleine Dateien mit extrem guter Qualität erzeugt.

Also kannst ja mal schaun ob du in der JCL was findest was du benutzen kannst.

Bis dann,

S - tefano

[Chewie]

OK, das mit der JCL ist ne super Idee. Danke, werd ich mir mal anschauen :thumb: