>>DECLARE LONG GlobalLock IN WIN32API LONG HMEM >>DECLARE LONG GlobalUnlock IN WIN32API LONG HMEM >> >>lhMem = bcRESULT2.pBC_TwoDimRes.hBC_TwoDimRes >> >>IF lhMem <> 0 >> lnPtr = GlobalLock(lhMem) >> IF lnPtr <> 0 >> lnLen = bcRESULT2.pBC_TwoDimRes.iBC_TwoDimLen >> lcResult = SYS(2600, lnPtr, lnLen) >> =GlobalUnlock(lhMem) >> ENDIF >>ENDIF >>>>
>>> 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 >>>>>>