|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.05.2007, 22:49 | #1 |
Пользователь
Регистрация: 22.04.2007
Сообщений: 31
|
размер файла
я получил от клиенета файл сохранил его как мне можно узнать размер файла
|
05.05.2007, 23:15 | #2 |
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,189
|
function GetFileSize(namefile: string): Integer;
var InfoFile: TSearchRec; AttrFile: Integer; ErrorReturn: Integer; begin AttrFile := $0000003F; {Any file} ErrorReturn := FindFirst(namefile, AttrFile, InfoFile); if ErrorReturn <> 0 then Result := -1 {в случае, если файл не найден} else Result := InfoFile.Size; {Размер файла в байтах} FindClose(InfoFile); end; |
06.05.2007, 10:58 | #3 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
господи ))) а нельзя просто его открыть хоть через tfilestream или на чистом паскале assignfile ?
|
06.05.2007, 11:14 | #4 | |
Редкий тунеядец
Форумчанин
Регистрация: 29.10.2006
Сообщений: 595
|
Цитата:
Код:
|
|
06.05.2007, 17:22 | #5 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
если размер больше, чем 4 ГБ то так
чистый API Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как уменьшить размер .ехе файла? D7 | dx+ | Общие вопросы Delphi | 28 | 16.03.2012 20:38 |
Как узнать размер файла? | photozaz | Общие вопросы Delphi | 4 | 01.08.2008 00:29 |
Размер файла | eoln | Общие вопросы Delphi | 2 | 13.07.2008 01:44 |
Как ограничить размер файла | geronime | PHP | 8 | 20.02.2008 14:26 |