VPF::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);

WaReZMEN

Дата 11.4.2008, 00:31 (ссылка)

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

Загрузка ...

Опытный

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

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

TDM, может C По русский написал? А еще может прав нет на диск....

TDM

Дата 11.4.2008, 00:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

путь пишет openDialog,
если нет прав то почему TFileStream всё читает и пишет?

Данкинг

Дата 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.

TDM

Дата 11.4.2008, 01:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

Данкинг,
Купил новый комп, вот и всё собственно. Винда та же. Если грузить файл через TStringList то всё почти нормально.

Wolfgan

Дата 11.4.2008, 04:43 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Код


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

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

Это сообщение отредактировал(а) Wolfgan - 11.4.2008, 04:50

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 вообще разные файлы?

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

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

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.

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+}

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

TDM

Дата 11.4.2008, 14:16 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

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

SlaUr,
IOResult = 103

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

SlaUr

Дата 11.4.2008, 14:30 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

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

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

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

Код


ShowMessage(opendialog1.FileName)

Mikh@il

Дата 11.4.2008, 14:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

А на этом файлике случайно атрибут "Только чтение" не стоит?

TDM

Дата 11.4.2008, 14:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

SlaUr,
Думаешь я не пробовал? Кароче поверь файл есть и путь правильный

Mikh@il

Дата 11.4.2008, 14:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

А попробуй запустить на выполнение не из среды Delphi, а из скомпилинного exe. Может файлик сама Dephi держит!

TDM

Дата 11.4.2008, 15:01 (ссылка)

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

Загрузка ...

Шустрый

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

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

пробовал

SlaUr

Дата 11.4.2008, 15:03 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

var f: TextFile

Вообще-то я всегда писал просто (по старинке)

Код


var f:text;

и с Reset никогда проблем не было.
Попробуй поменять а то я уже и не знаю что предложить больше.

p.s. да кстати а не под vistу ли вы пересели?

Это сообщение отредактировал(а) SlaUr - 11.4.2008, 15:13

Mikh@il

Дата 11.4.2008, 15:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

А файлик точно текстовый? Не типизированный случайно?

shurik_catfish

Дата 11.4.2008, 15:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Ну и совсем уж маловероятное предлположение а вы в него писать ничего не пытаетесь?...
типа
writeln(f,......)

Poseidon

Дата 11.4.2008, 16:48 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Раз NTFS, то проверь права доступа к файлу для твоего пользователя.

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

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

TDM

Дата 11.4.2008, 17:54 (ссылка)

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

Загрузка ...

Шустрый

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

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

Poseidon,
Ну stringList и tfilestream доступ имеют, и всё загружают, значит доступ есть.

shurik_catfish,
Только readln

Mikh@il,
Такую тупую ошибку я б заметил.

SlaUr,
Я на хр

Esperito

Дата 11.4.2008, 18:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

Файлик-то точно есть? Проверял? smile

А то может в папке с проектом он есть, а на диске С нету. Или ты во втором случае саму прогу переписываешь в корень диска С?

TDM

Дата 11.4.2008, 20:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Да блин есть файл! Он и на Ц и в папке с проектом

Mikh@il

Дата 11.4.2008, 21:16 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

TDM

Дата 12.4.2008, 01:14 (ссылка)

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

Загрузка ...

Шустрый

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

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

Mikh@il,
Пожалуста!

Код


var f:file;
begin
assignfile(f,'c:\model.txt');
reset(f);
closefile(f);
end.

Mikh@il

Дата 12.4.2008, 08:20 (ссылка)

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

Загрузка ...

Шустрый

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

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

var f:file; --- ????

при var var f:Textfile;

У меня все чудестно отрабатывает!

BDS2006 WinXP NTFS

TDM

Дата 12.4.2008, 19:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ну а у меня нет, ни при file ни при textfile

Mikh@il

Дата 12.4.2008, 19:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ищи трабл в ОС!

SlaUr

Дата 13.4.2008, 22:39 (ссылка)

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

Загрузка ...

Опытный

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

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

При var f:file,Попробуй Reset(f,1)

Еще вариант попробовать открыть файл не с винта а например с флэшки.

Это сообщение отредактировал(а) SlaUr - 13.4.2008, 22:41

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