В следующем примере создается файл и его длина устанавливается равной 8196 айтам. Если в окне команд Visual FoxPro выдать командную строку DIR TEMP.TXT, то в выданной информации будет указано, что размер файла на диске по-прежнему раве 0. Однако если выдать DIR TEMP.TXT еще раз после того, как выполнится =XFFLUSH( ), то вы увидите, что файл на диске обработан программой _FCHSize( ) и имеет размер 8196 байтов.

Код Visual FoxPro

SET LIBRARY TO FFLUSH

DIR temp.txt && size on disk is still 0

WAIT WINDOW "File Size = 0"

= XFFLUSH()

DIR temp.txt && size on disk is 8196

WAIT WINDOW "File Size Does Not Equal 0"

CLOSE ALL

Код C

#include <pro_ext.h>

static FCHAN fchan;

FAR CreateIt(ParamBlk FAR *parm)

{

fchan = _FCreate("temp.txt", FC_NORMAL);

_FCHSize(fchan, 8196);

}

FAR FFlushEx(ParamBlk FAR *parm)

{

_FFlush(fchan);

}

FoxInfo myFoxInfo[] = {

{"ONLOAD", (FPFI) CreateIt, CALLONLOAD, ""},

{"XFFLUSH", (FPFI) FFlushEx, 0, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};