VPF::Существование файла - Форум программистов

s-mike

Дата 17.5.2005, 23:49 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 9
Всего: 16

drinkOut

Код


function FileAge(const FileName: string): Integer;
{$IFDEF MSWINDOWS}
var
  Handle: THandle;
  FindData: TWin32FindData;
  LocalFileTime: TFileTime;
begin
  Handle := FindFirstFile(PChar(FileName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
      if FileTimeToDosDateTime(LocalFileTime, LongRec(Result).Hi,
        LongRec(Result).Lo) then Exit;
    end;
  end;
  Result := -1;
end;

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

Преферанс для Android на базе исходников Марьяжа

drinkOut

Дата 18.5.2005, 00:01 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 10.2.2005
Где: мой стакан?

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

Точняк!

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

Жизнь жестока - когда у меня на руках все карты, она начинает играть в шахматы...www.certifications.ru - проверь себя

jack128

Дата 18.5.2005, 00:20 (ссылка)

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

Загрузка ...

Шустрый

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

Репутация: 2
Всего: 4

Satana

Цитата

можешь попробовать открыть его на чтение и если IOResult<>0 то файла нет, а если равен 0 то файл имеется.

если другое приложение открыло файл эксклюзивно, то IOResult <> 0, а файл существует ;)

Satana

Дата 18.5.2005, 07:02 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5

s-mike ну вот этого не знаю, у меня кстати схожий проект есть, поетому пользуюсь тем что предложил _hunter ибо до этого я не знал другого способа кроме того что я предлагал выше.

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

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

~FoX~

Дата 18.5.2005, 08:05 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Цитата(EKoshelev @ 17.5.2005, 14:07)

А если нет??? КАК БЫТЬ???

А если нет, то тогда обсалютно все равно существут он или нет.

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

…множественность никогда не следует полагать без необходимости…

Fantasist

Дата 20.5.2005, 23:48 (ссылка)

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

Загрузка ...

Лентяй

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

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

Цитата(Girder @ 17.5.2005, 12:38)

А вот с помощью ентого кода можно проверить... даже такое: Существовал ли файл?

Аааа! Я валялся. smile

Надо в FAQ включить.

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

Волны гасят ветер...

bagira

Дата 15.6.2005, 21:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2858
Регистрация: 25.10.2003
Где: в тайге Уральских гор

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

Цитата(Satana @ 17.5.2005, 10:53)

можешь попробовать открыть его на чтение и если IOResult<>0 то файла нет, а если равен 0 то файл имеется.

AssignFile(f, someFile.<someextension>);
{$I-}
reset(f)
if IOResult=0 then
begin //Файл есть
end
else //Файла нету

Происходит что-то странное - файл на диске точно есть (правда пустой); проверяю пошагово - IOResult выдает не 0 а 32 - я уже второй день так бьюсь smile

Ноль никак не получается smile

Мне нужно проверять - если файл есть, то открыть и добавить запись в конце его. Если нет, создать новый, и тоже добавить туда запись.

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

Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил...
Ф.Х. Дагларджа (Турция)
http://zveriolginovour.ru/
https://vmeste.yandex.ru/zveriolginovour

Alex

Дата 15.6.2005, 22:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

bagira, а FileExists не проще воспользоваться?

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

bagira

Дата 15.6.2005, 23:11 (ссылка)

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

Загрузка ...

Эксперт

Цитата(Alex @ 15.6.2005, 22:40)

bagira, а FileExists не проще воспользоваться?

Попробую завтра... Если найду.

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

bagira

Дата 17.6.2005, 20:04 (ссылка)

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

Загрузка ...

Эксперт

Спасибо! С FileExists - все получилось, как надо! smile

Это моя вечная проблема - не зная, что задача уже решена, начинать какие-то свои собственные изобретения... Я не знала, что такая функция уже есть smile

Но все-таки странно, почему же Reset и IOResult не дали нужного эффекта? Ведь в принципе, тоже все правильно? smile

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

Yanis

Дата 17.6.2005, 20:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(bagira @ 17.6.2005, 20:04)

Но все-таки странно, почему же Reset и IOResult не дали нужного эффекта? Ведь в принципе, тоже все правильно?

Не знаю где тут ошибка, но код 32 это вроде:

Цитата

Процесс не может получить доступ к файлу, так как этот файл занят другим процессом

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

*щёлк*

p0s0l

Дата 17.6.2005, 22:50 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата(bagira @ 17.6.2005, 20:04)

Но все-таки странно, почему же Reset и IOResult не дали нужного эффекта? Ведь в принципе, тоже все правильно

Из хелпа:

Цитата

If an I/O error occurs and I/O-checking is off, all subsequent I/O operations are ignored until the internal error flag is cleared. Calling IOResult clears the internal error flag.

Т.е. правильнее было бы так (это на тот случай, если ты где-то делаешь IO-операции, но не проверяешь результат с помощью IOResult):

Код

IOResult; // сброс флага ошибки, если она была
AssignFile(f, someFile.<someextension>); 
{$I-} 
reset(f)
if IOResult=0 then 
begin //Файл есть 
end 
else //Файла нету

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

С уважением, г-н Посол.

bagira

Дата 17.6.2005, 23:10 (ссылка)

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

Загрузка ...

Эксперт

Цитата(Yanis @ 17.6.2005, 20:36)

Процесс не может получить доступ к файлу, так как этот файл занят другим процессом

Но реально файл ничем не был занят smile

p0s0l
Спасибо, возьму на вооружение.

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

Дата 18.6.2005, 00:09 (ссылка)

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

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Цитата(bagira @ 17.6.2005, 23:10)

Но реально файл ничем не был занят

Ну раз так тогда попробуй на всякий случай после AssignFile
написать
FileMode:=$0030;

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