В следующем примере выделяются блоки памяти различных размеров от 1 до 2 (15) и показывается значение, возвращаемое в каждом случае программой _GetHandSize( ). Заметьте, что возвращаемые ею значения лишь изредка в точности совпадают с размером, запрошенным программой _AllocHand( ); обычно эти значения чуть бо ьше.

Код Visual FoxPro

SET LIBRARY TO GETHANDS

Код C

#include <pro_ext.h>

void putLong(long n)

{

Value val;

val.ev_type = 'I';

val.ev_long = n;

val.ev_width = 5;

_PutValue(&val);

}

void FAR Example(ParamBlk FAR *parm)

{

MHANDLE mh;

unsigned int allocSize;

for (allocSize = 1;; allocSize *= 2)

{

if ((mh = _AllocHand(allocSize)) == 0)

{

_Error(182); // "Insufficient memory"

}

_PutStr("\n_AllocHand("); putLong(allocSize); _PutStr(")");

_PutStr("\n_GetHandSize() ="); putLong(_GetHandSize(mh));

_FreeHand(mh);

if (allocSize == 32768)

{

break;

}

}

}

FoxInfo myFoxInfo[] = {

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

};

FoxTable _FoxTable = {

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

};