Функция FREAD()

Возвращает заданное число байтов из файла или порта связи, открытого с помощью файловой функции низкого уровня.

Синтаксис:

FREAD(nFileHandle, nBytes)

Параметры:
nFileHandle
Задает дескриптор файла, соответствующий файлу или порту связи, из которого функция FREAD( ) возвращает данные.
nBytes
Задает количество байтов, возвращаемых функцией FREAD( ). FREAD( ) возвращает данные, начиная с текущей позиции указателя файла и до тех пор, пока не будет возвращено nBytes байтов или пока не встретится конец файла.

Результат:
Символьный.

Пример:

* В следующем примере используется функция FREAD( ), отображающая
* содержимое файла. Если файл пуст, выдается соответствующее
* сообщение.
*** TEST.TXT must exist ***
STORE FOPEN('test.txt') TO gnFileHandle	&& Open the file
STORE FSEEK(gnFileHandle, 0, 2) TO gnEnd	&& Move pointer to EOF
STORE FSEEK(gnFileHandle, 0) TO gnTop	&& Move pointer to BOF
IF gnEnd <= 0	&& Is file empty?
	WAIT WINDOW 'This file is empty!' NOWAIT
ELSE	&& If not empty
	gcString = FREAD(gnFileHandle, gnEnd)	&& Store to memory
	? gcString
ENDIF
= FCLOSE(gnFileHandle)	&& Close the file

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 26.01.2003