Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: 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 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-1102893510
Lelik
2004-12-13 02:18
2004.12.26
Параметры страницы


1-1102717713
Bobby Digital
2004-12-11 01:28
2004.12.26
Memo


14-1101818942
msguns
2004-11-30 15:49
2004.12.26
В Одессе за доллар просят 10 гр.


1-1102688247
Frozzen
2004-12-10 17:17
2004.12.26
dfm файлы...


4-1099994934
Aleksandr.
2004-11-09 13:08
2004.12.26
Как по хуку клавиатуры получить русские буквы?