Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

Определение размера zip файла:   Найти похожие ветки 

← →
greenrul ©   (2002-07-16 12:18) [0]

FileSize выдает совершенно другое значение - размер файла - 428кб а FileSize говорит 3586. Есть другие функции?

Вот текст программы:

var f1:file;
......
AssignFile(f1,path);
Reset(f1);
i1:=FileSize(f1);
CloseFile(f1);
ShowMessage(IntToStr(i1));


---

← →
Skier ©   (2002-07-16 12:24) [1]

>greenrul
А если так :


var f1:file of Byte;
......
AssignFile(f1,path);
Reset(f1);
i1:=FileSize(f1);
CloseFile(f1);
ShowMessage(IntToStr(i1));


---

← →
PVOzerski ©   (2002-07-16 12:56) [2]

Штука в том, что FileSize выдаёт длину файла в записях, а не в байтах, а для нетипизированного файла по умолчанию (если reset вызывается без дополнительного параметра) она 128. Воспользуйтесь либо советом Skier ©, либо в своем тексте исправьте Reset(f1); на
Reset(f1,1);

---

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

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c