CloseInternet Method
Class: FTP_SERVICE
Description:Closes any open handles to the Internet
Closes any open handles to the Internet. Does not cause an error if there are no currently open handles.
=
Object.CloseInternet
()
Return value Boolean
The return value is .T. always.
Example
LOCAL loFTP SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg
See also
Expand/Collapse source code of procedure CloseInternet Source Code
 
      * olrrai added:
      This.FTPOpen = .F.

      * Handles have a Hierarchy.  Closing the Top Handle will close all child handles also.
      * (really?)
      IF This.nInet_Handle != 0
         This.CloseFTPConnection()

         InternetCloseHandle(This.nInet_Handle)
         This.nInet_Handle = 0
         This.cCurrentDir = ""
      ENDIF