>>>*============================================================================== >>>PROCEDURE Create_Internet_Object >>>LPARAMETER lcObjectName, lcCreateName >>>LOCAL lcProxyName, lcProxyPort, lnProxyType, lcProxyUser, lcProxyPW >>>IF !"WWIPSTUFF"$UPPER(SET("CLASSLIB")) >>> SET CLASSLIB TO .\ww\wwIPStuff ADDITIVE >>>ENDIF >>> >>>IF ! "wwUtils"$SET("PROCEDURE") >>> SET PROCEDURE TO .\ww\wwUtils ADDITIVE >>>ENDIF >>> >>>IF ! "WWTTP"$UPPER(SET("PROCEDURE")) >>> SET PROCEDURE TO .\ww\WWHTTP ADDITIVE >>>ENDIF >>> >>>IF !EMPTY(lcObjectName) AND EMPTY(lcCreateName) >>> MESSAGEBOX("Error passing parameters to Create_Internet_Object in Procfile call support.", 16) >>> RETURN .F. >>>ENDIF >>> >>>IF EMPTY(lcObjectName) >>> lcObjectName = "oInternet" >>> lcCreateName = "wwIPStuff" >>>ENDIF >>> >>>RELEASE &lcObjectName. >>>PUBLIC &lcObjectName. >>> >>>&lcObjectName. = CREATE(lcCreateName) >>>IF VARTYPE(&lcObjectName.) <> "O" OR ISNULL(&lcObjectName.) >>> RETURN .F. >>>ENDIF >>> >>>USE INFO ALIAS ProxyInfo IN 0 AGAIN >>> >>>lnConnectionTimeout = INT(VAL(ALLT(LOOKUP(ProxyInfo.Value, "connection_timeout", ProxyInfo.Field)))) >>>IF !EMPTY(lnConnectionTimeout) >>> &lcObjectName..nConnectTimeout = lnConnectionTimeout >>>ENDIF >>> >>>lnProxyType = INT(VAL(LOOKUP(ProxyInfo.Value, "proxy_type", ProxyInfo.Field))) >>>*!* RLT Added to auto detect the proxy settings >>>&lcObjectName..nhttpconnecttype = lnProxyType >>> >>>IF lnProxyType = 3 && Manual Setting >>> *!* Get the Proxy name and Port >>> lcProxyName = ALLT(LOOKUP(ProxyInfo.Value, "proxy_name", ProxyInfo.Field)) >>> >>> *!* Get the port number to use. >>> lcProxyPort = ALLT(LOOKUP(ProxyInfo.Value, "proxy_port", ProxyInfo.Field)) >>> IF !EMPTY(lcProxyPort) >>> lcProxyName = lcProxyName + ":"+ lcProxyPort >>> ENDIF >>> &lcObjectName..cHttpProxyName = ALLT(lcProxyName) >>> >>> *!* Check for username and password. >>> lcProxyUser = ALLT(LOOKUP(ProxyInfo.Value, "proxy_username", ProxyInfo.Field)) >>> IF !EMPTY(lcProxyUser) >>> &lcObjectName..cHttpProxyUserName = lcProxyUser >>> ENDIF >>> >>> lcProxyPW = ALLT(LOOKUP(ProxyInfo.Value, "proxy_password", ProxyInfo.Field)) >>> IF !EMPTY(lcProxyPW) >>> &lcObjectName..cHttpProxyPassword = lcProxyPW >>> ENDIF >>> >>>ENDIF >>> >>>USE IN SELECT("ProxyInfo") >>> >>>RETURN .T. >>>>>>
>>>>>*** Set mode to multi-part form >>>>>oHttp.nHttpPostMode = 2 >>>>> >>>>>*** Post a file and a regular form variable >>>>>*!* Who is sending the message >>>>>oHttp.AddPostKey("snetid", lcSnetID) >>>>>oHttp.AddPostKey("attach", "1") >>>>>oHttp.AddPostKey("fileupload", lcUploadFile, .T.) >>>>> >>>>>lcHTML = oHttp.HTTPGet(SS_HSS_DIVISIONS_SITE + "?nocache=" + TTOC(DATETIME())) >>>>> >>>>>>>>>>