Блокирует дескриптор блока памяти, чтобы его нельзя было перемещать, когда в Visual FoxPro требуется провести реорганизацию памяти.
void _HLock(MHANDLE hand) MHANDLE hand; /* Дескриптор блока памяти. */ |
Примечания
_HLock( ) не вызывает реорганизацию памяти. Снимите блокировку с дескриптора MHANDLE , как только в ней отпадет надобность.
Для получения дополнительной информации о том, как создавать библиотеку API и интегрировать её в Visual FoxPro, смотрите Доступ к API Visual FoxPro.
Пример
В следующем примере на экране отображается символьный параметр. С помощью _HandToPtr( ) дескриптор блока памяти этого API-параметра транслируется в указатель языка C. Поскольку Visual FoxPro может инициировать реорганизацию памяти в ходе вызова _PutStr( ), то для гарантии правильной работы дескриптор блокируется с помощью _HLock( ). В конце процедуры вызывается программа _HUnLock( ), поскольку блокировка дескрипторов блоков памяти может неблагоприятно отразиться на производительности Visual FoxPro.
Код Visual FoxPro
![]() | |
---|---|
SET LIBRARY TO HLOCK = HLOCK("Hello, world.") && displays "Hello, world" on screen |
Код C
![]() | |
---|---|
#include <pro_ext.h> void NullTerminate(Value FAR *cVal) { if (!_SetHandSize(cVal->ev_handle, cVal->ev_length + 1)) { _Error(182); // "Insufficient memory" } ((char FAR *) _HandToPtr(cVal->ev_handle))[cVal->ev_length] = '\0'; } FAR Example(ParamBlk FAR *parm) { NullTerminate(&parm->p[0].val); _HLock(parm->p[0].val.ev_handle); _PutStr(_HandToPtr(parm->p[0].val.ev_handle)); _HUnLock(parm->p[0].val.ev_handle); } FoxInfo myFoxInfo[] = { {"HLOCK", (FPFI) Example, 1, "C"}, }; FoxTable _FoxTable = { (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo }; |
Смотрите также
Справочное руководство
Процедура библиотеки API _AllocHand( )Процедура библиотеки API _FreeHand( )
Процедура библиотеки API _GetHandSize( )
Процедура библиотеки API _HandToPtr( )
Процедура библиотеки API _HUnLock( )
Процедура библиотеки API _MemAvail( )
Процедура библиотеки API _SetHandSize( )
Прочие ресурсы
Конструкции библиотеки APIДоступ к API Visual FoxPro

© Microsoft Corporation. All rights reserved. Microsoft is not reponsible for the contents of the translated help topics.