AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi >Hochwertiges< Thumbnail erstellen

>Hochwertiges< Thumbnail erstellen

Ein Thema von BillieJoe90 · begonnen am 6. Mai 2007 · letzter Beitrag vom 6. Mai 2007
Antwort Antwort
Benutzerbild von BillieJoe90
BillieJoe90

Registriert seit: 29. Sep 2006
Ort: Bovenden
122 Beiträge
 
#1

>Hochwertiges< Thumbnail erstellen

  Alt 6. Mai 2007, 11:51
Hallo,
ich würde gerne ein Thumbnail eines JPEG-Bildes mit hoher Qualität herstellen. Gut, das ist immer relativ, aber der Code, der das jetzt für mich macht ist folgender, und die Qualität kann sich weniger als sehen lassen
Delphi-Quellcode:
procedure createThumbnail(w,h:Integer;src,dest:String);
var width,height,tw,th,tx,ty:Integer;
    thumb:TBitmap;
    tjpg:TJPEGImage;
    path:String;
begin
  width := w;
  height := h;
  path := src;
  thumb := TBitmap.Create;
  tjpg:=TJpegImage.Create;
  try
    tjpg.LoadFromFile(path);
  finally

    tw:=round(tjpg.Width/width);
    th:=round(tjpg.Height/height);

    if tjpg.Width>tjpg.Height then begin
      tx:=0;
      ty:=height-(round(width/th) div 2);
    end
    else begin
      tx:=width-(round(height/tw) div 2);
      ty:=0;
    end;

    thumb.PixelFormat := pf24Bit;
    thumb.Width:=width;
    thumb.Height:=height;
    thumb.Canvas.Rectangle(0,0,width,height);
    thumb.canvas.StretchDraw(Rect(0,0,100,100),tjpg);

  end;

  tjpg.Assign(thumb);
  tjpg.SaveToFile(dest);

  tjpg.Free;
end;
Ich habe auch schon mit der JCLGraphics-Bibliothek rumgespielt, aber nichts hinbekommen... Der hat das BIld immer nicht gespeichert, es kam immer eine 0-byte Datei dabei raus

Hat irgendwer einen Code zum Erstellen von besseren Thumbnails von Jpegs (auch das Thumbnail soll dann ein Jpeg sein), idealerweise mit der JCLGraphics-Bibliothek, denn da kann man verschiedene Algorithmen (sind das Algorithmen?) einstellen, u.a. vergleichbar mit Photoshop

Vielen Dank schonmal!

Johannes
Johannes
Wenn Sie jetzt gleich bestellen, bekommen Sie ein zweites Set GRATIS!
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#2

Re: >Hochwertiges< Thumbnail erstellen

  Alt 6. Mai 2007, 12:11
Das hier sollte dir helfen.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf