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