sample_198.md

Home

Using FillMemory

Code:

DECLARE INTEGER GlobalFree IN kernel32 INTEGER hMem

DECLARE INTEGER GlobalAlloc IN kernel32;
	INTEGER wFlags, INTEGER dwBytes


*** Part 1
* applying the FillMemory to a FoxPro string

DECLARE RtlFillMemory IN kernel32 AS FillMemory;
	STRING  @ Dest,;
	INTEGER   Length,;
	SHORT     nFill

LOCAL lcBuffer
lcBuffer = SPACE(20)
= FillMemory (@lcBuffer, Len(lcBuffer), Asc("*"))
? lcBuffer


*** Part 2
* applying the FillMemory to a memory block

LOCAL hMem, lnBufsize

* allocating a memory block
#DEFINE GMEM_FIXED  0
lnBufsize = 512
hMem = GlobalAlloc (GMEM_FIXED, lnBufsize)

* note that the FillMemory destination object is different
* not a reference to a string, but a memory pointer
* that is why the function has to be redeclared

DECLARE RtlFillMemory IN kernel32 AS FillMemory;
	INTEGER Dest,;
	INTEGER Length,;
	SHORT   nFill

= FillMemory (hMem, lnBufsize, 42)

* and releasing the memory block in the end
? GlobalFree (hMem)  

---

Listed functions:

FillMemory
GlobalAlloc
GlobalFree