Dateien auslesen und nach größe in andere Ordner packen?

[DeMoehn]

Hallo Leute.
Ich benutze Photoshop um meinen Bildern ein Watermark zu "verleihen".
Würde auch direkt online funktionieren, aber PS verkleinert das ganze noch, macht Thumbs usw.
Nun muss ich aber die Bilder die horizontal sind und die, die vertikal sind manuell aussortieren und in zwei verschiedene Ordner legen.
Mittlerweile mache ich auf einigen Events bis zu 250 Bilder.
Ihr könnt euch den Aufwand vorstellen den dieser Sortievorgang beansprucht und welchen ein Programm bestimmt übernhemen könnte.

Kann mir einer Anregenungen, Links, Tipps geben wie ich es nun bewerkstelle in Delphi einen bestimmten Ordner auszulesen und dort nach der JPG Größe des Bildes, dieses in den jewieligen Ordner schiebe??

Wäre um Hilfe sehr dankbar, DeMoehn

[Neutral General]

Hi,

Es gibt da ein paar nützliche Funktionen um alle Dateien eines Ordners auszulesen:

FindFirst
FindNext
FindClose

Schau dir das mal an.

Dann lädst du die Dateien in ein TJPEGImage (TJPEGImage.LoadFromFile, uses Jpeg) und kannst dann die Größe auslesen und dann je nachdem in Ordner kopieren.

Ordner erstellen: CreateDirectory, ForceDirectories
Datei löschen: DeleteFile
Datei kopieren: CopyFile

oder zum Speichern benutzt du gegebenenfalls auch TJPEGImage.SaveToFile benutzen.

Gruß
Neutral General

[DeMoehn]

Vielen Dank für die flotte Antwort.

Werde mit das Ganze morgen einmal ansehen und ggf. dann wieder nachhaken falls etwas unklar ist oder ein Ergebnis posten.

Thx, DeMoehn

EDIT:

Ich versuche das ganze via

Delphi-Quellcode:

var
  jpg: TJPEGImage;

zu deklarieren allerdings kommt immer der Fehler: "[Fehler] secureU.pas(32): E2003 Undefinierter Bezeichner: 'TJpegImage'"

[bitsetter]

Zitat:

Zitat von Neutral General

Dann lädst du die Dateien in ein TJPEGImage (TJPEGImage.LoadFromFile, uses Jpeg)

Hi,

Delphi-Quellcode:

uses Jpeg;

musst du bestimmt noch hinzufügen.

[DeMoehn]

Vielen Dank.
Bin somit schon sehr weit gekommen.

Soweit ist mein Status: (siehe Anhang)

Nun funktioniert die Progress-Bar nicht, weil es ein extrem ressourcenlastiger Prozess ist der durch die TJPEGImage Class hervorgerufen wird, kann da einer Abhilfe schaffen?

Desweiteren möchte ich gerne einen Ordner der Bilder suchen lassen.
Dabei hatte ich es mit OpenDialog probiert aber man konnte keine Ordner auswählen, nur Dateien.

Danke für die nette Hilfe.

Greetz, DeMoehn