Чтение файла с cd

[DedBoroda]

Читаю файл с диска с помощью процедуры:

var f1:file of byte;

procedure ReadFileCD;
var i:integer;
    buf:byte;
    arr:array of byte;
    len:integer;
    Stream : TMemoryStream;
begin
i := 0;
assignfile(f1,'F:\data\1\1.x');
reset(f1);
Len := FileSize(f1);
SetLength(Arr, Len);
while not eof(f1) do
  begin
    BlockRead(f1, buf, 1);
    buf := Ord(Chr(255-buf));
    arr[i] := buf;
    inc(i);
  end;
closefile(f1);
Stream := TMemoryStream.Create;
Stream.SetSize(Len);
Stream.Write(Pointer(Arr)^, Len);
Stream.Position := 0;
main.image1.Picture.Graphic.LoadFromStream(Stream);
Stream.Free;
end;

При выполнении reset(f1) ошибка File access denied и всё. В чем проблема? Как это исправить или обойти? Файл нужно читать побайтово.

[Serge_Bliznykov]

потому что по умолчанию файл пытается открыться в режиме Read/Write (даже по reset() )
попробуйте так:

  assignfile(f1,'F:\data\1\1.x');
  FileMode := 0;
  reset(f1);

но, вообще-то, в Delphi есть TFileStream - ими пользоваться удобнее. Рекомендую рассмотреть возможность переписать код под этот стандартный компонент.

[DedBoroda]

спасибо, FileMode := 0; помогло. К тому же повысилась скорость обработки файлов.

[Пепел Феникса]

чтобы еще более повысить скорость, советую читать блоками(в массив допустим).
да и у потока размер ставить поидее не обязательно, при записи он сам это сделает.