Quadratische Thumbnails erstellen

[Matze]

Lies doch, was man dir schreibt und guck nicht nur auf geposteten Code.
Ich habe doch oben ein mögliches Prinzip erklärt.

Anbei ein schnell zusammengetippeltes Beispiel. Es geht auch sauberer und mit weniger temporären Bildern. Nur so finde ich den Weg einleuchtender.
Hab's nicht ausgiebig getestet, sondern nur grob.

[capo]

Zitat von Bummi:

Delphi-Quellcode:

  if ext = 'BMP' then HDCImage.Picture.Bitmap.SaveToFile(dest)
  else SaveBMPasJPG(dest,HDCImage.Picture.Bitmap,qual);
  graphics.Free;
  HDCImage.Free;

end;

Hallo,

das wir dbei mir angemeckert:

Delphi-Quellcode:

SaveBMPasJPG
[DCC Fehler] frmMain.pas(214): E2003 Undefinierter Bezeichner: 'SaveBMPasJPG'

Woran liegt das?
Danke!

[Bummi]

ich hatte nur einen Auschnitt meiner Tools geschickt, hier der fehlende Teil.

Delphi-Quellcode:

Procedure SaveBMPasJPG(Const FN:String;BMP:TBitmap;Qual:Integer);
var
  jp:TJpegImage;
begin
      jp:=TJpegImage.Create;
      jp.CompressionQuality :=  qual;
      try
      with jp do
        begin
          Assign(BMP);
          SaveToFile(fn)
        end;
      finally
      jp.Free;
      end;
end;

[jfheins]

Das ganze nennt sich übrigens "quadratisch" - mit d

[capo]

Zitat von Matze:

Lies doch, was man dir schreibt und guck nicht nur auf geposteten Code.
Ich habe doch oben ein mögliches Prinzip erklärt.

Anbei ein schnell zusammengetippeltes Beispiel. Es geht auch sauberer und mit weniger temporären Bildern. Nur so finde ich den Weg einleuchtender.
Hab's nicht ausgiebig getestet, sondern nur grob.

Merkwürdig, aber deinen Beitrag habe ich die ganze Zeit nicht gesehen.
Gruss

[capo]

Zitat von jfheins:

Das ganze nennt sich übrigens "quadratisch" - mit d

Hehe danke...und ich hatte extra schon darauf geachtet. Stress!

[capo]

Hallo,
ich habe mitlerweile eine Lösung gefunden, leider sehen die Thumbs entweder zu pixeli oder zu unscharf aus.
Hat jemand eine Idee?
So sieht mein Code momentan aus:

Delphi-Quellcode:

procedure SquareMyJPG(JPGFilePathSource, JPGFilePathDest: string;
  SquareLengthPx: Integer);
var
  JPGOrig, JPGThumbSquare: TJPEGImage;
  BMPThumbNoSquare, BMPThumbSquare: TBitmap;
  IsLandscape: Boolean;
begin
  JPGOrig := TJPEGImage.Create;
  try
    JPGOrig.LoadFromFile(JPGFilePathSource);

    IsLandscape := JPGOrig.Width > JPGOrig.Height;

    BMPThumbNoSquare := TBitmap.Create;
    try
      // Thumbnail proportional skalieren
      if IsLandscape then
      begin
        BMPThumbNoSquare.Height := SquareLengthPx;
        BMPThumbNoSquare.Width := Round(SquareLengthPx * JPGOrig.Width /
          JPGOrig.Height);
      end
      else
      begin
        BMPThumbNoSquare.Height := Round(SquareLengthPx * JPGOrig.Height /
          JPGOrig.Width);
        BMPThumbNoSquare.Width := SquareLengthPx;
      end;

      BMPThumbNoSquare.Canvas.StretchDraw(
        Rect(0, 0, BMPThumbNoSquare.Width, BMPThumbNoSquare.Height),
        JPGOrig
        );

      // Überflüssiges wegschnibbeln
      BMPThumbSquare := TBitmap.Create;
      try

        BMPThumbSquare.Width := SquareLengthPx;
        BMPThumbSquare.Height := SquareLengthPx;

        {
        if not IsLandscape then
          BMPThumbSquare.Canvas.Draw(
            -(BMPThumbNoSquare.Width - BMPThumbNoSquare.Height) div 2,
            0,
            BMPThumbNoSquare
          )
        else
          BMPThumbSquare.Canvas.Draw(
            -(BMPThumbNoSquare.Height - BMPThumbNoSquare.Width) div 2,
            0,
            BMPThumbNoSquare
          );
        }
        BMPThumbSquare.Canvas.CopyRect(Rect(0, 0, SquareLengthPx,
          SquareLengthPx), BMPThumbNoSquare.Canvas, Rect(0, 0, SquareLengthPx,
          SquareLengthPx));

        BMPThumbSquare.PixelFormat := pf24Bit;
        //   smoothH(BMPThumbSquare);
         // smoothV(BMPThumbSquare);
        JPGThumbSquare := TJPEGImage.Create;
        try
          //  JPGThumbSquare.Width := SquareLengthPx;
         // JPGThumbSquare.Height := SquareLengthPx;

          Antialiasing(BMPThumbSquare, Rect(0, 0, BMPThumbSquare.Width, BMPThumbSquare.Height), 10);
          // Sharpen(BMPThumbSquare,BMPThumbSquare,2);
          JPGThumbSquare.Assign(BMPThumbSquare);
          JPGThumbSquare.CompressionQuality := 100;
          JPGThumbSquare.Compress;
          JPGThumbSquare.Smoothing := not JPGThumbSquare.Smoothing;
          JPGThumbSquare.SaveToFile(JPGFilePathDest);

        finally
          FreeAndNil(JPGThumbSquare);
        end;
      finally
        FreeAndNil(BMPThumbSquare);
      end;
    finally
      //   BMPThumbNoSquare.SaveToFile('C:\bmpnosquare.bmp');
      FreeAndNil(BMPThumbNoSquare);
    end;
  finally

    FreeAndNil(JPGOrig);
  end;
end;

[stahli]

Zeig doch mal, was Du unter pixelig bzw. unscharf verstehst...

[Matze]

Zitat von capo:

ich habe mitlerweile eine Lösung gefunden ...

Hast meinen Anhang doch noch gesehen.

Die Standardfunktionen in Delphi machen leider oft verpixelte Bilder. Wobei es irgendwo einen Code-Schnippsel gab, der das ganz gut hinbekommen hat. Ich finde ich auf Anhieb jedoch nicht.
Du kannst dir die Graphics32-Library mal ansehen. Damit erhältst du Ergebnisse wie aus einem guten Bildbearbeitungsprogramm.

Edit: Der Code aus dem SDC könnte es gewesen sein.

[DeddyH]

Würde es nicht genügen, SetStretchBltMode mit halftone aufzurufen und dann mit StretchBlt zu resizen?