|
|
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
procedure TForm1.Button1Click(Sender: TObject); var f: file of Byte; size: Longint; S: string; y: Integer; begin if OpenDialog1.Execute then begin AssignFile(f, OpenDialog1.FileName); Reset(f); try size := FileSize(f); S := 'File size in bytes: ' + IntToStr(size); y := 10; Canvas.TextOut(5, y, S); y := y + Canvas.TextHeight(S) + 5; S := 'Seeking halfway into file...'; Canvas.TextOut(5, y, S); y := y + Canvas.TextHeight(S) + 5; Seek(f, size div 2); S := 'Position is now ' + IntToStr(FilePos(f)); Canvas.TextOut(5, y, S); finally CloseFile(f); end; end; end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.07.2005, 15:47 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
Чиссо сишно подход... Открыть... Сделать Seek с оффсетом нуль и флагом относительно конца файла. Возвращенное значение и есть размер. Кажись так, если ничего не попутал... с уважением (круглый) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.07.2005, 16:01 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
проще просто найти файл FindFirst и сразу увишь всё об этом файле!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.07.2005, 16:03 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
struct TSearchRec { int Time; int Size; int Attr; AnsiString Name; int ExcludeAttr; int FindHandle; _WIN32_FIND_DATAA FindData; } ; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.07.2005, 16:06 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
Вариант с открытием файла. Кажется был еще способ узнать размер без использования open. Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.07.2005, 16:28 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.07.2005, 17:13 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. лучше от пива огромный живот чем маленький гроб от тяжёлых работ:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.07.2005, 12:55 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
В какой библиотеки живут константы 0L,SEEK_END? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.07.2005, 23:27 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
Стыдно, батенька!!! 0L - он же ноль, принадлежащий типу long или по-просту говоря NULL для 32-битных ОС... А вот SEEK_END уже интереснее... Обитает она, как и прочие команды по работе с файлами аж в двух библиотеках <IO.H> и <STDIO.H> ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.07.2005, 01:03 |
|
||
|
Как узнать размер файла?
|
|||
|---|---|---|---|
|
#18+
Или на WinAPI Код: plaintext 1. 2. 3. 4. 5. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2005, 15:24 |
|
||
|
|

start [/forum/topic.php?fid=57&msg=33152590&tid=2033050]: |
0ms |
get settings: |
12ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
73ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
68ms |
get tp. blocked users: |
2ms |
| others: | 244ms |
| total: | 437ms |

| 0 / 0 |
