Определение размера 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));

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

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