Форум на Исходниках.RU

Размер файла

Петрович — Mon, 15 Aug 2005 19:19:47 +0000

Петрович: to Domino твой код даст ошибку если файл открыт другой программой.
Правильный способ, лишенный этого недостатка, уже приведен Ct757'ом.
Правда он возвращает 32-х битную величину. Т.е. применима только к файлам, размер которых не превышает 4Гб. Современные файловые системы (NTFS) допускаю размеры файлов более 4 Гб (64 бита). Вот вариант который позволяет работать с такими файлами:

function FileSize (FileName :String) :Int64;

var

Handle: tHandle;

FindData: tWin32FindData;

begin

Handle := FindFirstFile(PChar(FileName), FindData);

if Handle = INVALID_HANDLE_VALUE then

SysUtils.RaiseLastOSError;

Windows.FindClose(Handle);

if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0 then

Result := 0 // Размер каталога всегда считаем равным 0

else begin

SysUtils.Int64Rec(Result).Hi := FindData.nFileSizeHigh;

SysUtils.Int64Rec(Result).Lo := FindData.nFileSizeLow;

end;

Размер файла

Domino — Mon, 15 Aug 2005 18:04:17 +0000

Domino:

function FileSize(const FileName: String): Cardinal;

var

FileHandle: THandle;

begin

try

FileHandle := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ,

nil, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0);

try

Result := GetFileSize(FileHandle, nil);

finally

CloseHandle(FileHandle);

end;

except

raise Exception.Create('Oops! Can''t get file size :(');

end;

Размер файла

Петрович — Sun, 14 Aug 2005 10:36:53 +0000

Петрович:

Цитата Ct757 @ 14.08.05, 07:13

Rrader
твой способ не будет работать с открытыми файлами.

Более того. И у Rrader, и у GreySkil есть серьезная ошибка в коде. Если TFileStream.Create пройдет без ошибки, то на момент проверки if Result <> -1, значение Result не определено. И поведение программы будет вообще не предсказуемым.
Кстати, об этом должен был предупредить компилятор. Или у вас отключены проедупреждения?

Размер файла

Ct757 — Sun, 14 Aug 2005 07:13:58 +0000

Ct757:

function GetFSize(const fName: string): Integer;

var

w32fd: WIN32_FIND_DATA;

find_h: DWORD;

begin

find_h:=FindFirstFile(PChar(fName), w32fd);

if find_h<>INVALID_HANDLE_VALUE then

Result:=w32fd.nFileSizeLow else

Result:=-1;

Windows.FindClose(find_h);

end;

Добавлено 14.08.05, 07:15
Rrader
твой способ не будет работать с открытыми файлами.

Размер файла

Rrader — Sun, 14 Aug 2005 07:12:07 +0000

Rrader:

function GetFileSize(FileName: String): Integer;

var

FS: TFileStream;

begin

try

FS := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);

except

Result := -1;

end;

if Result <> -1 then Result := FS.Size;

FS.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ShowMessage(IntToStr(GetFileSize('c:\prova.pdf')));

end;

Размер файла

GreySkil — Sun, 14 Aug 2005 06:42:24 +0000

GreySkil: ЛЮди подскажите.
Есть такая проблема: Нужно узнать размер файла.

Использовал...

function GetFileSize(FileName: String): Integer;

var

FS: TFileStream;

begin

try

FS := TFileStream.Create(Filename, fmOpenRead);

except

Result := -1;

end;

if Result <> -1 then Result := FS.Size;

FS.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ShowMessage(IntToStr(GetFileSize('c:\prova.pdf')));

end;

Но этот код не работает, если файл используется другим приложением. Подскажите, как узнать размер, если файл используется в данный момент.