GetExtendedError Method
Class: FTP_SERVICE
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(lnError, @lcBuffer, MAX_PATH)

      This.nExtended_Result = lnError
      This.cExtended_Message = LEFT(lcBuffer, AT(cNULL, lcBuffer) - 1)
      RETURN