В следуюшем примере выделяется 1024 блока памяти по 16384 байта, всего 16 М айт, причем перед тем, как выделять очередной блок, освобождается предыдущий с помощью _FreeHand( ).

Код Visual FoxPro

SET LIBRARY TO FREEHAND

Код C

#include <pro_ext.h>

void FAR Example(ParamBlk FAR *parm)

{

MHANDLE mh;

int i;

for (i = 0; i < 1024; i++)

{

if ((mh = _AllocHand(16384)) == 0)

{

_Error(182); // "Insufficient memory"

}

_FreeHand(mh);

}

}

FoxInfo myFoxInfo[] = {

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

};

FoxTable _FoxTable = {

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

};