Скачать: CL | DM;

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]

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

---

← →
Leonid Troyanovsky ©   (2004-12-12 21:16) [4]

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

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


Win32Check(BytesCopied > 0)

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c