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

Манкуни@нец

Дата 17.5.2005, 10:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Как можно узнать, существует ли файл, при чём мне нужен не только текстовый но и рисунок.
Знаю что наверное просто, но ненашёл.

_hunter

Дата 17.5.2005, 10:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

FileExists()

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

Tempora mutantur, et nos mutamur in illis...

Satana

Дата 17.5.2005, 10:53 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Код


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

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

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

s-mike

Дата 17.5.2005, 11:01 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

Хм, а смысл?

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

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

~FoX~

Дата 17.5.2005, 12:50 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Путь к файлу и его имя известены?
Ели да, то FindFirs, FindNext и поехали.

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

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

s-mike

Дата 17.5.2005, 13:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

Ели да, то FindFirs, FindNext и поехали.

FileExists это и делает.

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

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

EKoshelev

Дата 17.5.2005, 13:07 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

Вежливым и адекватным предлагаю общаться на "ты".

s-mike

Дата 17.5.2005, 13:09 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

Тогда FindFirst вернет код ошибки.

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

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

SoWa

Дата 17.5.2005, 13:36 (ссылка)

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

Загрузка ...

Харекришна

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

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

Попробуй обратиться к нему из tru..excepted

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

Всем добра smile

Medved

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

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

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

не надо изобретать велосипед, просто воспользуйтесь как Вам уже посоветовали

Цитата(_hunter @ 17.5.2005, 13:50)

FileExists()

Код



if not FileExists('c:\pegas.exe') then
   begin
      ShowMessage('AAAAAA! Нет файла!!!!');
      exit;
   end;

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

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Girder

Дата 17.5.2005, 15:38 (ссылка)

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

Загрузка ...

Лентяй 2

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

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

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

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 if DeleteFile('E:\Project1.exe') then ShowMessage('Файл существовал!') else
  case GetLastError() of
   Error_File_Not_Found: ShowMessage('Файл не найден!');
   ERROR_PATH_NOT_FOUND: ShowMessage('Путь не найден!');
  else
   ShowMessage('Файл существует!');
  end;
end;

PS:

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

Как слышим, так и пишим.
Истина где-то там...

Poseidon

Дата 17.5.2005, 20:26 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Girder

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

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

Satana

Дата 17.5.2005, 21:15 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(s @ 17.5.2005, 11:01)

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

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

Хм, а смысл?

шо значит а смысл? требовалось определить наличие файла? вот и способ. В этом то и смысл

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

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

s-mike

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

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

Загрузка ...

Опытный

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

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

Цитата(Satana @ 17.5.2005, 21:15)

шо значит а смысл? требовалось определить наличие файла? вот и способ. В этом то и смысл

Я хотел бы узнать преимущества. А то мне кажется, что тот способ все равно, что ехать на Подол через Борщаговку (киевляне поймут).

Кроме того, насколько я понимаю, открытие файла будет длится дольше, чем просто проверка его наличия в каталоге.

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

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

drinkOut

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

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

Загрузка ...

Шустрый

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

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

Цитата(s @ 17.5.2005, 13:03)

Цитата

Ели да, то FindFirs, FindNext и поехали.

FileExists это и делает.

Код


function FileExists(const FileName: string): Boolean;
{$IFDEF MSWINDOWS}
begin
  Result := FileAge(FileName) <> -1;
end;
{$ENDIF}
{$IFDEF LINUX}
begin
  Result := euidaccess(PChar(FileName), F_OK) = 0;
end;
{$ENDIF}

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

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

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: Общие вопросы \| Следующая тема »