ошибка "I/O 998 Error"

[legendary]

При чтениы любого файла постоянно выдает "I/O 998 Error"

procedure TForm1.Button1Click(Sender: TObject);
var
  f1{,f2}:file;
  buf1{,buf2}:array of char;
  x1{,x2}:longint;
begin
assignfile (f1,'c:\lol.exe');
filemode:=0;
reset(f1,1);
x1:=filesize(f1);
setlength(buf1,x1);
blockread(f1,buf1,x1); // ошибка "I/O 998 Error"
....
closefile(f1);
end;

[Баламут]

Поставь {$I-}
Ну или хотя бы пиши BlockRead(f1,buf1[0],x1). Не забывай, что динамический массив это все-таки указатель. Кстати, тут еще один момент. Размер чара не всегда равен одному байту. В Д2010, например, он уже 2 байта. В данном случае это не критично, но перерасход памяти обеспечен.

[GunSmoker]

Из гугла забанили? I/O 988 - это ERROR_NOACCESS.

[legendary]

Сообщение от GunSmoker

Из гугла забанили? I/O 988 - это ERROR_NOACCESS.

сильно умный? раз не знаеш ответа то и рот прыкрой. что NOACCESS и без тебя знаю. ти скажы почему для всех файлов NOACCESS?

[Баламут]

Сообщение от GunSmoker

Из гугла забанили? I/O 988 - это ERROR_NOACCESS.

Надеюсь это не в мой огород камень? Я ведь искренне пытался указать на разницу между переданным в ф-ию buf1 и необходимым buf1[0]. Очевидно, что ошибка доступа здесь

[legendary]

Сообщение от Баламут

Поставь {$I-}

ну поставлю и чо? прога не вылетыт но и не прочтет блок

Сообщение от Баламут

buf1[0]. Очевидно, что ошибка доступа здесь

до нормальных претензый не имею, но не понял почему buf1[0]?

[GunSmoker]

Сообщение от legendary

ти скажы почему для всех файлов NOACCESS?

Есть тысяча и одна причина.

exe-файл запущен? Vista и выше и файл в Program Files или аналогичной папке? read-only атрибут? и т.д.

Про FileMode или TFileStream раньше не слышали?

P.S. Между прочим, это всё указано в ссылках гугла.

[Stilet]

но не понял почему buf1[0]

Потому что для нетипированных параметров стоит указывать их начало.
Buf - это переменка, содержащая указатель на массив, а тебе нужно передать не указатель на массив а адрес на начало массива.
Фактически blockread считает что по адресу, где расположена buf находится массив, в то время как там всего лишь находится адрес на массив, потому и ошибка.

Если бы ты писал так:

buf1{,buf2}:array[1..111] of char;

То buf бы указывал на начало массива а не на указатель на начало массива.

[Баламут]

Сообщение от legendary

но не понял почему buf1[0]?

Потому, что динамический массив есть по сути своей указатель. Ф-ия BlockRead нуждается в адресе начала блока памяти, в который она сможет писать данные. Адрес этот и есть buf1[0]. Если же мы будем писать по адресу buf1, то быстренько попадем в область, писать в которую низя! Отсюда и NOACCESS. В общем почитай про указатели. С моим корявым стилем изложения нужно подальше от педагогики держаться

ЗЫ. И куда я лезу? Стилет же на форуме... За ним разве успеешь?..

[GunSmoker]

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

Тогда, да, проблема в том, что buf1 - это не данные массива. Данные массива - это buf1[0].

Сообщение от legendary

но не понял почему buf1[0]?

Вникать.