Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
KyRo   (2006-11-30 13:54) [0]

Подскажите как узнать размер файла ?


 
Desdechado ©   (2006-11-30 13:56) [1]

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


 
Anatoly Podgoretsky ©   (2006-11-30 13:59) [2]

> KyRo  (30.11.2006 13:54:00)  [0]

FileSize


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


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


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


 
Джо ©   (2006-11-30 14:15) [4]

Лучше, чем [1] человечество не придумало :)

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


 
Anatoly Podgoretsky ©   (2006-11-30 14:15) [5]

> KyRo  (30.11.2006 14:12:03)  [3]

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


 
Jeer ©   (2006-11-30 14:20) [6]


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


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

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


 
grisme ©   (2006-11-30 15:27) [7]

GetFileSize(..);


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


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


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


 
Джо ©   (2006-11-30 17:26) [9]

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

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


 
Рамиль ©   (2006-11-30 17:26) [10]

Если сделано через TMemoryStream, то неудивительно, что тормозит.


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


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


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

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


 
Джо ©   (2006-11-30 17:28) [12]

> [8] KyRo   (30.11.06 17:17)
>
> > Ну, до кучи еще TFileStream.Size.
>
>
> Сейчас у меня сделано через TMemoryStram.Size

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


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


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

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

?


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


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


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


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


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

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.041 c
8-1146694208
h8394E
2006-05-04 02:10
2006.12.17
Сдвиг Red канала на X, Y пикселей


15-1164254365
Slider007
2006-11-23 06:59
2006.12.17
С днем рождения ! 23 ноября


10-1126883726
TStas
2005-09-16 19:15
2006.12.17
Как ответить экселю "не сохранять"?


3-1160476003
alucard
2006-10-10 14:26
2006.12.17
Подскажите как выловить добавление записи в базу


2-1164709037
KyRo
2006-11-28 13:17
2006.12.17
Подскажите как оборвать закачку





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский