В следующем примере создается тестовый файл. Затем программа открывает этот файл в режиме FO_READONLY и пытается произвести в него запись. В результате _FError( ) возвращает код ошибки 5 "Access denied" [В доступе отказано]. После этого программа открывает тестов й файл в режиме FO_WRITEONLY и пытается прочитать его. И вновь _FError( ) возв ащает код 5.

Код Visual FoxPro

SET LIBRARY TO FOPEN

Код C

#include <pro_ext.h>

void putLong(long n)

{

Value val;

val.ev_type = 'I';

val.ev_long = n;

val.ev_width = 10;

_PutValue(&val);

}

#define BUFFSIZE 256

static char lineBuffer[BUFFSIZE];

FAR Example(ParamBlk FAR *parm)

{

FCHAN fchan;

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

_FCHSize(fchan, 8192);

_FClose(fchan);

fchan = _FOpen("temp.tmp", FO_READONLY);

_FPuts(fchan, "Hello, world");

_PutStr("\nAttempt to _FPuts() to file _FOpen()d FO_READONLY");

_PutStr("\n_FError() ="); putLong(_FError());

_FClose(fchan);

fchan = _FOpen("temp.tmp", FO_WRITEONLY);

_FGets(fchan, lineBuffer, BUFFSIZE);

_PutStr("\nAttempt to _FGets() from file _FOpen()d FO_WRITEONLY");

_PutStr("\n_FError() ="); putLong(_FError());

_FClose(fchan);

}

FoxInfo myFoxInfo[] = {

{"FOPEN", (FPFI) Example, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

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

};