Class: | FTP_SERVICE |
LOCAL lcMessage, lnError, lcBuffer This.nResult_Code = GetLastError() lnError = 0 lcBuffer = SPACE(MAX_PATH) =InternetGetLastResponseInfo(lnError, @lcBuffer, MAX_PATH) This.nExtended_Result = lnError This.cExtended_Message = LEFT(lcBuffer, AT(cNULL, lcBuffer) - 1) RETURN