Class: | FTP_SERVICE |
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
* 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 ENDIF