JPG Resize bei großen Dateien

[OlliWW]

Hallo Zusammen,

Ich habe eine kleine Routine zum Verkleinern von JPG-Bildern. Bei vielen Bildern funktioniert es auch wunderbar, bei einigen nicht.
Was die Bilder gemeinsam haben, bei denen es nicht funktioniert, ist, dass sie sehr groß sind (> 2 MB).
Hier mal der Code:

Delphi-Quellcode:

  procedure prcResizeJPG(sPath: String; iWidth: Integer; iHeight: Integer);
  var
    imgBMP: TBitmap;
    imgJPG: TJpegImage;
  begin
    imgJPG := TJpegImage.Create;
    try
      imgJPG.LoadFromFile(sPath);
      imgBMP := TBitmap.Create;
      try
        imgBMP.Width := iWidth;
        imgBMP.Height:= iHeight;
        imgBMP.Canvas.StretchDraw(imgBMP.Canvas.Cliprect, imgJPG);
        Self.Canvas.Draw(100, 10, imgBMP);
        imgJPG.Assign(imgBMP);
        imgJPG.SaveToFile(sPath);
      finally
        imgBMP.free;
      end;
    finally
      imgJPG.free;
    end;
  end;

Probiere ich diesen Code, stürzt es bei StrechDraw ab. Gibt es eine Möglichkeit, dies zu verbessern?

[Mavarik]

Zitat von OlliWW:

Hallo Zusammen,

Ich habe eine kleine Routine zum Verkleinern von JPG-Bildern. Bei vielen Bildern funktioniert es auch wunderbar, bei einigen nicht.
Was die Bilder gemeinsam haben, bei denen es nicht funktioniert, ist, dass sie sehr groß sind (> 2 MB).
Hier mal der Code:

Delphi-Quellcode:

  procedure prcResizeJPG(sPath: String; iWidth: Integer; iHeight: Integer);
  var
    imgBMP: TBitmap;
    imgJPG: TJpegImage;
  begin
    imgJPG := TJpegImage.Create;
    try
      imgJPG.LoadFromFile(sPath);
      imgBMP := TBitmap.Create;
      try
        imgBMP.Width := iWidth;
        imgBMP.Height:= iHeight;
        imgBMP.Canvas.StretchDraw(imgBMP.Canvas.Cliprect, imgJPG);
        Self.Canvas.Draw(100, 10, imgBMP);
        imgJPG.Assign(imgBMP);
        imgJPG.SaveToFile(sPath);
      finally
        imgBMP.free;
      end;
    finally
      imgJPG.free;
    end;
  end;

Probiere ich diesen Code, stürzt es bei StrechDraw ab. Gibt es eine Möglichkeit, dies zu verbessern?

Sicher, dass es an der Größe liegt und nicht am jpg File?

Delphi-Quellcode:

        imgJPG.Assign(imgBMP);
        imgJPG.Compress; // <-- fehlt das nicht?  
        imgJPG.SaveToFile(sPath);

Mavarik

[Capstone]

also hier mit Delphi 3 funktioniert der o.g. Code.

Code:

imgJPG.Compress; // <-- fehlt das nicht?

jetzt wo Du's sagst ... vermiß ich das auch ....
funzt aber bei mir trotzdem ohne.

wobei ich mich irgendwie erinnere, daß da noch weitere Einstellungen zu fehlen: Irgendwie, welcher Sampling modus Progress;, Qualität: Quality:= 90;, etc.

keine Ahnung, vielleicht haben die ja was (d3->x4) bei Embargochaero "verbessert" , was Borland damals nicht konnte


lad mal ein Bild rauf, was nicht funktioniert.
Hab das hier sogar mit nem 5,88 MB 10 MPx Bild gemacht.
Und sogar mit ungeraden Abmessungen PcrResize(Edit1.text,300,161);

das funktioniert.


hier mal ein nicht-privates:

3 MB Bild
3648 x 2736 Pixel (9.98 MPixels) (4:3)
-http://abload.de/img/claudia_giorgetti_1mwaav.jpg

Kleiner: 201 x 201 Pixel (1.00)
http://abload.de/img/claudia_giorgetti_1_ke0l3e.jpg

[OlliWW]

Hallo,

Das compress fehlt in der Tat. Aber wie gesagt, es stürzt beim StrechDraw ab.

Anbei ein Beispielbild, das abstürzt.

[DeddyH]

Ich habe gerade mal mein StretchGraphic darauf losgelassen, funktioniert.

[OlliWW]

Naja die Methode wäre natürlich ein Workarround, erklärt aber nicht warum meine Funktion nicht manchen Bildern nicht funktioniert.

Ich habe auf der Form ebenfalls noch ein Vorschau-TImage liegen, das bei Bedarf das Bild anzeigen kann, auch das stürzt ab, in meinem Code ist es:
imgVorschau.Picture.LoadFromFile(lstData.Items[Row].rec_PATH); Anhand des Eurekalog-Debuggers, seh ich dass danach noch ein paar Sachen in der Unit "jpeg" geschehen.