Dateigröße einer Videodatei ermitteln

[Master_BB]

hya,
ich weiß nicht wie ich die Dateigröße einer Videodatei ermitteln kann.
Thx schon mal für die Hilfe.

Greetz
Master_BB

[Luckie]

Entweder in einen Stream laden und Size abfragen. Oder mit FindFirst suchen und Site von der TSearchRect Struktur abfragen. Oder Die API GetFilesSizeEx verwenden.

[Master_BB]

also das mit dem in einen Stream laden ist doch bestimmt zeit und sysressis lastig,
das mit dem finden genauso.
So bei GetFileSize der WinAPI hab ich das Problem das mein Pfad Cardinal sein muß und ich nicht weiß
wie ich meinen Filepfad der in einem Editfeld sich befindet umwandele.
GetFileSize(file,null);
und das haut net so ganz hin

[Sharky]

Hai Master_BB,

warum nicht einfach mit FileSize die größe ermitteln?

[Luckie]

Zitat:

Zitat von Sharky

Hai Master_BB,

warum nicht einfach mit FileSize die größe ermitteln?

Weil inmeiner Hilfe steh:

Zitat:

he size is expressed as the number of records in a record file.

In einer Video-Datei dürften wohl kaum Datensätze drinstehen.

Mit CreateFile kannst du dir ein Handle auf die datei für den ersten Parameter holen. Ich sprach auch von GetFileSizeEX, weil getFileSize nur ein DWORD zurückliefert, was eventuell zu klein ist.

[Master_BB]

getfilesizeex gibts in meiner WinSDK net.
kannst du mir von der funktion den aufbau posten?

[Sharky]

Zitat:

Zitat von Luckie

Weil inmeiner Hilfe steh: ...

Hmmmm.....

in meiner Steht:

Zitat:

Zitat von Online Hilfe D5 pro. deutsch

Die Funktion FileSize gibt die Größe einer Datei in Byte zurück. Enthält die Datei Records, wird deren Anzahl zurückgegeben.

Beschreibung

Mit FileSize können Sie die Größe der angegebenen Datei (F) ermitteln. Die Funktion kann nur für geöffnete Dateien verwendet werden. Wenn die Datei leer ist, gibt FileSize(F) 0 zurück.

Hinweis

FileSize kann nicht für Textdateien verwendet werden.

Und hate es schon oft verwendet.

P.S.: In der Hilfe ist sogar ein entsprechendes Beispiel dabei.

[Luckie]

Code:

BOOL GetFileSizeEx(
  HANDLE hFile,
  PLARGE_INTEGER lpFileSize
);

Zitat:

Parameters
hFile
[in] Handle to the file whose size is to be returned. The handle must have been created with either the GENERIC_READ or GENERIC_WRITE access right. For more information, see File Security and Access Rights.
lpFileSize
[out] Pointer to a LARGE_INTEGER structure that receives the file size.
Return Values
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

[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