JPG verkleinern

[TheMiller]

Hai,

eine Frage. Wie kann ich Bilder zB auf 100x100px bringen und auch zugleich die Dateigröße verkleinern. Habe schon was von "StrechDraw" gelesen. Aber wird da auch die Bildgröße beim Speichern kleiner oder bleibt sie, wenn das Bild 500kb bei 500x500px hat bei der Originalgröße?

Danke

[Khabarakh]

Wenn das Bitmap/JPEGImage/wasauchimmer kleinere Ausmaße hat als zuvor, sollte natürlich auch die Dateigröße runtergehen.

PS: StretchDraw/StretchBlt liefert ziemlich schlechte Ergebnisse (kein Anti-Aliasing), nimm lieber die GR32-Lib.

[TheMiller]

Danke,

ich benute diese Komponente jetzt. Doch es gibt keine "SaveToFile"-Methode. Wie kann ich das Bild dann speichern?

[dizzy]

TBitmap32.SaveToFile; :?:

Die beiliegende chm-Hilfe ist recht auskunftfreudig :zwinker:

[TheMiller]

Ja, das habe ich auch gerdae rausgefunden. Ich wollte doch aber, wie im ersten Beitrag genannt, das Bild mit 100x100px speichern, damit auch die Dateigröße kleiner wird. Wenn ich diese FKT nehme, dann speichert er mir das Bild gerade wieder mit der gleichen Größe...

[dizzy]

Dann schau dir nochmals die Hilfe an, und diesmal zu TBitmap32.Draw bzw. TBitmap32.DrawTo in Tateinheit mit TBitmap.StretchFilter. Das sollte reichen um qualitativ gute Verkleinerungen herzustellen.

Gruss,
Fabian

[TheMiller]

Ok,

ich weiß, ich stelle mich ein wenig doof an, habe aber sowas noch nie gemacht. Mein Code:

Delphi-Quellcode:

image321.Bitmap.DrawTo(image321,100,100);

Funzt nicht, da es, laut Compiler, keine Überladene Version von DrawTo gibt, die mit diesen Argumenten aufgerufen werden kann.

...und das hießt jetzt was? Bitte um Hilfe. Was mache ich falsch? :wall:

Danke

[dizzy]

Zitat:

Zitat von DJ-SPM

Delphi-Quellcode:

image321.Bitmap.DrawTo(image321,100,100);

Funzt nicht, da es, laut Compiler, keine Überladene Version von DrawTo gibt, die mit diesen Argumenten aufgerufen werden kann.
...und das hießt jetzt was? Bitte um Hilfe. Was mache ich falsch? :wall:

Das heisst, dass es keine Funktion DrawTo() gibt, die du mit diesen Parametern aufrufen kannst. Dein Denkfehler ist folgender: Nicht das Image321 enthält dein Bild, sondern Image321.Bitmap. Daher darfst du oben nicht einfach nur das Image übergeben, sondern es muss sein Bitmap sein.
Davon ab ist es eine schlechte Idee das Bitmap in sich selbst zeichnen zu lassen, da zum einen das Ergebnis undefiniert wäre, und du zum anderen die Größe des Bitmaps nicht veränderst. Die Version von DrawTo die du benutzt hast ist ohnehin eine, die die Größe nicht ändert, da du mit "100, 100" den oberen linken Pixel angibst an dem das Bild anfangen soll.

Ausnahmsweise mal ein Beispielprojekt hier im Anhang. Aber das alles ließe sich sehr einfach auf sogar 2 Wegen herausfinden: Die Hilfe zur G32 (ich habe nicht den Eindruck dass du die mal eingängig gelesen hast), und die Code-Completition von Delphi zeigt sogar alle überladenen Memberfunktionen nach einem . an, inklusive der Parameterlisten. Anhand derer ist schon vieles klar denke ich, da die Bezeichner doch recht sinnvoll gewählt wurden ;).
Ich bin ja sonst auch sehr "Hilfe-Faul", bzw. sind viele wirklich nicht sehr hilfreich. Aber die der G32 reicht (in Kombination mit der Menge an Beispielpjojekten die dabei sind...) imho völlig aus um auch die Feinheiten gut zu erfassen. (Das ist weniger eine Kritik, sondern viel mehr ein ernstaft gut gemeinter Ratschlag, da du viele Probleme so sicherlich schneller lösen kannst, als wenn du erst hier nachfragen müsstest. Und das, obwohl wir schon nen Turbo-Forum sind :))


Gutes Gelingen!
Fabian

\\edit: So, und jetzt auch den Anhang...

[TheMiller]

Hey Dizzy,

