VPF::Размер файла. - Форум программистов

IamDreamer

Дата 8.5.2006, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7

Как можно без обращения к самому файлу узнать его размер, т.е. через строковую переменную, содержащую имя файла?
И как узнать: является ли один из двух File/DirectoryListBox'ов активным, т.е. как в total cmd'e?

Это сообщение отредактировал(а) IamDreamer - 8.5.2006, 14:20

Poseidon

Дата 8.5.2006, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код

function FileSize(FName: string): int64;
Var SearchRec:TSearchRec;
begin
If FindFirst(FName, faAnyFile, SearchRec)=0 then
Result:= SearchRec.FindData.nFileSizeHigh*4294967296+SearchRec.FindData.nFileSizeLow;
FindClose(SearchRec);
end;

Добавлено @ 14:22
Можно вместо

Цитата(Poseidon @ 8.5.2006, 14:19

)

Result:= SearchRec.FindData.nFileSizeHigh*4294967296+SearchRec.FindData.nFileSizeLow;

использовать Result:= SearchRec.Size, но я не помню чем это гразит smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

IamDreamer

Дата 8.5.2006, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7

Poseidon, вызов

Код

FileSize(SFN)

выдает ошибку о несовместимости файлов. А когда прописал функцию в type'e там вообще ошибок посыпалось туча.

Это сообщение отредактировал(а) IamDreamer - 8.5.2006, 14:29

Poseidon

Дата 8.5.2006, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

А чо такое SFN?

У меня нормально вызывается

Код

FileSize('C:\1.txt')

или

Код

var
fnm: string;
i: int64;
begin
fnm:= 'C:\1.txt';
i:= FileSize(fnm);
ShowMessage(IntToStr(i));

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Albinos_x

Дата 8.5.2006, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

ошибка возможно из-за того, что есть паскалевская команда:

Код


Filesize(f);

где f - файловая переменная

Добавлено @ 14:44
попробуй поменять имя функции...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

IamDreamer

Дата 8.5.2006, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 867
Регистрация: 6.6.2005

Репутация: нет
Всего: 7

Цитата(Poseidon @ 8.5.2006, 14:32

)

А чо такое SFN?

Это имя переменной типа Sring.
А ее надо в type описывать, там, где все процедуры вписываются?

Poseidon

Дата 8.5.2006, 15:39 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(IamDreamer @ 8.5.2006, 15:25

)

А ее надо в type описывать, там, где все процедуры вписываются?

Если у тебя это не глобальныя переменная, то не надо.

В общем переименуй функцию с FileSize в, допустим, MyFileSize и используй.
В твоей SFN должен быть полный пусть к нужному файлу

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »