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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> I/O Error 103, хотя файл есть 
:(
    Опции темы
TDM
Дата 10.4.2008, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Все программы которые открываю открывающие файл через reset падают этой ошибкой, непойму в чём дело, раньше всё было нормально. Открываемый файл есть. Интересно что возникает ошибка только если оспользовать глобальные пути.
Вот код который не работает:
Код

var
 f    : TextFile;
begin
  AssignFile(f, 'c:\model.txt');
  Reset(f);


А этот работает:
Код

var
 f    : TextFile;
begin
  AssignFile(f, 'model.txt');
  Reset(f);

PM MAIL ICQ   Вверх
WaReZMEN
Дата 11.4.2008, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



TDM, может C  По русский написал? А еще может прав нет на диск....
PM MAIL ICQ   Вверх
TDM
Дата 11.4.2008, 00:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



путь пишет openDialog,
если нет прав то почему TFileStream всё читает и пишет?
PM MAIL ICQ   Вверх
Данкинг
Дата 11.4.2008, 01:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Цитата(TDM @ 11.4.2008,  00:04)
раньше всё было нормально. 

А что изменилось с тех пор, когда было нормально? ИМХО надо в этом разобраться, так как в двух строчках ошибки быть не может, да и нет там её.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
TDM
Дата 11.4.2008, 01:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Данкинг
Купил новый комп, вот и всё собственно. Винда та же. Если грузить файл через TStringList то всё почти нормально.
PM MAIL ICQ   Вверх
Wolfgan
Дата 11.4.2008, 04:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Попробуй поставить дерективу компилятора перед началом чтения.
Код

  {$I-}
  Reset(f); 
  {$I+}

Советую почитать про дериктивы, много нового узнаешь. Это отключает/включает системную проверку на файловый ввод/вывод. У меня как то тоже была такая трабла. В чем прикол я не понял , но деректива помогла. 

Это сообщение отредактировал(а) Wolfgan - 11.4.2008, 04:50
PM MAIL   Вверх
Poseidon
Дата 11.4.2008, 08:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

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



Цитата(TDM @  11.4.2008,  00:52 Найти цитируемый пост)
путь пишет openDialog,
А по-моему пусть задан в ручную и openDialog'ом вообще не пахнет! И не NTFS там случаем? Права на файл есть? Может c:\model.txt и model.txt вообще разные файлы?



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Mikh@il
Дата 11.4.2008, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



  Ошибка 103 выдается на   CloseFile, Read, Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, BlockWrite.
  На Reset, Rewrite выдается ошибка 102.
  Так сказано в Help.
PM MAIL   Вверх
Wolfgan
Дата 11.4.2008, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



А что тебе мешает эти функции в директиву занести? Хотя может трабла гдето в другом месте. Давно было это не вспомню ща как решил проблему.  Я примерно так делал:
Код

var
  f: TextFile; // файл
  fName: String[80]; // имя файла
  buf: string[80]; // буфер для чтения из файла
begin
  {$!-}
  fName := Edit1.Text; 
  AssignFile(f, fName);
  Reset(f); // открыть для чтения
  
  if IOResult <> 0 then
  begin
    MessageDlgt 'Ошибка доступа к файлу ' + fName,
      mtError, [mbOk], 0); exit;
  end;

  // чтение из файла
  while not EOF(f) do
  begin
    readln(f, buf); // прочитать строку из файла
    Memo1.Lines.Add(buf); // добавить строку в поле Memo1
  end;

  CloseFile(f); // закрыть файл
{$I+}

PM MAIL   Вверх
SlaUr
Дата 11.4.2008, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Может файл уже кем-то ипользуется ?
Попробуйте перед Reset :
Код

FileMode:=0


и посмотрите все таки ioresult:

Код

{$I-}Reset(F2){$I+};
ShowMessage(IntToStr(IOResult));



Это сообщение отредактировал(а) SlaUr - 11.4.2008, 13:55
PM MAIL   Вверх
TDM
Дата 11.4.2008, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Файл никем не используется, в другом месте трабл нет, куча прог которые раньше работали с использованием reset сейчас выдают ошибку 103
Poseidon
Путь задаёт opendialog просто тут я написал вручную. Система именно NTFS а что?

Mikh@il
А у меня компилятор на reset ругается, странно

SlaUr
IOResult = 103

Wolfgan
Если отключить вывод ошибок то тогда всё работает. Очень интересно почему.

PM MAIL ICQ   Вверх
SlaUr
Дата 11.4.2008, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Цитата

Путь задаёт opendialog просто тут я написал вручную

А вы попробуйте так как вначале написали - явно указать путь ,без opendialoga

Или проверьте 
Код

ShowMessage(opendialog1.FileName)

PM MAIL   Вверх
Mikh@il
Дата 11.4.2008, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



А на этом файлике случайно атрибут "Только чтение" не стоит?
PM MAIL   Вверх
TDM
Дата 11.4.2008, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



SlaUr
Думаешь я не пробовал? Кароче поверь файл есть и путь правильный
PM MAIL ICQ   Вверх
Mikh@il
Дата 11.4.2008, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



А попробуй запустить на выполнение не из среды Delphi, а из скомпилинного exe. Может файлик сама Dephi держит!
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




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


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

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