Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

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

  Alt 2. Mai 2007, 21:17
Hi,

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

MSDN-Library durchsuchenFindFirst
MSDN-Library durchsuchenFindNext
MSDN-Library durchsuchenFindClose

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: Delphi-Referenz durchsuchenCreateDirectory, Delphi-Referenz durchsuchenForceDirectories
Datei löschen: Delphi-Referenz durchsuchenDeleteFile
Datei kopieren: Delphi-Referenz durchsuchenCopyFile

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

Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat