Class: | FTP_SERVICE |
Description: | Brings up a dialog to the user requesting permission to go the requested URL |
Type | Character |
Direction | Input |
LPARAMETERS INP lcURL LOCAL lnHWNDHandle, fResult IF This.LoadAPIFuncs() != ERROR_SUCCESS RETURN .F. ENDIF IF TYPE("m.lcURL") != "C" RETURN .F. ENDIF lcURL = m.lcURL + cNULL lnHWNDHandle = 0 =This.BeforeGoOnline(@m.lcURL) fResult = InternetGoOnline(@m.lcURL, m.lnHWNDHandle, 0) =This.GetExtendedError() =This.AfterGoOnline(@m.lcURL,m.fResult) RETURN m.fResult # 0