Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как узнать размер файла [D7, XP]

KyRo © (2006-11-30 13:54:00)
Подскажите как узнать размер файла ?

Рамиль (2006-11-30 17:34:00) [1]

> А когда файлики маленькие то все ок

Ну, не ок. Просто незаметно, что не ок.

KyRo (2006-11-30 17:33:00) [2]

> Это, то есть, ты весь файл загружаешь в TMemoryStream, для
> того, чтобы узнать его размер? Забавный подход.

Да теперь вижу что не правильный подход и меняю . А когда файлики маленькие то все ок

Рамиль (2006-11-30 17:31:00) [3]

> А через TFileStream как тут советуют не будет ? Думаю тоже
> самое !!
>
> По этому и ищу другой способ !

Ну-ну. Т. е. код выглядит так:
s := TMemoryStream.Create; try s.LoadFromFile(FileName); aSize := s.Size; finally s.Free; end;
?

Джо (2006-11-30 17:28:00) [4]
> [8] KyRo (30.11.06 17:17)
>
> > Ну, до кучи еще TFileStream.Size.
>
>
> Сейчас у меня сделано через TMemoryStram.Size

Это, то есть, ты весь файл загружаешь в TMemoryStream, для того, чтобы узнать его размер? Забавный подход.

KyRo (2006-11-30 17:27:00) [5]

> Рамиль © (30.11.06 17:26) [10]
> Если сделано через TMemoryStream, то неудивительно, что
> тормозит.

А через TFileStream как тут советуют не будет ? Думаю тоже самое !!

По этому и ищу другой способ !

Джо (2006-11-30 17:26:00) [6]
> [8] KyRo (30.11.06 17:17)
>
> > Ну, до кучи еще TFileStream.Size.
>
>
> Сейчас у меня сделано через TMemoryStram.Size но когда
> потоки берут 15 файлов по 50 мб и начинают узнавать размер
> это очень сильно грузит систему.

См. [1]. Что за манера не читать ответов?

Рамиль (2006-11-30 17:26:00) [7]
Если сделано через TMemoryStream, то неудивительно, что тормозит.

KyRo (2006-11-30 17:17:00) [8]

> Ну, до кучи еще TFileStream.Size.

Сейчас у меня сделано через TMemoryStram.Size но когда потоки берут 15 файлов по 50 мб и начинают узнавать размер это очень сильно грузит систему.

grisme (2006-11-30 15:27:00) [9]
GetFileSize(..);

Jeer (2006-11-30 14:20:00) [10]

> Джо © (30.11.06 14:15) [4]
>
> Лучше, чем [1] человечество не придумало :)

Счеты, карандаш и дист бумаги.
И по байтику, по байтику.

Думаете, Кеплеру было легко без Cray орбиты считать ?

Джо (2006-11-30 14:15:00) [11]
Лучше, чем [1] человечество не придумало :)

Ну, до кучи еще TFileStream.Size.

Anatoly Podgoretsky (2006-11-30 14:15:00) [12]
> KyRo (30.11.2006 14:12:03) [3]

Это уже два других вопроса.

KyRo (2006-11-30 14:12:00) [13]

> Anatoly Podgoretsky © (30.11.06 13:59) [2]
> > KyRo (30.11.2006 13:54:00) [0]
>
> FileSize

А если файл будет большой например 100мб и потоков которые проверят одновременно размер будет 15 система не начнет тормозить ?

Anatoly Podgoretsky (2006-11-30 13:59:00) [14]
> KyRo (30.11.2006 13:54:00) [0]

FileSize

Desdechado (2006-11-30 13:56:00) [15]
FindFirst(const Path: string; Attr: Integer; var F: TSearchRec)
TSearchRec + F1

Наверх

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