ich danke dir. Jetzt verstehe ich überhaupt erstmal, wie das funzt. Finde ich super nett von dir. Jetzt kann ich auch mein Project endlich anfangen. :angel:

Danke danke danke!

[Lord Dave]

Hi,

ich hatte auch schonmal das Problem, hatte dann irgendwo im tiefsten chinesischen (oder japanischen?) Internet-Untergrund eine nützliche Funktion gefunden:

Die eigentliche Methode:

Code:

procedure CreateThumbnail(InStream, OutStream: TStream; Width, Height: Integer; Compress: Boolean; ProgressEvent : TProgressEvent); overload;
var
  JpegImage: TJpegImage;
  Bitmap: TBitmap;
  Ratio: Double;
  ARect: TRect;
  AHeight (*, AHeightOffset*): Integer;
  AWidth (*, AWidthOffset*): Integer;
begin
//  Check for invalid parameters
  JpegImage := TJpegImage.Create;
  try
//  Load the image
    JpegImage.LoadFromStream(InStream);
    if Width = 0 then
      Width := JpegImage.Width;
    if Height = 0 then
      Height := JpegImage.Height;

    // Create bitmap, and calculate parameters
    Bitmap := TBitmap.Create;
    try
      Ratio := JpegImage.Width / JpegImage.Height;
      if Ratio > 1 then
      begin
        AHeight := Round(Width / Ratio);
//        AHeightOffset:=(Height-AHeight) div 2;
        AWidth := Width;
//        AWidthOffset:=0;
      end
      else
      begin
        AWidth := Round(Height * Ratio);
//        AWidthOffset:=(Width-AWidth) div 2;
        AHeight := Height;
//        AHeightOffset:=0;
      end;

      Bitmap.Width := AWidth;
      Bitmap.Height := AHeight;
//      Bitmap.Canvas.Brush.Color:=FillColor;
//      Bitmap.Canvas.FillRect(Rect(0,0,Width,Height));
// StretchDraw original image
//      ARect:=Rect(AWidthOffset,AHeightOffset,AWidth+AWidthOffset,AHeight+AHeightOffset);
      ARect := Rect(0, 0, AWidth, AHeight);
      Bitmap.Canvas.StretchDraw(ARect, JpegImage);
// Assign back to the Jpeg, and save to the file
      JpegImage.Free;

      JpegImage := TJpegImage.Create;
      JpegImage.OnProgress := ProgressEvent;
      JpegImage.Assign(Bitmap);

      if Compress then
        JpegImage.CompressionQuality := 30;
     
      JpegImage.SaveToStream(OutStream);
    finally
      Bitmap.Free;
    end;
  finally
    JpegImage.Free;
  end;
end;

Überladen, nur Dateinamen und max-Größen angeben:

Code:

procedure CreateThumbnail(const InFileName, OutFileName: string; Width, Height: Integer; Compress: Boolean; ProgressEvent : TProgressEvent); overload;
var
  InStream, OutStream: TFileStream;
begin
  InStream := TFileStream.Create(InFileName, fmOpenRead);
  try
    OutStream := TFileStream.Create(OutFileName, fmOpenWrite or fmCreate);
    try
      CreateThumbnail(InStream, OutStream, Width, Height, Compress, ProgressEvent);
    finally
      OutStream.Free;
    end;
  finally
    InStream.Free;
  end;
end;

Progressing Event, der aufgerufen wird (mit Beispiel für JvXpProgressbar):

Code:

    procedure progressing(Sender: TObject; Stage: TProgressStage;
    PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
...

procedure TForm1.progressing(Sender: TObject; Stage: TProgressStage;
    PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
  JvXpProgressBar1.Position := PercentDone;
  Application.ProcessMessages;
end;

Hier ein Anwendungsbeispiel:

Code:

procedure TForm1.JvXPButton7Click(Sender: TObject);
var newFilename: string;
    streamIn, streamOut: TFileStream;
begin
  if OpenPictureDialog1.Execute then
  begin
    titelbild := OpenPictureDialog1.Filename;
    streamIn := TFileStream.Create(titelbild,fmOpenRead);
    newFilename := AppPath+ChangeFileExt(ExtractFileName(titelbild),'_thumb.jpg');
    streamOut := TFileStream.Create(newFilename,fmCreate);

    CreateThumbnail((streamIn), (streamOut),200,200,false,progressing);
    //; Width, Height: Integer; Compress: Boolean; ProgressEvent : TProgressEvent); overload;
    streamIn.Free;
    streamOut.Free;
    Thumb1.LoadFromFile(titelbild);
  end;

end;

Funktioniert prima!