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 держит!

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