Dateigröße einer Videodatei ermitteln

[DennyC]

Hallo!

Vielleicht dann doch die Stream-Variante? Die Datei einfach mit TFileStream öffnen, die Eigenschaft Size gibt dann direkt die Dateigröße in Byte an. Fertig.

Code:

function GetFileSize(Filename: TFilename): Int64;
begin

 with TFileStream.Create(Filename, fmOpenRead) do
 begin
  result := size;
  Free;
 end;
 
end;

Der Code braucht natürlich noch ein paar Sicherheitsvorkehrungen...

Denny