Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Существование файла, как проверить существует ли файл? 
:(
    Опции темы
Манкуни@нец
Дата 17.5.2005, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Как можно узнать, существует ли файл, при чём мне нужен не только текстовый но и рисунок.
Знаю что наверное просто, но ненашёл.
PM MAIL   Вверх
_hunter
Дата 17.5.2005, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
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 - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
s-mike
Дата 17.5.2005, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Цитата(Satana @ 17.5.2005, 10:53)
можешь попробовать открыть его на чтение и если IOResult<>0 то файла нет, а если равен 0 то файл имеется.

Хм, а смысл?


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
~FoX~
Дата 17.5.2005, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

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


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
s-mike
Дата 17.5.2005, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Цитата
Ели да, то FindFirs, FindNext и поехали.

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


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
EKoshelev
Дата 17.5.2005, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
~FoX~
А если нет??? КАК БЫТЬ???


--------------------
Вежливым и адекватным предлагаю общаться на "ты".
PM MAIL   Вверх
s-mike
Дата 17.5.2005, 13:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Цитата(EKoshelev @ 17.5.2005, 13:07)
А если нет??? КАК БЫТЬ???

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


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
SoWa
Дата 17.5.2005, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


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

Репутация: 2
Всего: 74
Попробуй обратиться к нему из tru..excepted


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
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/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
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: smile




--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Poseidon
Дата 17.5.2005, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

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


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
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 - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
s-mike
Дата 17.5.2005, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Цитата(Satana @ 17.5.2005, 21:15)
шо значит а смысл? требовалось определить наличие файла? вот и способ. В этом то и смысл

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

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


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
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 - проверь себя
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0621 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.