> If bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes <> 0 Then > h2DResult = 0 > h2DResult = GlobalLock(bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes) > If h2DResult = 0 Then > sResult = sResult + TXT_ERROR_RESULT_2DIM_NOACCESS + vbCrLf > Else > s2DResult = String(bcRESULT2.pBC_TwoDimRes.iBC_TwoDimLen + 1, Chr(0)) > Call CopyMemory(ByVal s2DResult, ByVal h2DResult, bcRESULT2.pBC_TwoDimRes.iBC_TwoDimLen) > s2DResult = Left(s2DResult, bcRESULT2.pBC_TwoDimRes.iBC_TwoDimLen) > sResult = sResult + qsTrim(s2DResult) + vbCrLf > bcData = qsTrim(s2DResult) > GlobalUnlock (h2DResult) > End If > GlobalFree (bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes) > bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes = 0 > Else >.... > End If >>
declare RtlMoveMemory in Kernel32 string @dest, long src, long bytesToCopy local s s = repl(chr(0), theLength+1 ) =RtlMoveMemory(@m.s, thePointer, theLength) s = rtrim(m.s, chr(0))