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

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

Размер файла [D5, Win2k]

viper ©   (2002-12-09 15:54:00) 

Как быстро узнать размер файла?

---

FreeLancer   (2002-12-09 18:00:00) [1]

> Не быстрее. Лишняя операция открытия файла.

Ок, Ок. Я соглашусь, что FindFirstFile
А вы согласитесь, что все-таки не FindFirst
:-)

---

FreeLancer   (2002-12-09 17:49:00) [2]

> FileExists вызывает FileAge, FileAge вызывает FindFirstFile
> :))


Да, ради бога:


procedure TЬнForm.GetMyFileSize(Sender: TObject);
var
fh: integer;
fsize: dword;
begin
try
fh := FileOpen(MyFileName, fmShareDenyNone);
fsize := GetFileSize(fh, nil);
ShowMessage(IntToStr(fsize));
finally
FileClose(fh);
end;
end;


Речь то не о FileExists, а о GetFileSize
:-)

---

Johnmen   (2002-12-09 17:47:00) [3]

>А не быстрее ли будет сразу к файлу (если имя известно)?

Не быстрее. Лишняя операция открытия файла.

---

Андрей Прокофьев   (2002-12-09 17:38:00) [4]

FreeLancer © (09.12.02 17:24)
>>А не быстрее ли будет сразу к файлу (если имя известно)?
FileExists вызывает FileAge, FileAge вызывает FindFirstFile
:))

---

FreeLancer   (2002-12-09 17:24:00) [5]

> viper (09.12.02 15:54)
> Как быстро узнать размер файла?


FindFirst, FindFirstFile?

А не быстрее ли будет сразу к файлу (если имя известно)?

procedure TЬнForm.GetMyFileSize(Sender: TObject);
var
fh: integer;
fsize: dword;
begin
if FileExists(MyFileName) then
try
fh := FileOpen(MyFileName, fmShareDenyNone);
fsize := GetFileSize(fh, nil);
ShowMessage(IntToStr(fsize));
finally
FileClose(fh);
end;
end;


---

Sha   (2002-12-09 16:24:00) [6]

FindFirst, FindFirstFile для больших файлов

---

MBo   (2002-12-09 16:07:00) [7]

findfirst

---

Наверх