Thumbnail erstellung und Bilder verkleinern

[TypusMensch]

Zitat:

Laden der (jpeg,jpg) Bilder eines Ordners. Ich hatte die Idee, das ganze dann über die Filelistbox zu machen. Allerdings wird dann ja das Programm selber miterkannt. kann man einstellen, welche Files (jpg, jpeg) erkannt werden?

Unter der Eigenschaft "Mask" einer Filelistbox statt *.* einfach *.jpg bzw. *.jpg;*.jpeg eingeben. Dann einfach mit einer Zählschleife durch die Einträge der FileListBox durchlaufen.

Zitat:

Gibt es einen Verzeichniswahldialog? Sowas wie den Opendialog, für verzeichnisse?
Damit würde ich dann das Arbeitsverzeichnis ändern.

TJvBrowseForFolderDialog. Enthalten in der Jedi VCL.
http://www.dsdt.info/jedi/jvcl/

Zitat:

Verkleinern der Bilder auf bestimmtes Format

Siehe unten...

Zitat:

Erstellen von thumbnails aus den vorher verkleinerten Bildern in den ordner

Gleiche Funktion; siehe unten, nur diemal mit einer noch kleineren Auflösung.

Zitat:

Erstllen einer Meldung wenn alles fertig ist.

Showmessage('Fertig...');
MessageDlg('Fertig...',mtInformation,[mbOK],0);

Funktion (behält Proportionen des Bildes bei); Quelle und Ziel sind Dateinamen, MaxBreite und MaxHoehe sind Pixelanzahl der späteren Bilder. Bitte "jpeg" mit in die uses-Anweisung aufnehmen.

Delphi-Quellcode:

procedure BildgroesseAendernJPGExt(Quelle,Ziel:TFileName; MaxBreite,MaxHoehe:integer);
var bmp:TBitmap;
    jpeg:TJpegImage;
    breite,hohe:integer;
begin
Jpeg:=TJpegImage.Create;
jpeg.LoadFromFile(Quelle);
//Seitenverhältnisgrößen berechnen
if jpeg.Width/MaxBreite < 1 then MaxBreite := jpeg.Width;
if jpeg.Height/MaxHoehe < 1 then MaxHoehe := jpeg.Height;
if jpeg.Width/MaxBreite > jpeg.Height/MaxHoehe then
  begin
  breite := round( jpeg.Width / (jpeg.Width/MaxBreite));
  hohe := round( jpeg.Height / (jpeg.Width/MaxBreite));
  end else
  begin
  breite := round( jpeg.Width / (jpeg.Height/MaxHoehe));
  hohe := round( jpeg.Height / (jpeg.Height/MaxHoehe));
  end;
//WANDLUNG
   try
   jpeg.LoadFromFile(Quelle);
    bmp:=TBitmap.Create;
      try
       bmp.width:=breite;
       bmp.height:=hohe;
       bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg);
       jpeg.assign(bmp);
      finally
       bmp.free;
      end;
     jpeg.SavetoFile(Ziel);
   finally
    jpeg.free;
   end;
end;

LG