FileRead даёт результат -1

← →
Илья (2004-12-12 17:58) [0]

Делаю открытие файла для чтения с помощью FileOpen. Всё в порядке. Пытаюсь читать из этого файла с помощью FileRead, и бац - результат -1. Вот мой код:
procedure TMultiFileCopier.Copy_Files; var ReadFileHandle : INTEGER; Buffer : PChar; ReadFileName : STRING; BytesCopied : Int64; begin //File names ReadFileName := "C:\toread.txt"; //Handles ReadFileHandle := FileOpen(ReadFileName, fmOpenRead); Buffer := PChar(AllocMem((Sqr(1024))); //1 MB //Reading FileSeek(ReadFileHandle, 0, 0); BytesCopied := FileRead(ReadFileHandle, Buffer^, Sqr(1024)); //Read 1 MB //Closing file FileClose(ReadFileHandle); FreeMem(Buffer); end;
Вот результаты :
Bytes Copied = -1
ReadFileHandle <> -1

Почему не читается?

← →
-=SS=- © (2004-12-12 18:10) [1]

А ты уверен что файл у тебя такой есть ?

← →
Anatoly Podgoretsky © (2004-12-12 18:11) [2]

Во всем коде ни одной проверки на допустимость.

← →
Илья (2004-12-12 20:18) [3]

Файл точно есть.
Что нет проверок в этом коде, это не значит, что их нету вообще.

> Илья (12.12.04 20:18) [3]

> Что нет проверок в этом коде, это не значит, что их нету
> вообще.

Win32Check(BytesCopied > 0)

--
С уважением, LVT.

FileRead даёт результат -1 Найти похожие ветки