GetExtendedError Method
Class: FTP_SERVICE
Description:Fill Extended error by WININET
Internal method for filling properties FTP_SERVICE::nResult_Code, FTP_SERVICE::cExtended_Message and FTP_SERVICE::nExtended_Result
Object.GetExtendedError
()
Example
See to source code of method FTP_SERVICE::AutoDialInternet()
See also
Expand/Collapse source code of procedure GetExtendedError Source Code
      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