>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 >>>>