Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c
