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