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

Код Visual FoxPro

SET LIBRARY TO FCOPY

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

FCHAN fchan1, fchan2;

int len;

fchan1 = _FCreate("temp1.txt", FC_NORMAL);

_FPuts(fchan1, "Hello, world.");

_FFlush(fchan1);

len = _FSeek(fchan1, 0, FS_FROMEOF); // determine length of file

fchan2 = _FCreate("temp2.txt", FC_NORMAL);

_FCopy(fchan2, 0, fchan1, 2, len - 2);

_FClose(fchan1);

_FClose(fchan2);

}

FoxInfo myFoxInfo[] = {

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

};

FoxTable _FoxTable = {

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

};