Возвращает заданное число байтов из файла или порта связи, открытого с помощью файловой функции низкого уровня.
Синтаксис:
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