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