Как можно определить размер файла?

← →
ИМХО © (2004-11-15 17:36) [0]

Как можно определить размер файла?
FileSize, пожалуйста, не предлагать.

← →
begin...end © (2004-11-15 17:39) [1]

> ИМХО © (15.11.04 17:36)

1. GetFileSize.
2. FindFirstFile с последующим просмотром TWin32FindData.
3. FileSizeByName (версию Delphi, в которой она есть, не помню).

← →
ИМХО © (2004-11-15 18:26) [2]

еще варианты

← →
Rem © (2004-11-15 18:50) [3]

Открыть файл, загнать указатель в конец файла и определить его (указателя) позицию.

← →
GuAV © (2004-11-15 18:59) [4]

GetFileSizeEx

и эта... колись в чём развод на этот раз ;-)

← →
ИМХО © (2004-11-15 19:06) [5]

вот так пойдет, как считаете:

function MyGetFileSize(FileName: string): Integer;
var
FS: TFileStream;
begin
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
try
Result := FS.Size;
finally
FS.Free;
end;
end;

← →
ИМХО © (2004-11-15 19:12) [6]

или есть подводные камни?

← →
novice_man © (2004-11-15 19:12) [7]

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

TSearchRec = record
Time: Integer;
Size: Integer; <<<---- размер
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;

← →
GuAV © (2004-11-15 19:13) [8]

Лучше всего через FindFirstFile - не открывая даже файл, а то он может быть открыт с апретом а последующее чтение.

← →
GuAV © (2004-11-15 19:15) [9]

ИМХО © (15.11.04 19:12) [6]
или есть подводные камни?
Посмотри размер своп-файла.
Если через хэндл то IMHO лучше с правами FILE_READ_ATTRIBUTES

← →
ИМХО © (2004-11-15 19:23) [10]

> GuAV © (15.11.04 19:13) [8]
> Лучше всего через FindFirstFile - не открывая даже файл,
> а то он может быть открыт с апретом а последующее чтение.

дай заценить код, плиз

← →
GuAV © (2004-11-15 19:52) [11]

procedure TForm1.FormCreate(Sender: TObject); var h: THandle; W32D: TWin32FindData; begin h := FindFirstFile("C:\WIN386.SWP", W32D); if h = INVALID_HANDLE_VALUE then RaiseLastOSError; Windows.FindClose(h); Caption := Format("Size = %d", [Int64(W32D.nFileSizeLow)]); end;

← →
GuAV © (2004-11-15 19:56) [12]

GuAV © (15.11.04 19:52) [11]
Int64
убрать.

а если нужно >2.1 ГБ, то учеть и nFileSizeHigh

← →
begin...end © (2004-11-15 20:02) [13]

> [5] ИМХО © (15.11.04 19:06)

Так может не пойти, почему - см. [8], но приведённая тобой функция совершенно аналогична (по реализации) функции FileSizeByName, о которой я уже упоминал.

Если твоя задача состоит в коллекционировании таких функций, могу предложить ещё одну:

function MyFileSize(Path: String): Integer;
begin
Result := FileSizeByName(Path) + 1;
Dec(Result)
end.

> [11] GuAV © (15.11.04 19:52)

В общем случае не пойдёт, откуда ты знаешь, может у него огромный файл?

у меня Delphi 5, там нет FileSizeByName

> [14] ИМХО © (15.11.04 20:30)

> у меня Delphi 5

А чего ж ты сразу не сказал, ответы могли бы быть несколько другими. Кроме этого, нужно было указать версию ОС, т.к., например, GetFileSizeEx нет на Windows 95/98.

> [16] ИМХО © (15.11.04 20:32)

Ну вот, обещал заценить код, а место этого задаёшь дополнительные вопросы.

Помимо всего этого, до сих пор непонятно, почему у тебя аллергия на FileSize.

FileSize не работает с текстовыми

> [18] ИМХО © (15.11.04 20:48)

Ну и что, файл только для тебя текстовый; можно использовать, например, file of Byte, и применить FileSize.

Если же задача поставлена так, что существует переменная F: TextFile, и для определения размера нужно использовать именно её, то тут, по-моему, не поможет ни один из уже предложенных способов.

Как можно определить размер файла? Найти похожие ветки