| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Размер любого файла [D6, Win95/98]

dprimakov ©   (2004-07-29 19:43:00) 

Здравствуйте! Извините за ламерский вопрос, но я не могу узнать размер файла(любого), есть функция GetFileSize, но как ею пользоваться никак в толк не возьму.

---

panov   (2004-07-30 09:19:00) [1]

FindFirst-->TSearchRec

---

Fay   (2004-07-29 21:29:00) [2]

2Almaz ©   (29.07.04 21:10) [6]
Точно, я и забыл 8(. Каюсь.

---

Almaz   (2004-07-29 21:10:00) [3]

> Fay ©   (29.07.04 21:02) [5]
> 2Almaz ©   (29.07.04 20:58) [4]
>
> Раз уж пошла такая пьянка, то можно покурить GetFileSizeEx.

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

Удачи.

---

Fay   (2004-07-29 21:02:00) [4]

2Almaz ©   (29.07.04 20:58) [4]

Раз уж пошла такая пьянка, то можно покурить GetFileSizeEx.

---

Almaz   (2004-07-29 20:58:00) [5]

В общем случае (в т.ч. когда файл > 4 Gb) функция будет выглядеть примерно так:

function FileSize(FileName: String): Int64;
var
 FileHandle: Cardinal;
begin
 Result := -1;
 FileHandle := CreateFile(PChar(FileName), GENERIC_READ, 0, nil,
   OPEN_EXISTING, 0, 0);
 if FileHandle <> INVALID_HANDLE_VALUE then
 begin
   LARGE_INTEGER(Result).LowPart := GetFileSize(FileHandle,
     @LARGE_INTEGER(Result).HighPart);
   if (LARGE_INTEGER(Result).LowPart = $FFFFFFFF) and
      (GetLastError <> NO_ERROR) then Result := -1;
   CloseHandle(FileHandle);
 end;
end;

Удачи.

---

Fay   (2004-07-29 20:49:00) [6]

GetFileSize/GetFileSizeEx используется в тех случаях, когда есть дескриптор файла, полученый от CreateFile. Второй параметр - адрес переменной (можно передать nil), куда складывать старшую часть значания, т.к. файл может быть больше 4Gb.

Пример.

var
 h : Cardinal; // Дескриптор файла
 sz : Cardinal; // Размер файла
begin
 h := CreateFile('c:\boot.ini', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
 if h = INVALID_HANDLE_VALUE {Cardinal(-1)} then RaiseLastOSError;
 sz := GetFileSize(h, nil);
....
 CloseHandle(h);

---

_student   (2004-07-29 19:46:00) [7]

FileStream может возвращать размер

---

Palladin   (2004-07-29 19:45:00) [8]

А для не любого значит можешь?

---

Наверх