Brings up a dialog to the user requesting permission to go the requested URL.
Parameter
-
lcURL
-
URL
Type |
Character |
Direction |
Input |
The URL program is requesting to go to.
The return value is .T.
if is test suscesfull or .F.
is not.
Source Code
LPARAMETERS lcURL
LOCAL lnHWNDHandle, fResult
IF This.LoadAPIFuncs() != ERROR_SUCCESS
RETURN -1
ENDIF
IF TYPE("lcURL") != "C"
RETURN .F.
ENDIF
lcURL = lcURL + cNULL
lnHWNDHandle = 0
=This.BeforeGoOnline(lcURL)
fResult = InternetGoOnline(@lcURL, lnHWNDHandle, 0)
=This.GetExtendedError()
=This.AfterGoOnline(lcURL,fResult)
RETURN fResult # 0